php - MD5 文件哈希 - 将 Delphi 输出与 PHP md5_file 函数匹配

Question

我目前正在 Delphi 7 中使用此代码进行 md5 散列:

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 函数相同的输出

md5_file()

我环顾四周，常见问题似乎是编码而不是用零填充，但我不知道如何使用 TIdHashMessageDigest5 执行这些操作，也不知道它们是否已在函数中完成。

如果有人有任何用于此目的的函数，我们将不胜感激!

或者可能是一种更改 php 函数以匹配 Indy 函数的方法

Answer 1

将您的结果与以下内容进行比较:

• md5(file_get_contents( ))(PHP)

• hash("md5", ) 来自 PHP hash framework extension

• 命令行程序 md5(1) 又名md5sum(1)

如果除了一个人之外的所有人都同意总和是多少，那么你就知道在哪里挖掘。