谁能帮忙写个hmac-sha1的算法 - CnVCL 组件包 - CnPack Forum

新警察

UID 135861
Digest Posts 0
Credits 4
Posts 1
点点分 4
Reading Access 10
Registered 2014-10-18
Status Offline

Post at 2014-10-18 10:06 Profile | Blog | P.M.

谁能帮忙写个hmac-sha1的算法

vcl组件包里有sha1的算法，是否有高手提供下hmac-sha1的算法，主要是开发环境是delphi7+自带的indy，而且又不能随便改控件，indy10里倒是有这个算法

[ 本帖最后由 lu_wakin 于 2014-10-18 10:08 编辑 ]

Passion (LiuXiao)

管理员

UID 359
Digest Posts 19
Credits 6838
Posts 3591
点点分 6838
Reading Access 102
Registered 2004-3-28
Status Offline

Post at 2014-10-22 19:47 Profile | Blog | P.M.

GIT上我在CnSHA1.pas中加了个方法：

procedure SHA1Hmac(Key: PAnsiChar; KeyLength: Integer; Input: PAnsiChar; Length: LongWord; var Output: TSHA1Digest);

可以更新一下看看是否满足需求？可能有Bug。

GIT地址：

http://github.com/cnpack

里头有俩库。