delphi - TIdHMACSHA256.TIdHMACSHA384.TIdHMACSHA512 在 Delphi 中不起作用

Question

为什么 TIdHMACSHA256+ (Indy/delphi) 的 HashValue 函数总是返回空？例如，下面的代码不起作用。

var
  Hash: TIdHMACSHA256 ;
  HashValue: TBytes;
begin
  SetCurrentDir(ExtractFilePath(ParamStr(0)));
  Hash := TIdHMACSHA256 .Create;
  try
    Hash.Key := TEncoding.ASCII.GetBytes('devaee2');
    HashValue := Hash.HashValue(TFile.ReadAllBytes('menu.xml'));
    // HashValue is an empty array, why?
    Tag := Length(HashValue);
    TFile.WriteAllBytes('menu.xml.hash', HashValue);

  finally
    FreeAndNil(Hash);
  end;
end;

Answer 1

问题是您尚未成功加载实现哈希所需的 OpenSSL 库。调用 IdSSLOpenSSL.LoadOpenSSLLibrary。您还需要确保您的程序可以找到合适的 OpenSSL DLL。