Шифрование md5

Реализация шифрования строки в Delphi EX7

Для шифрования используем md5. Для этого подключаем модуль IdHashMessageDigest

uses

IdHashMessageDigest;

. . .

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

. . .

на вход функции: строка, которую шифровать

на выход: шифрованная строка

Использование

Edit1.Text := md5('1234');

// результат

// 81dc9bdb52d04dc20036dbd8313ed055