#1 2021.11.19 10:36:29
0
md5-хеш в Delphi создан с помощью модуля IdHashMessageDigest, идущей вместе с Indy:
Как выглядит md5 функция на OpenSSL:
Программа Hasher, создающую различные типы хешей.

Можно сгенерировать следующие хеши: mdc2, md4, md5, sha, sha-1, sha-224, sha-256, sha-384, sha-512, ripemd-160.
Скачать программу по Авторизуйтесь, для доступа к ссылке
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.
Скачать программу по Авторизуйтесь, для доступа к ссылке