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;