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

发布于 2024-08-16 09:40:21 字数 619 浏览 4 评论 0原文

我目前正在 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;

并且我试图获得与

md5_file()

我查看过的 PHP 函数相同的输出，常见问题似乎是编码而不是用零填充，但是我不知道如何使用 TIdHashMessageDigest5 执行这些操作，也不知道它们是否已在函数中完成。

如果有人有任何用于此目的的功能，我们将不胜感激！

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

原文

I'm currently using this code for md5 hashing in 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;

and I'm trying to get the output the same as the PHP function

md5_file()

I've had a look around and common problems seem to be encoding and not padding with zeroes, but I don't know how to do either of these using TIdHashMessageDigest5 or whether they are already done in the function.

If anyone has any functions they use for this it'd be very appreciated!

Or possibly a way of changing the php function to match the Indy one

分享到QQ

分享到微博