用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