Excel VBA 的 CRC8 计算答案

【问题标题】：CRC8 calculation for Excel VBAExcel VBA 的 CRC8 计算
【发布时间】：2015-10-17 11:20:20
【问题描述】：

我正在使用 Excel VBA 进行 CRC8 计算。我在 VBA 中编写了一个函数，它返回 CRC8 值，以后可以将其存储到一个单元格中。但是，在打印相同的内容时，我收到一条错误消息，提示“溢出”。

我在“ShiftLeft = Num * (2 ^ Places)”处的函数中溢出

Function CRCPrateek(CRCrng As Range) As Integer

    Dim CRC As Integer
    Dim length As Integer
    Dim Hexbyte As Integer
    Dim i As Integer

    'Initial CRC seed is Zero CRC = H00
    'The real part of the CRC. Where I commented "Polynomial", it used to be a # define
    'Polynomial 7. 'I replaced the word Polynomial with 7, however that means the 7 may
    'be subject to change depending on the version of the crc you are running.
    'To loop it for each cell in the range

    For Each cel In CRCrng
        'Verify if there is atleast one cell to work on
        If Len(cel) > 0 Then
            Hexbyte = cel.Value
            CRC = CRC Xor Hexbyte
            For i = 0 To 7
                If Not CRC And H80 Then
                    CRC = ShiftLeft(CRC, 1)
                    CRC = CRC Xor 7
                Else
                    CRC = ShiftLeft(CRC, 1)
                End If
             Next
        End If
    Next
    CRCPrateek = CRC
End Function

Function ShiftLeft(Num As Integer, Places As Integer) As Integer

    ShiftLeft = Num * (2 ^ Places)

End Function

【问题讨论】：

将所有 Integer 声明更改为 Long。
但是我得到一个 1 字节的 CRC 吗？根据我的理解，我应该为 CRC8 _ATM 获得 1 个字节。
我将所有声明更改为 byte & long 但仍然出现溢出错误。

标签： excel vba checksum crc

【解决方案1】：

您正在处理 2 字节整数，而不是字节。此外，我怀疑 cell.value 确实是一个十六进制值 - 而不是像“3F”这样的十六进制字符串，您必须先将其转换为数值（在 0..255 范围内）。
要创建真正的字节数组和字节 CRC，请参阅此解决方案：Calculating CRC8 in VBA

在那里你会找到溢出的解决方案，即在移位之前屏蔽最高位。

【讨论】：

嘿，Cell.value 是一个十六进制值。我也在处理一个字节。顺便说一句，您能否指出并解释我是如何处理 2 字节整数的。但是，我会在执行计算之前将十六进制转换为十进制。
Dim Hexbyte As Integer 和 Hexbyte = cel.Value。 Integer 是 16bit=2 字节，'Byte' 是 8bit=1 字节。对于单元格的内容，我只是在推测 - 它是字符串还是数字？如何将 0x20 以下的十六进制值输入到单元格中？ OTOH，我引用的代码已经在工作了。

【解决方案2】：

其他人的努力和建议帮助我找到了正确的答案；我正在发布我编写的用于计算 CRC8 的通用函数。它给了我想要的结果，我还对照其他 CRC 计算器进行了检查。

'GENERATE THE CRC 

Function CRCPrateek(ByVal crcrng As Range) As Long
Dim crc As Byte
Dim length As Byte
Dim Hexbyte As String
Dim DecByte As Byte
Dim i As Byte

' Initial CRC seed is Zero
crc = &H0

'The real part of the CRC. Where I commented "Polynomial", it used to be a # define
'Polynomial 7. I replaced the word Polynomial with 7, however that means the 7 may
'be subject to change depending on the version of the crc you are running.

'To loop it for each cell in the range
For Each cel In crcrng
    'Verify if there is atleast one cell to work on
 '  If Len(cel) > 0 Then
       DecByte = cel.Value
       crc = crc Xor DecByte
       For i = 0 To 7
            If ((crc And &H80) <> 0) Then
                crc = ShiftLeft(crc, 1)
                crc = crc Xor 7
            Else
                crc = ShiftLeft(crc, 1)
            End If
       Next
  ' End If
Next

CRCPrateek = crc
End Function    

Function ShiftLeft(ByVal Num As Byte, ByVal Places As Byte) As Byte
ShiftLeft = ((Num * (2 ^ Places)) And &HFF)
End Function

'END OF CRC

在调用上述函数时，您唯一需要在这里作为参数传递的是单元格的范围（它具有小数（在单元格中使用 HEX2DEC）值。

'EXAMPLE CALL TO CRC FUNCTION FROM A SUB

'select the crc Range
Set crcrng = Range("I88", "U88")
crc = CRCPrateek(crcrng)
Sheet1.Cells(88, 22).Value = crc
MsgBox ("CRC value is " & Sheet1.Cells(86, 22).Value & "(in HEX) ")

注意：此函数将输入值作为小数，以十进制计算 CRC 值，稍后返回 CRC 值后，您可以将其存储在任何其他单元格中并使用单元格中的公式 DEC2HEX 转换回十六进制

【讨论】：