Einzelnen Beitrag anzeigen

franktron

Registriert seit: 11. Nov 2003
Ort: Oldenburg
1.446 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#1

Problem mit Hash Werten

  Alt 10. Jan 2013, 11:20
Ich habe ein Prog was Daten abgleichen tut dazu erzeuge ich aus eine Tabelle eine XML Datei, aus der wiederum erstelle ich eine Hash Wert (MD5,THash_RipeMD256 hab beide Probiert)
Jetzt ist der Hashwert aber immer gleich wenn ich z.b. nur den Namen um 1 Zeichen ändere z.b. Kind zu Kind 1.

Wie kann ich das ändern das ich jede Änderung mitkriege.

Hier der Hash Code

Delphi-Quellcode:
function MD5(const fileName : string) : string;
var
   //idmd5 : TIdHashMessageDigest5;
   fs : TFileStream;
begin
   //idmd5 := TIdHashMessageDigest5.Create;
   fs := TFileStream.Create(fileName, fmOpenRead OR fmShareDenyWrite);
    try
     //result := idmd5.HashStreamAsHex(fs);
    Result:=THash_RipeMD256.CalcStream(fs,fs.Size,TFormat_HEX);
   finally
     fs.Free;
       //idmd5.Free;
    end;
end
Frank
Tux sein Lieblingsquellcode
While anzfische<TuxSatt do begin
Fisch:=TFisch.Create; Tux.EssenFisch(Fisch); Fisch.Free;inc(anzfische); end;
  Mit Zitat antworten Zitat