CRC 计算.doc

文档介绍：Private Function CRC16(data() As Byte) As String
Dim CRC16Lo As Byte, CRC16Hi As Byte 'CRC寄存器
Dim CL As Byte, CH As Byte '多项式码&HA001
Dim CRCLo As String, CRCHi As String
Dim SaveHi As Byte, SaveLo As Byte
Dim i As Integer
Dim Flag As Integer
CRC16Lo = &HFF
CRC16Hi = &HFF
CL = &H1
CH = &HA0
For i = 0 To UBound(data)
CRC16Lo = CRC16Lo Xor data(i) '每一个数据与CRC寄存器进行异或
For Flag = 0 To 7
SaveHi = CRC16Hi
SaveLo = CRC16Lo
CRC16Hi = CRC16Hi \ 2 '高位右移一位
CRC16Lo = CRC16Lo \ 2 '低位右移一位
If ((SaveHi And &H1) = &H1) Then '如果高位字节最后一位为1
CRC16Lo = CRC16Lo Or &H80 '否则低位字节右移后前面补1
End If '否则自动补0
If ((SaveLo And &H1) = &H1) Then '如果LSB为1,则与多项式码进行异或
CRC16Hi = CRC16Hi Xor CH
CRC16Lo = CRC16Lo Xor CL
End If
Next Flag
Next i
If Len(Hex(CRC16Hi)) = 1 Then
CRCHi = "0" + Hex(CRC16Hi)
Else
CRCHi = Hex(CRC16Hi)
End If
If Len(Hex(CRC16Lo)) = 1 Then
CRCLo = "0" + Hex(CRC16Lo)
Else
CRCLo = Hex(CRC16Lo)
End If
CRC16 = CRCLo + CRCHi
End Function
0
| 评论
2009-6-12 11:19vlaoda | 十级
Private mand1_Click()
Dim 数据() As Byte
Dim 校验码 As Integer
Dim 字节数 As Long
Dim 低位 As Boolean
校验码= -1
数据= StrConv(Text1, vbFromUnicode)
字节数= UBound(数据)
For i = 0 To 字节数
低位= ture
For j = 1 To 8
If 低位 Then 校验码= 校验码 Xor 数据(i)
低位= 数据(i) And 1
数据(i) = 数据(i) \ 2
Next j
Next i
Text2 = Hex(校验码)
End Sub
算法大概就是这样了
方法 2
'form1--form8,8个窗体,一个模块
’for