MD5 32 Bit und 64 Bit

[Weeze14]

Hier kann nicht viel schieflaufen denke ich:

Delphi-Quellcode:

uses
  SysUtils, IdHashMessageDigest, IdHash;

function MD5String(const Input: String): String;
var
 MD5: TIdHashMessageDigest5;
begin
 MD5 := TIdHashMessageDigest5.Create;
 Result := Trim(LowerCase(MD5.HashStringAsHex(Input)));
 MD5.Free;
end;