这几天一直在关注openid,想在博客上也加上这个功能,可惜找了半天没有找到可用的ASP版,就打算自己移植过来,可还没有发现哪里有ASP的HMAC-SHA1加密代码,搜了半天在一个国外的博客上找到了一个,不知道能不能用!
- <%@ Language=VBScript %>
- <% Option Explicit %>
- <%
- Function sha1(str)
- Dim sha,result
- set sha = GetObject("script:"&Server.MapPath("sha1.wsc"))
- sha.hexcase = 1
- sha1 = sha.hex_hmac_sha1("0x0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b",str)
- Set sha = Nothing
- End Function
- %>
- <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
- <html>
- <head>
- <title>test</title>
- </head>
- <body>
- HMAC-SHA1 result: <%=sha1("abc")%>
- </body>
- </html>
WSC见附件,附件里面还有另外一个版本的加密方法,先放着备用!那个md5也是WSC文件,一起放上来了!
不过这个拿来替换MD5加密倒是不错,可以自定义加密字段!嘿嘿!
附件:sha1.rar (3 KB)
附件:MD5.rar (3 KB)
附件:hex_sha1.rar (2 KB)
附件:hex_sha1.rar PHP版 (635 Byte)
(全文完)
Tags: HMAC-SHA1, openid, md5