Jak obliczyć CRC16 ciągu znaków STRING

0

Witam chcę obliczyć crc16 ciągu znaków typu string

np:

function Crc16 (Dane : String): Longint;
0 
function CRCArray16(text: String):Word;
var
  crc : LongInt;
  i,j : Integer;
begin
  crc := $FFFF;
  for i := 1 to Length(text) do begin
    crc := Ord(text[i]) xor crc;
    for j := 1 to 8 do begin
      if (CRC and 1) = 1
        then CRC := (CRC shr 1) xor $A001
        else CRC := CRC shr 1;
    end;
  end;
  Result := crc;
end;

lub
http://4programmers.net/Delphi/FAQ/Jak_wylicza%C4%87_sum%C4%99_kontroln%C4%85_CRC-16

1 użytkowników online, w tym zalogowanych: 0, gości: 1