Noch mal als "einfach lesbare" Version (wobei CRC16_TABLE halt die bekannte Tabelle darstellt). So entspricht es meiner Meinung nach dem C-Code. Funktioniert aber trotzdem nicht, wenn man die Beispiele berechnet.
Delphi-Quellcode:
function GenerateCRC16(const AValue: AnsiString): Word;
var
LChar: AnsiChar;
begin
Result := High(Result);
For LChar in AValue do
Result := Ord(LChar) xor (Result shl 8) xor CRC16_TABLE[Result shr 8];
end;
Sicher, dass die Beispiele Strings darstellen?
