eben ausprobiert, Dein MD5 Code funktioniert. Habe dazu ne TXT Datei genommen & die manuell abgeändert (1 Zeichen) = anderer Hashwert
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);
finally
fs.Free;
idmd5.Free;
end;