誰有VB CRC16校驗源碼

'CRC校驗碼的計算方法，如以下函數，可以得到字節數組變量cmdstring指向的字符串的CRC校驗碼。

Function crc16(ByRef cmdstring() As Byte, ByVal j As Integer)

Dim data As Integer

Dim i As Integer

Addressreg_crc = &HFFFF

For i = 0 To j

Addressreg_crc = Addressreg_crc Xor cmdstring(i)

For j = 0 To 7

data = Addressreg_crc And &H1

If data Then

Addressreg_crc = Int(Addressreg_crc / 2)

Addressreg_crc = Addressreg_crc And &H7FFF

Addressreg_crc = Addressreg_crc Xor &HA001

Else

Addressreg_crc = Addressreg_crc / 2

Addressreg_crc = Addressreg_crc And &H7FFF

End If

Next j

Next i

If Addressreg_crc < 0 Then

Addressreg_crc = Addressreg_crc - &HFFFF0000

End If

HiByte = Addressreg_crc And &HFF

LoByte = (Addressreg_crc And &HFF00) / &H100

End Function

'調用

Call crc16(SendStr,5)

SendStr(6) = HiByte

SendStr(7) = LoByte

上一篇:玲瓏廣場舞直播在哪看

下一篇:求java遊戲魔獸塔防TD（正版）—情景模式第七章及以上詳細攻略