关于ASP,ASP.NET,VB.NET里的MD5加密函数|关于ASP,ASP.NET,VB.NET里的MD5加密函数,ASP,ASP.NET,VB.NET,MD5加密函数

投稿

繁体

RSS

首页

网站运营

欢迎在本站发布信息，在线投递稿件请点这里。编辑QQ:4908220，欢迎联系交流。
业界动态	创业故事	推广研究	策划盈利	电子商务	企业平台
站长工具
SEO查询	Whois查询	Pr查询	域名查询	IP查询	网页编辑器

建站服务

如有建站意向，请尽快联系我们，以便安排时间... QQ:4908220
作品展示	服务范围	服务流程	服务报价	联系方式	付款方式

站长论坛

交流区
站长酒吧	SEO&推广	网赚交流	建站系统

服务&信息
招聘求职	项目外包	广告发布	网络资源

技术区
网页设计师	界面设计师	WEB程序员	计算机应用

文章正文	» 您的当前位置：首页 >> 学院 >> 程序开发 >> ASP

关于ASP,ASP.NET,VB.NET里的MD5加密函数

来源：互联网 | 时间：2006-03-25 | 浏览：相关评论 | 报告错误 | 发布文章

【字号：大 | 中 | 小】【背景色

】

关于ASP,ASP.NET,VB.NET里的MD5加密函数在ASP中，我们使用过如动网论坛等用的ASP中MD5函数加密出的字符串则如：
1165d25d8cd021d5

而在Asp.Net中下面的方法：代码
System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(password.Text,"MD5")进行MD5加密出来的结果却是:
12C403B91165D25D8CD021D5F9B5BB7F

究其原因，是因为，在ASP中的MD5函数是使用了32位MD5 Hashvalue中的第9~25位再变小写作为密文。知道这个原因，把ASP.NET的结果稍加处理就可以用来比较老数据库中的密码字串了。
在ASP的MD5函数中第353、354行：代码
´MD5 = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d))
MD5=LCase(WordToHex(b) & WordToHex(c)) ´I crop this to fit 16byte database password :D
第一句是取全部的32位密文，第二句则是取中间第9~25位为16位密文。

到了vb.net问题又来了，在vb.net里，无法用到System.Web.Security名称空间，无法用上面简单的办法进行MD5加密。故我写了下面这个函数来处理：

VB.NET: 代码´MD5 加密函数
Public Shared Function MD5(ByVal strSource As String, ByVal Code As Int16) As String
´这里用的是ascii编码密码原文，如果要用汉字做密码，可以用UnicodeEncoding，但会与ASP中的MD5函数不兼容
Dim dataToHash As Byte() = (New System.Text.ASCIIEncoding).GetBytes(strSource)
Dim hashvalue As Byte() = CType(System.Security.Cryptography.CryptoConfig.CreateFromName("MD5"), System.Security.Cryptography.HashAlgorithm).ComputeHash(dataToHash)
Dim i As Integer
Select Case Code
Case 16 ´选择16位字符的加密结果
For i = 4 To 11
MD5 += Hex(hashvalue(i)).ToLower
Next
Case 32 ´选择32位字符的加密结果
For i = 0 To 15
MD5 += Hex(hashvalue(i)).ToLower
Next
Case Else ´Code错误时，返回全部字符串，即32位字符
For i = 0 To hashvalue.Length - 1
MD5 += Hex(hashvalue(i)).ToLower
Next
End Select
End Function