• 关于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

  • 相关阅读:
    I Hate It HDU
    线段树为什么要开4倍空间
    敌兵布阵 HDU
    线段树 模板
    线段树原理详解
    HDU5037 Frog
    HDU5187 zhx's contest
    HDU5307 He is Flying
    UOJ#34. 多项式乘法
    Bzoj4766 文艺计算姬
  • 原文地址:https://www.cnblogs.com/gyxdbk/p/1398197.html
Copyright © 2020-2023  润新知