Moin,

ich nutze Hagens CRC-Unit um einen CRC-Check in mein Programm einzubauen:

zusammenfalten · markieren

Delphi-Quellcode:

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

Das funktioniert auch bestens, nur leider ist der Ergebniswert dieser Funktion völlig anders als die CRC32-Werte, die mir WinRAR anzeigt. Eigentlich dachte ich ein CRC-Check wäre eindeutig, oder mache ich irgendwo etwas falsch?

Es gibt nicht einen CRC-Wert. Das Ergebnis des CRC-Hashverfahrens hängt vom verwendeten Startwert, XOR-Endwert und Polynom ab. Das heißt du musst herausfinden wie der CRC-Wert bei WinRar ermittelt wird und diese Parameter dann der DEC übergeben.

Tatsächlich? Ich dachte ein CRC32-Check wäre wie ein MD5-Hash einmalig und eindeutig...

Aber ok, dann ist ja alles ok, danke.

Probier mal folgendes:

• Startwert: $FFFFFFFF
• Finaler XOR-Wert: $FFFFFFFF
• Polynom: $EDB88320

zusammenfalten · markieren

Delphi-Quellcode:

function GetCRC32Check(FileName:String): String;

  function Swap(Value: Cardinal): Cardinal;
  asm
     BSWAP EAX
  end;

var
  FS: TFileStream;
  CRC: TCRCDef;
begin
  FS := TFileStream.Create(FileName, fmOpenRead);
  try
    CRCSetup(CRC, $EDB88320, 32, $FFFFFFFF, $FFFFFFFF, True/False);
    CRCCodeEx(CRC, FS.Read);
    Result := IntToHex(Swap(CRCDone(CRC)), 4);
  finally
    FS.Free;
  end;
end;

1.) das Polynom $EDB88320 ist nicht das CCITT Polynom
2.) im obigen CRCSetup() den True/False Parameter testen
3.) das Swap() eventuell weglassen, ich meine das die Big Endian benutzen
4.) ob das Polynom $EDB88320 richtig ist weis ich allerdings nicht

Gruß Hagen

Danke euch beiden, ich werde das später mal testen.