【原创】关于ASP,ASP.NET,VB.NET里的MD5加密函数
2006-03-23 17:04
344 查看
老文章了,在这里再帖一遍吧。
在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
在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
相关文章推荐
- 关于ASP,ASP.NET,VB.NET里的MD5加密函数
- 关于ASP,ASP.NET,VB.NET里的MD5加密函数
- 关于ASP,ASP.NET,VB.NET里的MD5加密函数
- 关于ASP,ASP.NET,VB.NET里的MD5加密函数(转载)
- 关于ASP,ASP.NET,VB.NET里的MD5加密函数
- 关于ASP.NET; VBS, VB.NET, JS, JS.NET, C# 的体会
- 关于在右下脚弹出窗口javascript代码,并用ASP.NET在后台调用(原创)
- [原创]VB.net技巧之七----asp.net中cookie的使用
- asp.net使用SerialPort的方法(VB简单版)[原创]
- 最近收集的关于VS,ASP.NET,VB.NET,DNN,SQL2005,XML等的好书推荐
- 关于 ASP, ASP.NET; VBS, VB.NET, JS, JS.NET, C# 的体会,思考
- 关于在右下脚弹出窗口javascript代码,并用ASP.NET在后台调用(原创)
- 使用ASP.NET中的一点体会--关于代码分离[原创]
- 原创关于asp.net快速入门教程的个性化门户配置设置篇一
- 以下是关于ASP.NET中保存各种信息的对象的比较,理解这些对象的原理,对制作完善的程序来说是相当有必要的(摘至互联网,并非原创--xukunping)
- [原创]关于“ASP.NET MVC Preview 5使用中,只有MVC Project模板,没有MVC Item 模板(MVC Item Template)的问题”解决
- 【原创】关于asp.net TextBox控件的TextChange事件的总结
- 【求助】关于asp.net中的'Thread was being aborted'异常
- 关于ASP.NET页面打印技术的总结
- 关于IIS7发布ASP.NET