CRC16循环冗余校验VB

代码

Dim Data(6) As Integer
Dim a As Long
Dim crc_reg As Long
Function crc16(Data, length)
Dim i, j As IntegerDim b As Long
b = &HA001
i = 0
crc_reg = &HFFFF
Do While length > 0crc_reg = (crc_reg Xor Data(i))If crc_reg < 0 Thencrc_reg = 65536 + crc_regEnd Ifi = i + 1length = length - 1For j = 0 To 7 Step 1If (crc_reg And 1) Thencrc_reg = (((crc_reg \ 2) Xor b) And &HFFFF)'crc_reg = crc_reg ^ bElsecrc_reg = (crc_reg \ 2) And &HFFFFEnd IfIf (crc_reg < 0) Thencrc_reg = 65536 + crc_regEnd IfNext j
Loop
End FunctionPrivate Sub Form_Load()Data(0) = &H64
Data(1) = &H6
Data(2) = &H0
Data(3) = &HD
Data(4) = &H4
Data(5) = &H4Ca = crc16(Data, 6)
MsgBox (crc_reg)
End Sub

运行

修改代码

Private Sub Form_Load()Data(0) = &H64
Data(1) = &H3
Data(2) = &H0
Data(3) = &H0
Data(4) = &H0
Data(5) = &H1a = crc16(Data, 6)
MsgBox (crc_reg)
End Sub

运行