关于CRC-CCITT 算法程序请教

20110918

一组数为0X24 0X24 0X00 0X11 0X13 0X61 0X23 0X45 0X67 0X8f 0Xff 0X50 0X00
其结果为何不为0x05d8
程序如下，请那位仁兄帮看一下，那里有问题？

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
   
    string1 = Text4.Text
    string1 = Replace(string1, " ", "")
    i = Len(string1) / 2
     
    ReDim First_chr(i) As Byte
    For j = 0 To i - 1
        First_chr(j) = Val("&h" & Mid$(string1, j * 2 + 1, 2))
    Next j
   
   
    Text5.Text = Val(UBound(First_chr)) & "  ,  " & Val(LBound(First_chr))
    Text3.Text = CRC_CCITT(First_chr)
    Text1.Text = Left$(Text3.Text, 2)
    Text2.Text = Right$(Text3.Text, 2)
   
End Sub
Private Sub Form_Load()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
   
End Sub

20110918

问题已解决{:3_244:}