调试易

VB用查表法实现CRC8  以下是两个实现的方法中为什么
1、两个查表法中的表中的内容（两个蓝色区域）为什么不同
2、两个方法中 红色文字区域 各代表什么含义 ，头一个 ：$8C: X8+X5+X4+1 是什么含义   第二个 $07: X8+X2 +X1+1 又是什么含义VB用查表法实现CRC8    ($8C: X8+X5+X4+1)
Private Function GetCRC8(Index As Byte) As Byte  
    GetCRC8 = Choose(Index + 1, &H0, &H5E, &HBC, &HE2, &H61, &H3F, &HDD, &H83, &HC2, &H9C…..)
End Function
Public Function CRC8(bData() As Byte) As Byte
    Dim CRC_Temp As Byte
    Dim CRC_Index As Byte
    Dim i As Long
    CRC_Temp = 0
    For i = LBound(bData) To UBound(bData)
        CRC_Index = CRC_Temp Xor bData(i)
        CRC_Temp = GetCRC8(CRC_Index)
    Next
    CRC8 = CRC_Temp
End Function
 
 
VB用查表法實現CRC8  （$07: X8+X2 +X1+1）
Option Explicit
Private Function GetCRC8(Index As Byte) As Byte
    GetCRC8 = Choose(Index + 1, &H0, &H7, &HE, &H9, &H1C, &H1B, &H12, &H15, &H38, &H3F…..)
End Function
Public Function CRC8(bData() As Byte) As Byte
    Dim CRC_Temp As Byte
    Dim CRC_Index As Byte
    Dim i As Long
    CRC_Temp = 0
    For i = LBound(bData) To UBound(bData)
        CRC_Index = CRC_Temp Xor bData(i)
        CRC_Temp = GetCRC81(CRC_Index)
    Next
    CRC8 = CRC_Temp
End Function