FOXCHKSUM 算法

Question

谁知道这个函数如何计算校验和值？

我的目标是在.NET 上重写 FoxPro 应用程序，保留旧数据库，但数据库中的某些值是用此函数计算的。

---

问题已结束。

我没有注意到FOXCHKSUM已成为项目中的内部函数。

——

但是，无论如何，感谢您的提问！

Answer 1

FoxPro 校验和函数 SYS(2107) 和SYS(2007) 使用CRC16 或 CRC32 来计算校验和值。 FOXCHKSUM 函数是否可能包装这些？

Answer 2

在 Foxpro 中，您可以使用使用 FOXCHKSUM 函数的方法创建一个类。
然后将其编译为 COM dll，然后在 .NET 代码中使用它。

Answer 3

从它明显的声音来看，它试图计算一些校验和值......可能是记录级别，或特定的字段内容。我会查看原始的 VFP 代码，看看传​​递给函数调用的内容以获取结果。然后，我会研究一下也处理加密/校验和（例如 MD5）的 .Net 库。然后，您可以尝试使用相同的字符串调用标准 .net 函数，直到找到哪个函数给出相同的结果，然后您就不必处理 COM。我什至不知道 FoxChkSum 是 VFP 编码函数还是外部 .fll 或 .dll。如果是VFP代码，我也许可以帮你解密。

Answer 4

如果有人感兴趣 - 我发现 Foxpro 算法使用函数 SYS(2107) 和 SYS(2007) 计算 Crc16 和 Crc32。 （参见@Stuart DunkeId 的回答）。

它并不是真正的CRC，而是一些校验和计算。无论如何，该函数返回与 FoxPro 模拟相同的结果。

这是 C# 上的：

    public static uint Crc(byte[] bytes, uint seed = (uint)0, int lcBitLen = 16)
    {
        var laPower = new byte[] { 0x1, 0x2, 0x4, 0x8, 0x10, 0x20, 0x40, 0x80 };
        var lnBitLen = lcBitLen == 32 ? 0x8005 : 0x1021; // 1021 hex (16bit), 8005 hex (32bit)
        var lnCrc = seed == 0 ? 0xffffffff : seed;       // Reset for Each Text Block
        foreach (var byteVal in bytes)
        {
            for (var inLoop = 7; inLoop >= 0; inLoop--)
            {
                var testBit = ((lnCrc & 0x8000) == 0x8000 && (byteVal & laPower[inLoop]) != laPower[inLoop])
                              || ((lnCrc & 0x8000) != 0x8000 && (byteVal & laPower[inLoop]) == laPower[inLoop]);
                lnCrc = (lnCrc & 0x7fff)*2;
                if (testBit)
                    lnCrc = (uint)(lnCrc ^ lnBitLen);
            }
        }
        return lnCrc;
    }

Answer 5

在 Visual FoxPro 中测试稍微更新的算法（我懒得安装 C#）： CRC16 运行良好，但 CRC32 给出了不同的结果......

aa = 'bbb'
? aa
? SYS(2007,aa,0,0)
? sys2007(aa,0)

FUNCTION sys2007
LPARAMETERS lcString, lnBitFlag

LOCAL lnBitLen, lnCRC, inLoop, n
lnBitLen = IIF(BITTEST(m.lnBitFlag,0), 0x8005, 0x1021)

lnCRC = 0xffffffff

FOR n = 1 TO LEN(m.lcString)
  byteVal = ASC(SUBSTR(m.lcString, m.n, 1))
  FOR inLoop = 7 TO 0 STEP -1
    testbit = BITTEST(m.lnCRC, 15) AND !BITTEST(byteVal, inLoop) OR ;
              !BITTEST(m.lnCRC, 15) AND BITTEST(byteVal, inLoop)
    lnCRC = BITLSHIFT(BITAND(m.lnCRC, 0x7fff), 1)
    IF testbit
      lnCRC = BITXOR(m.lnCRC, m.lnBitLen)
    ENDIF
  NEXT
NEXT

RETURN m.lnCRc