CRC32 mit DEC erzeugt stimmt nicht?

[BlueStarHH]

Hallo,

ich benutze das DEC von Hagen. Ich habe eine Textdatei die nur den String 123456789 enthält. Erzeuge ich mit der folgenden Funktion den CRC32, erhalte ich 340BC6D9.

Delphi-Quellcode:

function CRC32CalcFile(const FileName:String): String;
var 
  FS: TFileStream;
begin 
  FS := TFileStream.Create(FileName, fmOpenRead);
  try 
    result := IntToHex(CRCCalcEx(CRC_32CCITT, FS.Read), 4);
  finally 
    FS.Free;
  end; 
end;

Wenn ich jedoch mit dieser Funktion mit dem selben String 123456789 den CRC32 erzeuge, erhalte ich CBF43926.

Delphi-Quellcode:

const
  Buf = '123456789';

  result := IntToHex(CRCCalc(CRC_32CCITT, PAnsiChar(Buf)^, Length(Buf)), 4);

Müssten nicht bei beiden Funktionen CBF43926 zurückgegeben werden? Laut den Webseiten http://www.pvlteam.com/doc/crc/testonline.aspx und
http://www.hashsum.com ist CBF43926 der richtige CRC32. Die erste Webseite sagt, dass 340BC6D9 ein CRC32_jamcrc ist. Was muss geändert werden, damit ich auch bei der Datei CBF43926 herausbekomme? Danke!

[himitsu]

du mußt auch das richtige Polynom zur Berechnung verwenden

also vermutlich statt CRC_32CCITT irgendwas Anderes

am Häufigsten wird einer dieser beiden Polynome verwendet > $EDB88320 oder $04C11DB7
ich weiß jetzt aber nicht, welchem Typ diese in Hagens DEC entsprechen.

[add]
ps: http://www.delphipraxis.net/internal...=991917#991917

[BlueStarHH]

Zitat von himitsu:

du mußt auch das richtige Polynom zur Berechnung verwenden

also vermutlich statt CRC_32CCITT irgendwas

Ich verwende ja in meinen beiden Funktione das selbe Polynom (CRC_32CCITT). Also müsste doch bei meinen beiden Funktionen das selbe rauskommen. CRC_32CCITT ($04C11DB7) stimmt laut verschiedener Webseiten.

[himitsu]

hmmm, dann stimmt wohl etwas nicht


du weißt, daß Buf in diesem Fall ein UnicodeString ist?

Delphi-Quellcode:

const
  Buf = '123456789';

  result := IntToHex(CRCCalc(CRC_32CCITT, PAnsiChar(Buf)^, Length(Buf)), 4);

also ist Buf bei dir effektiv nur
Buf = AnsiString('1'#0'2'#0'3'#0'4'#0'5'); #wobei PAnsiChar und ein WideString nicht so gut passen und da sollte es eigentlich eine Meldung seitens Delphi geben


versuch mal

Delphi-Quellcode:

const
  Buf: AnsiString = '123456789';

  result := IntToHex(CRCCalc(CRC_32CCITT, PAnsiChar(Buf)^, Length(Buf)), 4);

[gammatester]

Versuchs mal mit CRC_32 statt CRC_32CCITT.

[BlueStarHH]

Zitat von himitsu:

versuch mal

Delphi-Quellcode:

const
  Buf: AnsiString = '123456789';

  result := IntToHex(CRCCalc(CRC_32CCITT, PAnsiChar(Buf)^, Length(Buf)), 4);

Klappt auch nicht. Beide Funktionen liefern ein anderen CRC. Der CRC vom oberen Code stimmt ja. Nur die CRC32CalcFile aus meinem Eingangspost liefert einen falschen Wert.

[BlueStarHH]

Zitat von gammatester:

Versuchs mal mit CRC_32 statt CRC_32CCITT.

Auch damit liefern beide Funktionen einen unterschiedlichen Wert. Ich glaube nicht das es am Polynom liegt, den beim selben Polynom (egal ob CRC_32, CRC_32CCITT oder was auch immer) müssen beide Funktionen das selbe Ergebnis liefern.

[Blup]

Üblicherweise wird die CRC-Summe vor der Berechnung mit -1 initialisiert (alle Bits gesetzt).
Man kann aber auch mit 0 beginnen (alle Bits nicht gesetzt).

Um auf das gleiche Ergebnis zu kommen, muss das Ergebnis negiert werden.
$340BC6D9 xor $FFFFFFFF = $CBF43926
oder
$340BC6D9 xor -1 = $CBF43926

[gammatester]

Die Erklärung für die unterschiedlichen CRC-Werte hat himitsu doch schon gegeben. Wenn in Deiner Datei die neun Asciizeichen '1'..'9' bzw #49..#57 stehen, und die CRC $CBF43926 sein soll, so muss definitiv diese CRC genommenen werden, mit folgenden Rocksoft-Parametern:

Code:

CRC32_Zip: TCRCParam = (poly   : longint($04C11DB7);
                        init   : longint($FFFFFFFF);
                        xorout : longint($FFFFFFFF);
                        check  : longint($CBF43926);
                        width  : 32;
                        refin  : true;
                        refout : true;
                        name   : 'CRC32/Zip');
                       {alias  : 'CRC-32'}
                       {alias  : 'CRC-32/ADCCP'}
                       {alias  : 'PKZIP'}

Und beim DEC ist das nun mal CRC_32.

Schreib mal Deinen String in eine Datei und schau nach, was als Bytes drin steht. Im übrigen ist es eh nicht gut, CRCs auf Strings loszulassen, wenn man nicht weiß, was eigentlich unter der Hand passiert. Leider verschleiern das viele Blackbox-Bibliotheken.

[BlueStarHH]

Danke, mit der Lösung von Blup klappt es!