Public Function CRC_CCITT(Data() As Byte) As String
Dim CRC As Long
Dim i As Byte, j As Integer
Dim crch As String, crcl As String
CRC = 0
For j = LBound(Data) To UBound(Data) - 1
i = &H80
While (i <> 0)
If (CRC And &H8000) <> 0 Then
CRC = CRC * 2
CRC = CRC Xor &H1021
Else
CRC = CRC * 2
End If
If (Data(j) And i) <> 0 Then
CRC = CRC Xor &H1021
End If
i = i / 2
If CRC > 65536 Then
CRC = CRC - 65536
End If
Wend
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
Private Sub Command1_Click()
Dim d() As Byte
Dim temp As String
Dim First_chr() As Byte
Dim string1 As String
Dim i As Integer
Dim j As Integer