Public Function CRC_CCITT(ByVal Data() As Byte) As String
Dim crc As UShort
Dim i As Byte,j As Integer
Dim crch As String,crcl As String
crc = 0
For j = 0 To Data.Length - 1
i = &H80
Dim val As UShort = Data(j)
val = val << 8
crc = crc Xor val
While (i <> 0)
If (crc And &H8000) <> 0 Then
crc = crc << 1
crc = crc Xor &H1021
Else
crc = crc << 1
End If
i = i / 2
End While
Next j
crch = Hex(Fix(crc / 256))
If Len(crch) = 1 Then crch = "0" & crch
crcl = Hex(crc Mod 256)
If Len(crcl) = 1 Then crcl = "0" & crcl
CRC_CCITT = crch & crcl
End Function
原文地址：https://www.jb51.cc/vb/259581.html
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
