淺談ASP.NET和VB.NET的MD5加密函數
作者：佚名
本文將簡單談談ASP.NET和VB.NET的MD5加密函數，MD5加密函數是一種比較綜合的方法啊，應用范圍很廣，希望本文能對大家有所幫助。
在ASP中，我們使用過如動網論壇等用的ASP中MD5函數加密出的字符串則如：
1165d25d8cd021d5
而在ASP.NET中下面的方法：
- System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(password.Text,"MD5")
進行MD5加密出來的結果卻是:
12C403B91165D25D8CD021D5F9B5BB7F
究其原因，是因為，在ASP中的MD5函數是使用了32位MD5Hashvalue中的第9~25位再變小寫作為密文。知道這個原因，把ASP.NET的結果稍加處理就可以用來比較老數據庫中的密碼字串了。
在ASP的MD5函數中第353、354行：
- 'MD5=LCase(WordToHex(a)&WordToHex(b)&WordToHex(c)&WordToHex(d))
- MD5=LCase(WordToHex(b)&WordToHex(c))'Icropthistofit16bytedatabasepassword:D
第一句是取全部的32位密文，第二句則是取中間第9~25位為16位密文。
到了VB.NET的MD5加密函數問題又來了，在VB.NET的MD5加密函數里，無法用到System.Web.Security名稱空間，無法用上面簡單的辦法進行MD5加密。故我寫了下面這個函數來處理：
VB.NET:
VB.NET的MD5加密函數
- PublicSharedFunctionMD5(ByValstrSourceAsString,ByValCodeAsInt16)AsString
'這里用的是ascii編碼密碼原文，如果要用漢字做密碼，可以用UnicodeEncoding，但會與ASP中的MD5函數不兼容
- DimdataToHashAsByte()=(NewSystem.Text.ASCIIEncoding).GetBytes(strSource)
- DimhashvalueAsByte()=CType(System.Security.Cryptography.CryptoConfig.CreateFromName("MD5"),System.Security.Cryptography.HashAlgorithm).ComputeHash(dataToHash)
- DimiAsInteger
- SelectCaseCode
- Case16'選擇16位字符的加密結果
- Fori=4To11
- MD5+=Hex(hashvalue(i)).ToLower
- Next
- Case32'選擇32位字符的加密結果
- Fori=0To15
- MD5+=Hex(hashvalue(i)).ToLower
- Next
- CaseElse'Code錯誤時，返回全部字符串，即32位字符
- Fori=0Tohashvalue.Length-1
- MD5+=Hex(hashvalue(i)).ToLower
- Next
- EndSelect
- EndFunction
【編輯推薦】
責任編輯：彭凡
來源：
51CTO.com
