delphi MD5

[bilibian]

Привет!

Какие решения можно использовать для реализации md5 в delphi?

[bilibian]

Уже решил задачу. Использовал это:

uses IdHashMessageDigest

function md5(s: string): string;
begin
  Result := '';
  with TIdHashMessageDigest5.Create do
  try
    Result := AnsiLowerCase(HashStringAsHex(s));
  finally
    Free;
  end;
end;