Хеширование файлов MD5 – соответствие вывода Delphi с помощью функции PHP md5_file

В настоящее время я использую этот код для хеширования md5 в Delphi 7:

function MD5(const fileName : string) : string; var idmd5 : TIdHashMessageDigest5; fs : TFileStream; begin idmd5 := TIdHashMessageDigest5.Create; fs := TFileStream.Create(fileName, fmOpenRead OR fmShareDenyWrite) ; try result := idmd5.AsHex(idmd5.HashValue(fs)) ; finally fs.Free; idmd5.Free; end; end; 

и я пытаюсь получить результат так же, как функция PHP

• php: число только хеш?
• Хеширование MD5 не совпадает с C # и PHP
• Альтернатива Md5 в PHP?
• Можете ли вы преобразовать вывод php crypt () в действительный MD5?
• PHP.net говорит, что md5 () и sha1 () непригодны для пароля?

 md5_file() 

Я смотрю вокруг, и обычные проблемы кажутся кодировкой, а не заполнением нулями, но я не знаю, как это сделать, используя TIdHashMessageDigest5 или они уже выполнены в этой функции.

Если у кого есть какие-то функции, которые они используют для этого, это будет очень полезно!

Или, возможно, способ изменения функции php для соответствия Indy one