delphi7计算hmac_SHA256

XinShun

于 2021-10-13 23:10:45 发布

阅读量1.2k

点赞数

分类专栏： delphi

本文链接：https://blog.csdn.net/XinShun/article/details/120754481

版权

HMAC HMACSHA256 数据签名加密算法安全传输

关键词由CSDN通过智能技术生成

delphi 专栏收录该内容

8 篇文章 0 订阅

订阅专栏

1、参考https://qna.habr.com/q/232342

2、代码

uses
  hash, HMAC, HMACSHA2;
  
function GetSign: string;
var
  i: Integer;
  key: string;
  values: string;  
  HMacContent: THMAC_Context;
  mac: TSHA256Digest;
begin
  key := '2018';
  values := '2020-10-13&1234'
  
  hmac_SHA256_init(HMacContent, PChar(key), Length(key));
  hmac_SHA256_updateXL(HMacContent, PChar(values), Length(values));
  hmac_SHA256_final(HMacContent, mac);

  Result := '';
  for i := 0 to Length(mac) - 1 do
    Result := Result + Format('%.2x',[mac[i]]);
end;