vb.net CRC计算-----CRC_CCITT
发布时间:2020-12-16 22:22:07 所属栏目:大数据 来源:网络整理
导读: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
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 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |