易语言计算CRC32算法纯源码

LscmunaixMG

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .程序集 窗口程序集_启动窗口
   
5. .程序集变量 table, 整数型, , "256"
   
6. 
   
7. .子程序 _启动子程序, 整数型
   
8. .局部变量 文件号, 整数型
   
9. 
   
10. CRC32初始化 ()
    
11. 调试输出 (计算crc32 ({ 255, 255, 255, 255, 255 }))
    
12. 返回 (0)
    
13. 
    
14. .子程序 CRC32初始化
    
15. .局部变量 crc, 整数型
    
16. .局部变量 i, 整数型
    
17. 
    
18. .变量循环首 (0, 255, 1, i)
    
19.     crc ＝ i
    
20.     .变量循环首 (0, 7, 1, )
    
21.         .如果 (位与 (crc, 1) ≠ 0)
    
22.             crc ＝ 位异或 (位与 (右移 (crc, 1), 2147483647), 3988292384)
    
23.         .否则
    
24.             crc ＝ 位与 (右移 (crc, 1), 2147483647)
    
25. 
    
26.         .如果结束
    
27. 
    
28.     .变量循环尾 ()
    
29.     table [i ＋ 1] ＝ crc
    
30. .变量循环尾 ()
    
31. 
    
32. 
    
33. 
    
34. 
    
35. .子程序 计算crc32, 文本型, 公开, 用于取crc32，结果为16进制文本
    
36. .参数 字节集数据, 字节集, , 要取CRC32数据字节集
    
37. .局部变量 crcval, 整数型
    
38. .局部变量 长度, 整数型
    
39. .局部变量 i, 整数型
    
40. .局部变量 结果, 文本型
    
41. .局部变量 位置, 整数型
    
42. 
    
43. 长度 ＝ 取字节集长度 (字节集数据)
    
44. crcval ＝ 4294967295
    
45. .计次循环首 (长度, i)
    
46.     位置 ＝ 位异或 (字节集数据 [i], 位与 (crcval, 255)) ＋ 1
    
47.     crcval ＝ 位异或 (位与 (右移 (crcval, 8), 16777215), table [位置])
    
48. .计次循环尾 ()
    
49. 返回 (取十六进制文本 (位取反 (crcval)))
    

复制代码

demon

不错不错。帮忙暖(水)贴。消灭零回复。其实单纯的发代码外加点文字，比如对crc的介绍啊什么的，会让文章润色不少。

Kuni7wa

demon 发表于 2017-7-3 17:29
不错不错。帮忙暖(水)贴。消灭零回复。其实单纯的发代码外加点文字，比如对crc的介绍啊什么的，会 ...

讲的话也应该很难弄懂。

CNWTEPRG

这源码应该是某易模块里面的