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

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

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

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

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

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

GIT地址：

[url]http://github.com/cnpack[/url]

里头有俩库。