MD5 на FreePascal

[Tamachi]

Как написать md5-кодирование на FreePascal?

[Deepthroat]

По-моему, уже все написано. Разве в комплекте не идет модуль md5? Если не идет, то должен подойти модуль от Delphi.

[Tamachi]

Ты знаешь где конкретно оно есть в FPC/Delphi?

[Padre_Mortius]

fpc\source\base\hash\md5.pp

[Yurakl]

При написании реализации MD5 не может найти библиотеку lbc. где ее можно взять, подскажите пожалуйста?

Добавлено спустя 1 минуту 9 секунд:
пишу прогу в лазарусе под линуксом

[Mr.Smart]

Странно. Модуль md5.pp не использует не какие функции из libc.

[Padre_Mortius]

В смысле при написании реализации? Она уже вроде реализована.
Использовал в линуксе по лазарем. Никаких библиотек не требовала

[Yurakl]

а как тогда при помощи этого модуля можно закодировать строку не подскажите???

[Padre_Mortius]

Код: Выделить всё

uses ..., md5, LCLProc;

function Get_md5hash(aStr: UTF8String): ansistring;
var
  a: TMDDigest;
  i: integer;
begin
  Result := '';
  a      := MD5String(aStr);
  for i := Low(a) to High(a) do
    Result := Result + IntToHex(a[i], 1);
end;
.....
var
  s: AnsiString;
begin
.......
  s := Get_md5hash('test');
.....
end;


[Sergei I. Gorelkin]

Для перевода хэша в печатный вид есть ф-ция mdprint().

[Yurakl]

а вот эта функция

Код: Выделить всё

  s := ConvertPass(aPwd);

она откуда берется???

Добавлено спустя 2 минуты 11 секунд:
Sergei I. Gorelkin
спасибо при помощи этой функции все выводится, однако получаются разные результаты при кодировке под виндой и под линуксом. почему?

[Padre_Mortius]

поправил. не изменил после копирования из проекта

[Yurakl]

Результаты все равно разные.
В windows в delphi я использовал вот такую функцию

Код: Выделить всё

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

[Mr.Smart]

Я пользуюсь данной функцией (конкретно MD5Print(MD5String(...))) и ни какой разницы не заметил.

Добавлено спустя 58 секунд:
Более того данная реализация совместима с MD5 хешами реализованными в других ПО.

[Yurakl]

исправил, мой косяк был
Спасибо за помощь:)