Алгоритм MD5 в Delphi

Оказывается реализация алгоритма MD5 уже существует в Delphi, - в пакете Indy:

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

Обратите внимание, что класс TIdHashMessageDigest5 объявлен в модуле IdHashMessageDigest.pas.

См. также:
Настоящий iconv для Delphi это возможно!
Функция сравнения версий программы
Универсальная функция открытия окна браузера из Delphi