在 Delphi 中获取 PDF MD5 哈希

Question

我正在使用 Delphi 从 pdf 文件生成哈希 MD5。 我想生成与 CouchDB 附件哈希相同的哈希， 但我得到了不同的结果。

我生成哈希的函数：

function TPliki.generujHashMD5(zawartoscPliku: TMemoryStream): string;
var
  tekstPliku: string;

begin
  setString(tekstPliku, PAnsiChar(zawartoscPliku.Memory), zawartoscPliku.Size);
  result := THashMD5.GetHashString(tekstPliku);
end;

1. 在函数之前，我使用 TMemoryStream.LoadFromFile(path) 将文件加载到 TMemoryStream
2. 调用这个函数TPliki.GenerujHashMD5(fileContent): string;
3. 在此函数中，我生成哈希并返回带有结果的字符串。 当我从 Base64 CouchDB Hash 解码时，我的哈希值不同。

CouchDB 中的附件设置：

compressible_types: text/*, application/javascript, application/json, application/xml
compression_level: 0

Answer 1

您的代码的问题是您正在将 PDF 文件的内容 - 二进制数据转换为 Unicode 字符串，并且您正在更改其内容。这会改变你的哈希值。

您应该以不同的方式使用THashMD5，并直接提供二进制数据而不将其转换为字符串。

function TPliki.generujHashMD5(zawartoscPliku: TMemoryStream): string;
var
  hash: THashMD5;
begin
  hash := THashMD5.Create;
  hash.Update(zawartoscPliku.Memory, zawartoscPliku.Size);
  result := hash.HashAsString;
end;