Get the MD5 of strings with Delphi (Unicode and Ansi)

Since Delphi 2007, an unit is dedicated to get the Md5 of a string (Unicode or Not). You could find it in the Embarcadero Rad Studio directory, sources :

D:\Program Files (x86)\Embarcadero\RAD Studio\9.0\source\soap\wsdlimporter\MessageDigest_5.pas

Just add this unit to the uses and declare this two functions.

function GetMd5(const Value: AnsiString): string; overload;
var
hash: MessageDigest_5.IMD5;
begin
hash := MessageDigest_5.GetMD5();
hash.Update(Value);
Result := hash.AsString();
end;

function GetMd5(const Value: UnicodeString): string; overload;
var
hash: MessageDigest_5.IMD5;
begin
hash := MessageDigest_5.GetMD5();
hash.Update(Value);
Result := hash.AsString();
end;

That’s all folks !