在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位元字
為 i = 0 To hashvalue.Length - 1
MD5 += Hex(hashvalue(i)).ToLower
Next
End Select
End Function
出處:AndyDavis BLOG