Шифрование md5

1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (Пока оценок нет)
Загрузка...

Реализация шифрования строки в 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

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *