有人可以帮我用 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;
}
-
0xFFFF
翻译为$FFFF
-
&
翻译为and
-
^
翻译为xor
-
<<
翻译为shl
-
>>
翻译为shr
-
x ^= y
翻译为x := x xor y
, 类似的&=
, <<=
, etc.
这些运算符在 Delphi 中通常具有较高的优先级,因此它们通常需要将其参数放在括号中。
我很确定 Delphi 还有很多 CRC16 等的其他实现,请参见例如提高 Crc16 计算速度 https://stackoverflow.com/questions/3810482/improve-speed-on-crc16-calculation
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)