delphi HMACSHA256

uses

IdGlobal, IdHashSHA, IdHMAC, IdHMACSHA1, IdSSLOpenSSL;

function CalculateHMACSHA256(const value, salt: String): String;

var

hmac: TIdHMACSHA256;

hash: TIdBytes;

begin

LoadOpenSSLLibrary;

if not TIdHashSHA256.IsAvailable then

raise Exception.Create('SHA256 hashing is not available!');

hmac := TIdHMACSHA256.Create;

try

hmac.Key := IndyTextEncoding_UTF8.GetBytes(salt);

hash := hmac.HashValue(IndyTextEncoding_UTF8.GetBytes(value));

Result := ToHex(hash);

finally

hmac.Free;

end;

程序目录下必备文件：

libeay32.dll

ssleay32.dll

了解更多：https://stackoverflow.com/questions/2003194/hmac-sha256-in-delphi

推荐分享