delphi - CRC-CCITT (0xFFFF) 功能？

Question

有人可以帮我用 Delphi 实现 CRC-CCITT (0xFFFF) 吗？

已经获得 Java 版本，但对如何将其移植到 Delphi 感到困惑

public static int CRC16CCITT(byte[] bytes) {
    int crc = 0xFFFF;          // initial value
    int polynomial = 0x1021;   // 0001 0000 0010 0001  (0, 5, 12) 

    for (byte b : bytes) {
        for (int i = 0; i < 8; i++) {
            boolean bit = ((b   >> (7-i) & 1) == 1);
            boolean c15 = ((crc >> 15    & 1) == 1);
            crc <<= 1;
            if (c15 ^ bit) crc ^= polynomial;
         }
    }

    crc &= 0xffff;
    //System.out.println("CRC16-CCITT = " + Integer.toHexString(crc));
    return crc;
}

以及 PHP 实现

<?php
function crc16($data)
 {
   $crc = 0xFFFF;
   for ($i = 0; $i < strlen($data); $i++)
   {
     $x = (($crc >> 8) ^ ord($data[$i])) & 0xFF;
     $x ^= $x >> 4;
     $crc = (($crc << 8) ^ ($x << 12) ^ ($x << 5) ^ $x) & 0xFFFF;
   }
   return $crc;
 }

Answer 1

• 0xFFFF翻译为$FFFF
• &翻译为and
• ^翻译为xor
• <<翻译为shl
• >>翻译为shr
• x ^= y翻译为x := x xor y ，类似于 &= , <<=等等

这些运算符在 Delphi 中通常具有更高的优先级，因此它们通常需要将其参数放在括号中。

我很确定 Delphi 还有很多 CRC16 等的其他实现，请参见例如Improve speed on Crc16 calculation