Реализация Md5 В Delphi

[Sascha]

Реализовать функцию md5 в Delphi достаточно просто.

Чтобы применить алгоритм хеширования, первое сто нам нужно подключить модуль IdHashMessageDigest.

Функция хеширования выглядит следующим образом:

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

На вход мы подаем строку, которую хотим защифровать, на выходи получаем шифрованную строку. Все предельно просто. Пример использования функции на практике вы можете найти в статье Алгоритм md5.