求助..关于CRC校验.....

求个VB下,CRC校验代码,网上有一堆,找着乱乱的

那我就顶一下，然后学习……

Function CRC16(data() As Byte) As String
Dim CRC16Lo As Byte, CRC16Hi As Byte 'CRC寄存器
Dim CL As Byte, CH As Byte '多项式码&HA001
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 8
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
Dim ReturnData(1) As Byte
ReturnData(0) = CRC16Hi 'CRC高位
ReturnData(1) = CRC16Lo 'CRC低位
asd = Right("00" + Hex(CRC16Lo), 2) + Right("00" + Hex(CRC16Hi), 2)
End Function
用这个倒是可以,,就是不知道要怎么调用这个自己定义的东西
用命令按钮...代码一堆,,&H后面的0也没有了...
Private Sub Command1_Click()
Dim data(0 To 8) As Byte
data(0) = &H11
data(1) = &H3 (这里应该是&H03)
data(2) = &H6
data(3) = &H17
data(4) = &H70
data(5) = &HB
data(6) = &HB8
data(7) = &H3
data(8) = &HE8
Call CRC16(data)
'Text2 = ""
For I = 0 To 8
Text2 = Text2 & Hex(data(I))
Next
Text2 = Text2 & Text1
End Sub