本文整理自网络,侵删。
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;end;
程序目录下必备文件:libeay32.dll
ssleay32.dll
了解更多:https://stackoverflow.com/questions/2003194/hmac-sha256-in-delphi
相关阅读 >>
Delphi sizetostr 文件大小转换kb mb gb tb
Delphi stringgrid 加载excel表格文件内容自动宽度
更多相关阅读请进入《Delphi》频道 >>