将 C 校验和函数转换为 Lua

Question

我正在编写一个脚本来允许我的主机设备将数据文件发送到从设备。在发送文件之前，奴隶需要进行校验和计算并将其添加到我的请求的末尾。我的问题是，我不仅对编程还很陌生，而且还在努力完全掌握位操作。我目前在 Java 类中所以校验和函数所以部分函数确实具有熟悉的格式，但由于我仍在用位和位库挠头，所以我在将提供的校验和函数转换为时遇到问题路亚。

在提供C函数之前先说明如下函数:

Initialise the checksum as FFFF(hex).
For each byte
    Checksum = Checksum XOR (current Byte)
    For I = 0 to 7
        If ((Checksum AND 1)=0)
            Checksum = Right_Bit_Shift Checksum 1 bit
        Else
            Checksum = (Right_Bit_Shift Checksum 1 bit) XOR A001(hex)
        Next I
    Next Byte

这是用 C 编写的示例:

/*
 *Routine CRC takes a data string (data) "length" long and *
 *   * returns the checksum value
 *
 *NOTE   WORD = unsigned short int
 *       BYTE = unsigned char
 */

WORD CRC( BYTE *data, WORD length)
{
    WORD sum = 65535;  /*Checksum value initialised to FFFFhex */
    while (length-- > 0)
    {
        sum = ByteCRC(sum, *data++ );
    }
    return sum;
}

WORD ByteCRC( WORD sum, BYTE data)
{
    WORD i;  /* Loop counter */
    sum = sum ^ (WORD)data;
    for (i=0; i<8; i++)
    {
        if ( (sum&1) == 0)
            sum = sum>>1
        else
            sum = (sum >> 1) ^ 0xA001;
    }
    return sum;
}

现在我正在学校注册一个中级 Java 类(class)。话虽如此，我理解了这些功能的某些部分。但正如我之前所说，为了将这些函数写成 Lua 格式，我仍然没有完全理解位操作的某些方面。我正在尝试自己在 Lua 中重新创建它，但不相信我是正确的或接近的。不幸的是，我对期望的效果了解不够透彻，甚至无法尝试对此进行测试。以下是我根据所提供的信息尝试自己编写的内容:

Function CRC(data, length)
    sum = 65535
    while length > 0 do
        sum = ByteCRC(sum, data=data+1)
        length = length - 1
    end
return sum
end

Function ByteCRC(sum, data)
    sum = sum ~ data
    for i = 0, 8 do
        if ((sum & 1) = 0)
            sum = sum >> 1
        else
            sum = (sum >> 1) ~ string.char(0xA001)
        end
    end
    return sum
end

帮助我 A) 更好地写这篇文章和 B) 发现我的翻译中的任何错误的任何批评和进一步帮助都是我正在寻找的。

Answer 1

因为 lua 有位操作，所以这是相同的基本概念。这是怎么回事，有一些代码注释:

function CRC(data, length)
    sum = 65535
    local d
    for i = 1, length do
        d = string.byte(data, i)    -- get i-th element, like data[i] in C
        sum = ByteCRC(sum, d)
    end
    return sum
end

function ByteCRC(sum, data)
    sum = sum ~ data
    for i = 0, 7 do     -- lua for loop includes upper bound, so 7, not 8
        if ((sum & 1) == 0) then
            sum = sum >> 1
        else
            sum = (sum >> 1) ~ 0xA001  -- it is integer, no need for string func
        end
    end
    return sum
end

print(CRC("foo", 3));