7,762
社区成员
发帖
与我相关
我的任务
分享高分求CRC-16校验源程序，要求能用，急急急！！！分不满意再开帖。
网上很流行的以下的程序好象不能用：
Dim CRC() As Byte
Dim d() As Byte '待传输数据
ReDim d(6) As Byte
d(0) = 1
d(1) = 3
d(2) = 0
d(3) = 0
d(4) = 0
d(5) = 10
CRC = CRC16(d) '调用CRC16计算函数
'CRC(0)为高位
'CRC(1)为低位
Dim CRC() As Byte
Dim d() As Byte '待传输数据
ReDim d(6) As Byte
d(0) = 1
d(1) = 3
d(2) = 0
d(3) = 0
d(4) = 0
d(5) = 10
CRC = CRC16(d) '调用CRC16计算函数
'CRC(0)为高位
'CRC(1)为低位
...全文
请发表友善的回复…
发表回复
wumylove1234 2004-09-22
- 打赏
- 举报
Mark!
rainstormmaster 2004-09-22
- 打赏
- 举报
http://www.twt.edu.cn/netclass/computer/textinfo.php?myid=560
jam021 2004-09-22
- 打赏
- 举报
关注,帮你顶一下
terpitude2002 2004-09-22
- 打赏
- 举报
呵呵，crc 16呀，我找到的看不懂，现在只要能用就行了，明天要去现场了。
littlefishli 2004-09-22
- 打赏
- 举报
crc效验编程要知道你自己的crc效验的多项式啊没这个怎么效验啊。。。
yijiansong 2004-09-22
- 打赏
- 举报
顶
