Um das zu kompletieren. Gibt es jemanden der eine funktionierende Implementierung (Datei / Stream hashen) mit den WE-Units fertig bekommt?
Also ohne diese WE units zu kennen, müsste es so gehen :
Code:
function MD5(const AFileName: String): string;
var
Context: THashContext;
Hash: TMD5Digest;
aStream : TMemoryStream;
begin
aStream := TTMemoryStream.Create;
aStream.LoadFromFile(AFileName);
MD5Init(Context);
MD5Update(Context, aStream.Memory^, aStream.Size);
MD5Final(Context, Hash);
Result := string(Mem_Util.HexStr(@Hash, SizeOf(Hash)));
aStream.Free;
end;