crc16校验 用VB编写的CRC校验程序用VB编写的CRC校验程序PrivateSubCommand1_Click()Dimbcrc%,gp&,bdf& bcrc值为整型,gp值为长整型,bdf值为长整型bcrc=16 用CRC—16位校验 gp=Val("&H"&CStr(Text2.Text)&"&") gp为生成多项式 缺省为11021（16进制）bdf=Val("&H"&CStr(Text1.Text)&"&") bdf为原值Text3=Hex(calcrc(bcrc,gp,bdf)) 为生成的CRC值...
用VB编写的CRC校验程序PrivateSubCommand1_Click()Dimbcrc%,gp&,bdf& bcrc值为整型,gp值为长整型,bdf值为长整型bcrc=16 用CRC—16位校验 gp=Val("&H"&CStr(Text2.Text)&"&") gp为生成多项式 缺省为11021（16进制）bdf=Val("&H"&CStr(Text1.Text)&"&") bdf为原值Text3=Hex(calcrc(bcrc,gp,bdf)) 为生成的CRC值EndSubFunctioncalcrc(bcrcAsInteger,gpAsLong,bdfAsLong)AsLongDimc1&,c2&Dima1%,prec1&Dimleftvalue%,a1shift%Ifbdf=0Thencalcrc=0ExitFunctionEndIfa1=(Len(Hex(bdf))-1)*4 a1={原值（16进制）的字符数目-1}*4c1=bdf*2^bcrc 进行异或运行前，把原值（2进制）后面加16个0leftvalue=Val("&H"&Mid(Hex(bdf),1,1)) 原值的左边第1位（最高位）数值（16进制）Ifleftvalue>=1Thena1shift=1 原值的最高位=1 偏差=1Ifleftvalue>=2Thena1shift=2 原值的最高位=2或3 偏差=2Ifleftvalue>=4Thena1shift=3 原值的最高位>=4，<=7 偏差=3Ifleftvalue>=8Thena1shift=4 原值的最高位>=8 偏差=4a1=a1(a1shift-1) 原值（后面加16个0）与生成多项式的二进制码的个数差c2=gp*2^a1 把生成多项式的后面也相应加a1个0Doprec1=c1c1=c1Xorc2 原值与生成多项式进行异或Doa1=a1–1 a1数值减1Ifc1>prec1Then 如果异或的结果大于原值，说明原值的左边第1位（最高位）为0c1=prec1Xor(gp*2^a1) 把a1的值减少一位后，继续异或ElseExitDoEndIfLoopc2=gp*2^a1LoopUntilc1<=gp 直至异或的结果小于生成多项式calcrc=c1 所得的异或结果即是CRC值EndFunction
本文档为【crc16校验 用VB编写的CRC校验程序】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483