HMAC-SHA1 算法加密字符串函数-Delphi 大神网

欢迎加入全网最大Delphi 技术交流群 682628230

function EncryptHMACSha1(Input, AKey: AnsiString): TIdBytes;
var
  Key: TIdBytes;
begin
  with TIdHMACSHA1.Create do
    try
      Key := ToBytes(AKey);
      Result := HashValue(ToBytes(Input));
    finally
      Free;
    end;
end;

文章版权归作者所有，未经允许请勿转载。

THE END

函数

HMAC-SHA1 算法 加密字符串函数

分类

HMAC-SHA1 算法加密字符串函数