Guten Morgen!
sorry - am Freitag spät Abends war ich platt, aber ich hatte eine Lösung!
Diese Seite hat mich auf die richtige Spur gebracht:
https://www.lammertbies.nl/comm/info/crc-calculation
Es handelt sich bei meiner Aufgabe um ein CCITT XMODEM CRC. So habe ich es dann gelöst:
Delphi-Quellcode:
function CAL_CRC_CCITT_XMODEM(data: PByte; len: Integer): Word;
const
poly = $1021;
var
i, j: Integer;
crc: Word;
begin
crc := 0;
for i := 0 to len-1 do
begin
crc := crc xor (Word(data^) shl 8);
for j := 0 to 7 do
begin
if (crc and $8000) > 0 then
crc := (crc shl 1) xor poly
else
crc := crc shl 1;
end;
Inc(data);
end;
Result := crc;
end;
Meinen ausdrücklichen Dank an alle Helfer hier!
Es ist wirklich schön zu wissen, dass man nach Hilfe fragen kann und diese auch bekommt.
Danke!
Gruß und und eine schöne Woche
Markus