CRC-16 berechnen

[Medium]

Probiern wir's mal:

Delphi-Quellcode:

function InternetChecksum(data: PByte; byteCount: Cardinal): Word;
var
  sum: Cardinal;
begin
  sum := 0;
  while byteCount > 1 do
  begin
    Inc(sum, PWord(data)^);
    Inc(data, 2);
    Dec(byteCount, 2)
  end;
  //  Add left-over byte, if any
  if byteCount > 0 then
    Inc(sum, PByte(data)^);

  //  Fold 32-bit sum to 16 bits
  while (sum shr 16) > 0 do
    sum := (sum and $ffff) + (sum shr 16);

  result := not Word(sum);
end;

Mehr oder minder 1:1 übersetzt und komplett ungetestet. Ein wenig gemein ist, dass die Funktion für beliebig lange Inputs ist, und hier im Grunde einen Pointer auf das erste Element eines packed array of Byte erwartet, bzw. irgend eine andere Datenstruktur die die einzelnen Bytes der Eingangssequenz am Stück hintereinander stehen hat. Da wäre dann die Frage wie du diese Daten in deinem Programm vorliegen hast, um da evtl. noch zu vereinfachen/optimieren, aber das da oben ist ziemlich direkt übersetzt.

Edit: Ach himi... nicht so schnell! (Aber danke für die richtige Variante bei den Pointer-Casts )
Edit2: Hmm, du hast einen "Pointer" statt "PByte". Würde das beim Inc() nicht um 2x32 Bit verschieben? Müsstes nicht 2 Bytes sein?