delphi 计算hmac_SHA256

实现 HMAC-SHA256 计算
为了在 Delphi 中实现 HMAC-SHA256 的计算，可以利用 System.Hash 和 System.NetEncoding 单元中的类来完成这一操作。下面是一个完整的例子，展示了如何创建一个函数来进行 HMAC-SHA256 哈希运算。
uses
System.SysUtils, System.Hash, System.Classes;

function ComputeHMACSHA256(const AMessage, ASecretKey: string): string;
var
LHash: THashSHA2;
LHMAC: TIdHMACSHA256;
LBytes: TArray<Byte>;
begin
LHMAC := TIdHMACSHA256.Create;
try
LHMAC.Key := TNetEncoding.Base64.Encode(ASecretKey);
LBytes := LHMAC.ComputeHash(TEncoding.UTF8.GetBytes(AMessage));
Result := TNetEncoding.Hexadecimal.GetString(LBytes);
finally
LHMAC.Free;
end;
end;
登录后复制
需要注意的是，在上述代码片段中引入了 Indy 组件库中的 TIdHMACSHA256 类用于执行 HMAC 运算[^1]。此外，还使用了 TEncoding.UTF8.GetBytes() 方法将消息字符串转换成字节数组形式以便于处理，并通过十六进制编码方式返回最终的结果串[^2]。
对于密钥部分，这里采用了 Base64 编码的方式对其进行预处理；实际应用时可以根据具体需求调整这部分逻辑[^3]。