需要一个CRC16 -CCITT源码CRC模块

月光小男孩

论坛内的看了,没有好用的 或者是不能直接用

咪兔

  

子程序名	返回值类型	公开	备 注
CRC16_CCITT	文本型		x16+x12+x5+1
参数名	类 型	参考	可空	数组	备 注
data	字节集

变量名	类 型	静态	数组	备 注
crc	整数型
table	整数型		256
i	整数型
return	文本型

变量循环首 (0, 255, 1, i)
crc ＝ i
变量循环首 (1, 8, 1, )
如果 (位与 (crc, 1) ≠ 0)
crc ＝ 位异或 (右移 (crc, 1), 33800)
crc ＝ 右移 (crc, 1)

变量循环尾 ()
table [i ＋ 1] ＝ crc
变量循环尾 ()
crc ＝ 0
变量循环首 (1, 取字节集长度 (data), 1, i)
crc ＝ 位异或 (右移 (crc, 8), table [位异或 (data [i], 位与 (crc, 255)) ＋ 1])
变量循环尾 ()
return ＝ 取十六进制文本 (crc)
返回 (return)

.版本 2<br /> <br /> .子程序 CRC16_CCITT, 文本型, , x16+x12+x5+1<br /> .参数 data, 字节集<br /> .局部变量 crc, 整数型<br /> .局部变量 table, 整数型, , "256"<br /> .局部变量 i, 整数型<br /> .局部变量 return, 文本型<br /> <br /> <br /> .变量循环首 (0, 255, 1, i)<br />     crc ＝ i<br />     .变量循环首 (1, 8, 1, )<br />         .如果 (位与 (crc, 1) ≠ 0)<br />             crc ＝ 位异或 (右移 (crc, 1), 33800)<br />         .否则<br />             crc ＝ 右移 (crc, 1)<br />         .如果结束<br /> <br />     .变量循环尾 ()<br />     table [i ＋ 1] ＝ crc<br /> .变量循环尾 ()<br /> crc ＝ 0<br /> .变量循环首 (1, 取字节集长度 (data), 1, i)<br />     crc ＝ 位异或 (右移 (crc, 8), table [位异或 (data <i>, 位与 (crc, 255)) ＋ 1])<br /> .变量循环尾 ()<br /> return ＝ 取十六进制文本 (crc)<br /> 返回 (return)

chenboss

手搓一个crc16ccitt.e (855.16 KB, 下载次数: 3, 售价: 1 枚 精币)

前天 05:19 上传

点击文件名下载附件