da ist wohl beim letzten Umstellen was untergegangen
es wird einfach nur der erechnete Hash nicht gespeichert
Delphi-Quellcode:
// in (Unit FHash)
Procedure ThxCRC32.Update(Input: Pointer; inLen: LongWord);
// nach
LOOP @@Loop
// DEC &inLen; JNZ @@Loop
// das einfügen
MOV EDX, [ESP + 4]
MOV [EDX], &Self
Die Ausgabe lautet nun c2412435.
Allerdings frag ich mich grad, warum .asHexString eine andere Reinfolge hat.
Also im alten Project (als Klasse) lief es noch und ich hatte den selben Hash raus wie Hagen's
DEC 
jetzt müßte ich nur noch wissen welche Werte korreckt sind ... hab hier grad keine Vergleichsmöglichkeit.
Delphi-Quellcode:
const
abc: array[0..2] of char = 'abc';
var
hash: LongWord;
crc: ThxCRC32;
Begin
CRC.InitT;
hash := CRC.Calc(@abc, 3);
WriteLn(IntToHex(hash, 8));
WriteLn(CRC.asHexString);
CRC.CalcFile(ParamStr(0), hash);
WriteLn(IntToHex(hash, 8));
ReadLn;
Zitat:
c2412435
5342142c
4b89e4f1
errechnet mit Standard-Polynom $EDB88320
Und was ThxCRC32.CalcFile bei dir hat, kann ich so nicht nachvollziehen ... hier läuft es jedenfalls und beim Debuggen bin ich auch in die Schleife reingekommen.
[add]
so, in den anderen Hashs ist auch der Wurm drin.
Delphi-Quellcode:
const
abc: array[0..2] of char = 'abc';
var
hash: FHash.MD5_DIGEST;
md5_1: ThMD5;
md5_2: ThxMD5;
Begin
hash := md5_1.Calc(@abc, 3);
WriteLn(md5_1.asHexString);
hash := md5_2.Calc(@abc, 3);
WriteLn(md5_2.asHexString);
md5_1.CalcFile(ParamStr(0), hash);
WriteLn(md5_1.asHexString);
md5_2.CalcFile(ParamStr(0), hash);
WriteLn(md5_2.asHexString);
ReadLn;
Zitat:
900150983cd24fb0d6963f7d28e17f72
c5b151b6fe900681fedcba9876543210
ce3f7e686afa6a12b5e343c840d30afa
3fa5b06d57eeb9bf0000000000000000
Hier stimmt definitiv auch etwas nicht ... also ist aktuell von den Thx-Funktionen abzuraten.
Die ThMD5 und ThSHA sollten aber funktionieren.