Un autre CRC dans ma bibliothèque est le CRC-16-CCITT ou plus court le CRC-CCITT, je suis tombé sur son utilisation dans
un tourniquet automatique. On peux le retrouver dans X.25, V.41, HDLC FCS, XMODEM, Bluetooth, PACTOR, SD et autres.

Utilisation: crc := CRC_CRTITT(packet);

unit CRC_CCITT;

interface

const
P_CCITT= $1021;
function CRC_CRTITT(packet : tbytes):word;

implementation

var
crc_table: array[0..255] of word;
crc_table_init: boolean = false;

procedure SendByte(B: Byte; var crc: word);
var
tmp, c: word;
begin
c  := $00ff and B;

tmp := (crc shr 8) xor c;
crc := (crc shl 8) xor crc_table[tmp];
end;

procedure MakeTable;
var i, j: Integer;
crc, c: word;
begin
for i := 0 to 255 do begin
crc := 0;
c := i shl 8;
for j := 0 to 7 do begin
if ((crc xor c) and $8000) > 0  then crc := ( crc shl 1 ) xor P_CCITT
else crc := crc shl 1;
c := c shl 1;
end;
crc_table[i] := crc;
end;
crc_table_init := TRUE;
end;

function CRC_CRTITT(packet : tbytes):word;
var
i: integer;
crc: word;
Begin
crc := 0;
if not crc_table_init then MakeTable;

for i := 0 to length(packet)-1 do
begin
SendByte(packet[i], crc);
end;
CRC_CRTITT := CRC;
end;
end.