本文整理自网络，侵删。
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 xe5实现按android的back键无法退出关闭程序
Delphi xe5 android获取手机联系人，并用listview显示
Delphi getcomputername() getusername() 获取本机当前用户名
更多相关阅读请进入《Delphi》频道 >>
