验证文件crc32的做法

Hwak

希望大婶给个思路，验证脱壳前和脱壳后文件的大小做法附上 crc32源码

  

子程序名	返回值类型	公开	备 注
取文件crc32值	文本型		用于取crc32，结果为16进制文本
参数名	类 型	参考	可空	数组	备 注
字节集数据	字节集				要取CRC32数据字节集

变量名	类 型	静态	数组	备 注
crcval	整数型
长度	整数型
i	整数型
结果	文本型
位置	整数型
crc	整数型
table	整数型		256

长度 ＝ 取字节集长度 (字节集数据)
如果真 (长度 ＜ 1)
返回 (“”)
变量循环首 (0, 255, 1, i)  ' 用来得到码表
crc ＝ i
变量循环首 (1, 8, 1, )
如果 (位与 (crc, 1) ≠ 0)
crc ＝ 位异或 (位与 (右移 (crc, 1), 2147483647), 3988292384)  ' crc xor EDB88320
crc ＝ 位与 (右移 (crc, 1), 2147483647)

变量循环尾 ()
table [i ＋ 1] ＝ crc
变量循环尾 ()
crcval ＝ 4294967295
计次循环首 (长度, i)
位置 ＝ 位异或 (字节集数据 [i], 位与 (crcval, 255)) ＋ 1  ' 查表
crcval ＝ 位异或 (位与 (右移 (crcval, 8), 16777215), table [位置])
计次循环尾 ()
返回 (取十六进制文本 (位取反 (crcval)))

.版本 2<br /> <br /> .子程序 取文件crc32值, 文本型, 公开, 用于取crc32，结果为16进制文本<br /> .参数 字节集数据, 字节集, , 要取CRC32数据字节集<br /> .局部变量 crcval, 整数型<br /> .局部变量 长度, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 位置, 整数型<br /> .局部变量 crc, 整数型<br /> .局部变量 table, 整数型, , "256"<br /> <br /> 长度 ＝ 取字节集长度 (字节集数据)<br /> .如果真 (长度 ＜ 1)<br />     返回 (“”)<br /> .如果真结束<br /> .变量循环首 (0, 255, 1, i)  ' 用来得到码表<br />     crc ＝ i<br />     .变量循环首 (1, 8, 1, )<br />         .如果 (位与 (crc, 1) ≠ 0)<br />             crc ＝ 位异或 (位与 (右移 (crc, 1), 2147483647), 3988292384)  ' crc xor EDB88320<br />         .否则<br />             crc ＝ 位与 (右移 (crc, 1), 2147483647)<br />         .如果结束<br /> <br />     .变量循环尾 ()<br />     table [i ＋ 1] ＝ crc<br /> .变量循环尾 ()<br /> crcval ＝ 4294967295<br /> .计次循环首 (长度, i)<br />     位置 ＝ 位异或 (字节集数据 <i>, 位与 (crcval, 255)) ＋ 1  ' 查表<br />     crcval ＝ 位异或 (位与 (右移 (crcval, 8), 16777215), table [位置])<br /> .计次循环尾 ()<br /> 返回 (取十六进制文本 (位取反 (crcval)))