Ansonsten nimmst du die
Unit aus deinem ersten Link. Dort gibt es die Funktion "RecountCRC()" die du benutzen kannst.
Delphi-Quellcode:
function RecountCRC(b: byte; CrcOld: Longint): Longint;
begin
RecountCRC := CRCTable[byte(CrcOld xor Longint(b))] xor ((CrcOld shr 8) and $00FFFFFF)
end;
function CRCString(const Value: String): Cardinal;
var
I: Integer;
begin
Result := $FFFFFFFF; // Init Wert der CRC, schau im PHP nach
for I := 1 to Length(Value) do
Result := RecountCRC(Ord(Value[I]), Result);
Result := not Result; // eventl. Finit Wert, schau im PHP nach
end;
Gruß Hagen