CRC-CCITT-16 0x8811

[Blamaster]

Hmm,

wenn ich den Wiki Code benutze komme ich auch nicht auf die passende CRC

Code:

function crc16_2(const buffer: array of byte): Word;
var
  CRC: Word;
  Poly: Word;
  N, I: Integer;
  B: Byte;
begin
  Poly := $8811;
  CRC := $FFFF;
  for i := 0 to length(Buffer) - 1 do
  begin
    B := Buffer[I];
    CRC := CRC xor B;
    for N := 1 to 8 do
      if (CRC and 1) <> 0 then
        CRC := (CRC shr 1) xor Poly
      else
        CRC := CRC shr 1;
  end;
  Result := CRC;
end;