请求实现Excel版CRC32校验以检测pH值数据篡改

核心结论 #

必须使用VBA实现，因为Excel原生函数没有提供可自定义参数的CRC32计算能力，而要和Arduino端的C语言CRC32结果完全匹配，必须严格复刻其校验逻辑（包括多项式、初始值、字节处理方式等）。

实现步骤 #

1. 移植Arduino CRC32逻辑到VBA

首先要确保VBA代码的CRC32参数和Arduino端完全一致（比如多项式、初始CRC值、输入输出是否反转、最终异或值）。以下是适配标准CRC32（Arduino常用的0xEDB88320多项式）的VBA代码，同时支持浮点数（匹配Arduino的float类型存储）和字符串两种输入：

Option Explicit
Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As LongPtr)

Function CRC32(inputVal As Variant) As Long
    Dim crc As Long
    Dim polynomial As Long
    Dim i As Integer, j As Integer
    Dim byteData As Byte
    Dim dataBytes() As Byte
    
    ' 匹配Arduino端CRC32参数：多项式0xEDB88320，初始值0xFFFFFFFF，最终异或0xFFFFFFFF
    polynomial = &HEDB88320
    crc = &HFFFFFFFF
    
    ' 根据输入类型转换为对应字节序列（必须和Arduino端数据传输格式一致）
    Select Case VarType(inputVal)
        Case vbDouble, vbSingle
            ' 转换为Arduino的4字节float（IEEE754单精度）
            dataBytes = FloatToBytes(CSng(inputVal))
        Case vbString
            ' 转换为ASCII字节（如果Arduino端按字符串传输pH值）
            dataBytes = StrConv(inputVal, vbFromUnicode)
        Case vbInteger, vbLong, vbDecimal
            ' 数值类型转字符串后按ASCII处理（按需调整）
            dataBytes = StrConv(CStr(inputVal), vbFromUnicode)
        Case Else
            CRC32 = -1
            Exit Function
    End Select
    
    ' CRC计算核心逻辑
    For i = LBound(dataBytes) To UBound(dataBytes)
        byteData = dataBytes(i)
        crc = crc Xor byteData
        For j = 0 To 7
            crc = IIf((crc And 1) = 1, (crc \ 2) Xor polynomial, crc \ 2)
        Next j
    Next i
    
    ' 最终异或处理
    CRC32 = crc Xor &HFFFFFFFF
End Function

' 辅助函数：将单精度浮点数转为4字节数组（匹配Arduino float存储）
Private Function FloatToBytes(fVal As Single) As Byte()
    Dim byteArr(3) As Byte
    CopyMemory byteArr(0), fVal, 4
    FloatToBytes = byteArr
End Function

2. 在Excel中应用校验逻辑

假设你的pH值在A列，Arduino传输的原校验值在B列：

• 检测篡改：在C列（比如C2单元格）输入公式：=IF(CRC32(A2)=B2,"","数据已篡改")，下拉填充即可。修改A列pH值后，C列会自动提示是否篡改。
• 生成新校验值：在D列（比如D2单元格）输入公式：=CRC32(A2)，生成的结果可直接与B列原校验值对比。

关键注意事项 #

• 参数匹配：如果Arduino端使用的是非标准CRC32变体（比如不同多项式、初始值），需要修改VBA代码中polynomial、初始crc值以及最终异或值，完全对齐Arduino的代码逻辑。
• 数据格式：必须确保VBA中转换的字节序列和Arduino端传输pH值时的字节序列一致（比如Arduino是把float直接转字节传输，还是转成字符串传输），否则校验结果会不匹配。
• 宏启用：使用前需确保Excel启用宏，按Alt+F11打开VBA编辑器，插入模块后粘贴上述代码。

内容的提问来源于stack exchange，提问作者Kendo Kenta