易语言带校验功能的字节集(内存加法校验和原理 写1字节实时改变)用于检查数据是否正确

QAQ

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 程序集1
   
5. .程序集变量 校验和, 长整数型
   
6. .程序集变量 数据, 字节集
   
7. 
   
8. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
9. 
   
10. 
    
11. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
12. 返回 (0)  ' 可以根据您的需要返回任意数值
    
13. 
    
14. .子程序 _临时子程序
    
15. 
    
16. 
    
17. 
    
18. .子程序 创建, , 公开
    
19. .参数 长度, 整数型
    
20. 
    
21. 数据 ＝ 取空白字节集 (长度)
    
22. 校验和 ＝ 0
    
23. 
    
24. 
    
25. .子程序 读, 字节型, 公开
    
26. .参数 地址, 整数型, , 1为首地址 2为第二地址，以此类推
    
27. 
    
28. 返回 (数据 [地址])
    
29. 
    
30. 
    
31. .子程序 写, , 公开
    
32. .参数 地址, 整数型
    
33. .参数 值, 字节型
    
34. 
    
35. .如果真 (值 ＝ 数据 [地址])
    
36.     返回 ()
    
37. .如果真结束
    
38. .如果 (值 ＞ 数据 [地址])
    
39.     校验和 ＝ 校验和 ＋ 值 － 数据 [地址]
    
40. .否则
    
41.     校验和 ＝ 校验和 － (数据 [地址] － 值)
    
42. .如果结束
    
43. 数据 [地址] ＝ 值
    
44. 
    
45. 
    
46. 
    
47. .子程序 导出, 字节集, 公开
    
48. 
    
49. 返回 (数据)
    
50. 
    
51. 
    
52. 
    
53. .子程序 导入, , 公开
    
54. .参数 导入数据, 字节集
    
55. .局部变量 位置, 整数型
    
56. 
    
57. 数据 ＝ 导入数据
    
58. 校验和 ＝ 0
    
59. .计次循环首 (取字节集长度 (数据), 位置)
    
60.     校验和 ＝ 校验和 ＋ 数据 [位置]
    
61. .计次循环尾 ()
    
62. 
    
63. 
    
64. 
    
65. .子程序 校验, 逻辑型, 公开
    
66. .局部变量 校验和副本, 长整数型
    
67. .局部变量 位置, 整数型
    
68. 
    
69. 校验和副本 ＝ 0
    
70. .计次循环首 (取字节集长度 (数据), 位置)
    
71.     校验和副本 ＝ 校验和副本 ＋ 数据 [位置]
    
72. .计次循环尾 ()
    
73. 
    
74. 返回 (校验和副本 ＝ 校验和)
    
75. 
    
76. 
    
77. .子程序 取校验和, 长整数型, 公开
    
78. 
    
79. 返回 (校验和)
    
80. 
    
81. .子程序 取长度, 整数型, 公开
    
82. 
    
83. 返回 (取字节集长度 (数据))
    
84. 
    
85. 
    

复制代码

1心1亿

6666666

Cute

这个主要原理是对校验和加减差值

222

谢谢分享