Delphi7 HMAC_SHA256

//使用土拨鼠单元

uses
 SynCrypto;

//有中文要先UTF8Encode
var
 sha256Digest:TSHA256Digest;
begin
 HMAC_SHA256('123',UTF8Encode('中文tag123'),sha256Digest);
 ShowMessage(SHA256DigestToString(sha256Digest));

//另外一种方法在其他随笔（华为接口签名）提过了调用openssl dll库

//sha256字符串 ShowMessage(SHA256(UTF8Encode('中文tag123')));