MD5 в дельфи

05.10.2011 01:37 Обновлено: 18.05.2022 14:32

MD5 в дельфи

Гугление по запросу delphi md5 почему-то приводит на сайты, где эта функция самописная. Я несколько раз задавался вопросом: неужели в такой навороченной системе нет встроенного md5.

Есть!

Копание в хелпе привели меня к правильному запросу для гугла: delphi TIdHashMessageDigest5

Вуаля! Нашёл. Исправил. Заработало.

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

function md5(s: string): string;

begin

Result := '';

with TIdHashMessageDigest5.Create do

try

Result := AnsiLowerCase(HashStringAsHex(s));

finally

Free;

end;

Вот и все дела 🙂