CRC-Prüfsumme CCITT C++ in Object Pascal übersetzen?

[Markus Förster]

Hallo, ich möchte für ein Zahlungsterminal eine Schnittstelle mit CRC-Prüfsumme programmieren.

Als Muster habe ich einen C++ Quellcode bekommen, den ich nicht in Object Pascal übersetzt kriege.

Hat jemand Erfahrung mit so etwas oder kann mir diesen übersetzen?

Hier der Quellcode :
<PRE>
/*-------------------------------------------------------------------------*
/
unsigned int crc16update (unsigned int crc, char cData)
{
unsigned int bitlen,akku;

bitlen = 8;
while(bitlen --)
{
akku = cData ^ crc;
crc >>= 1;
if(akku & 1)
crc ^= 0x8408;
cData >>= 1;
}
return(crc);
}
/*-------------------------------------------------------------------------*
/
>/PRE>