 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
在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 返回类别: 教程 上一教程: 将HTML表单数据存储为XML格式 - 3 下一教程: 如何从ACCESS数据库中读取图形(续) 您可以阅读与"关于ASP,ASP.NET,VB.NET里的MD5加密函数"相关的教程: · ASP.Net中的MD5加密 · ASP里使用MD5加密的函数及示例 · 关于ASP.Net中的时间处理 · 在ASP中使用MD5加密 · 升级MD5.ASP，打造完全动态不重复的安全加密代码 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
