unction CRC16(pBytes() As Byte, ByVal nSize As Long) As Long
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 Long
Dim Flag As Integer
CRC16Lo = &HFF
CRC16Hi = &HFF
CL = &H1
CH = &HA0
For i = nIndex To nSize
CRC16Lo = CRC16Lo Xor pBytes(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
'
' 返回CRC
'
Dim ReturnData(1) As Byte
ReturnData(0) = CRC16Hi 'CRC高位
ReturnData(1) = CRC16Lo 'CRC低位
CopyMemory ByVal VarPtr(CRC16), ByVal VarPtr(ReturnData(0)), 2
End Function
'
' 获取CRC16
dim bytesCRC() as byte
bytesCRC = strconv(strKey, vbFromUnicode)
lkey = crc16(bytescrc, ubound(bytesCRC) + 1)
[Quote=引用 4 楼 bdzwj 的回复:]
public function EnDeCode(bytes() as byte, byval strKey as string) as byte()
dim lKey as long
dim lCount as long
dim i as long
dim bytesOut() as byte