Hi,
ich verwende THash_Md5 aus dem DEC um den Md5-Hash einer Datei zu ermitteln. Ich habe dafür folgendes Testprogramm geschrieben:

zusammenfalten · markieren

Delphi-Quellcode:

program FileListBuilder;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  BCUtils,
  DECHash,
  Classes;

var
  FileList: TStrings;
  i: Integer;
  md5: THash_MD5;
begin
  md5 := THash_MD5.Create;
  FileList := TStringList.Create;
  FindAllFiles(FileList, GoOneDirUp(ExtractFilePath(ParamStr(0))), '*', False, False, True);
  for i := 0 to FileList.Count -1 do
    FileList[i] := ExtractFileName(FileList[i]) + '=' + md5.CalcFile(FileList[i]);
  FileList.SaveToFile(ExtractFilePath(ParamStr(0)) + 'filelist.dat');
  FileList.Free;
  md5.Free;
end.

Leider kommt bei jeder Datei nur Quark raus:

markieren

Code:

BlackListDomains.dat=h3ô@IVRÚÐêKó=mª
BlackListNames.dat=çVp1•ßî^A9�‡ãÆž
BlackListValues.dat=˜Òïý†¡ñ+f_WCÃ
CookieCrumbler.exe=*`.QGáH\ZOPŒZ_
sqlite3.dll=|-Är[˳µòu~±D3%
Update.exe=çÅ
µdx~¨ö˜F^ï e5

Der Rückgabewert von CalcFile ist vom Typ Binary welcher ein RawByteString ist. Ich habe auch schon versucht den Rückgabewert nach String zu casten. Ohne Erfolg... Was mache ich falsch?

Deine Erwartungshaltung ist wahrscheinlich falsch

Soll heißen: Du erwartest wahrscheinlich einen Hex-String wie z.B. d41d8cd98f00b204e9800998ecf8427e

Dass die Ausgabe derartig formatiert werden soll, musst du erst noch mitteilen

P.S.: 2 Buchstaben im Hex-String entsprechen ja 1 Byte ...

P.P.S.: Guck mal da: http://www.delphipraxis.net/internal...=506584#506584

Guten Abend,

vielleicht solltest Du die md5 Hashwerte in einer Hex-Notation ausgeben.
Hagen hat da bestimmt schon eine Routine für vorgesehen.

Grüße
Klaus

Zitat von jfheins:

P.P.S.: Guck mal da: http://www.delphipraxis.net/internal...=506584#506584

Perfekt Vielen Dank