md5-хеш в Delphi создан с помощью модуля IdHashMessageDigest, идущей вместе с Indy:

uses IdHashMessageDigest;
...
function md5(const s:ansistring):ansistring;
begin
with TIdHashMessageDigest5.Create do
try
Result:=AnsiLowerCase(HashStringAsHex(s));
finally
Free;
end;
end;

Как выглядит md5 функция на OpenSSL:

function OpenaSSL_md5(const source:ansistring):AnsiString;
var
_md5:md5_ctx;
i:Byte;
Hash:array[0..MD5_DIGEST_LENGTH] of AnsiChar;
begin
if MD5_Init(@_md5)<>1 then exit;

MD5_Update(@_md5, @source[1], Length(source));
MD5_Final(@Hash, @_md5);

for i:=0 to MD5_DIGEST_LENGTH-1 do
result:=result+IntToHex(Ord(Hash[I]), 2);

result:=AnsiLowerCase(result);
end;

Программа Hasher, создающую различные типы хешей.



Можно сгенерировать следующие хеши: mdc2, md4, md5, sha, sha-1, sha-224, sha-256, sha-384, sha-512, ripemd-160.

Скачать программу по Авторизуйтесь, для доступа к ссылке
--------