在ASP中，我們使用過如動網(wǎng)論壇等用的ASP中MD5函數(shù)加密出的字符串則如：

1165d25d8cd021d5

而在ASP.NET中下面的方法：

System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(password.Text,"MD5") 

進(jìn)行MD5加密出來的結(jié)果卻是:

12C403B91165D25D8CD021D5F9B5BB7F

究其原因，是因為，在ASP中的MD5函數(shù)是使用了32位MD5Hashvalue中的第9~25位再變小寫作為密文。知道這個原因，把ASP.NET的結(jié)果稍加處理就可以用來比較老數(shù)據(jù)庫中的密碼字串了。

在ASP的MD5函數(shù)中第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加密函數(shù)問題又來了，在VB.NET的MD5加密函數(shù)里，無法用到System.Web.Security名稱空間，無法用上面簡單的辦法進(jìn)行MD5加密。故我寫了下面這個函數(shù)來處理：

VB.NET:

VB.NET的MD5加密函數(shù)

PublicSharedFunctionMD5(ByValstrSourceAsString,ByValCodeAsInt16)AsString 

'這里用的是ascii編碼密碼原文，如果要用漢字做密碼，可以用UnicodeEncoding，但會與ASP中的MD5函數(shù)不兼容

DimdataToHashAsByte()=(NewSystem.Text.ASCIIEncoding).GetBytes(strSource)  
DimhashvalueAsByte()=CType(System.Security.Cryptography.CryptoConfig.CreateFromName("MD5"),System.Security.Cryptography.HashAlgorithm).ComputeHash(dataToHash)  
DimiAsInteger  
SelectCaseCode  
Case16'選擇16位字符的加密結(jié)果  
Fori=4To11 
MD5+=Hex(hashvalue(i)).ToLower  
Next  
Case32'選擇32位字符的加密結(jié)果  
Fori=0To15 
MD5+=Hex(hashvalue(i)).ToLower  
Next  
CaseElse'Code錯誤時，返回全部字符串，即32位字符  
Fori=0Tohashvalue.Length-1  
MD5+=Hex(hashvalue(i)).ToLower  
Next  
EndSelect  
EndFunction 

【編輯推薦】

1. ASP.NET的DataList和Repeater控件
2. 淺析ASP.NET的IIS映射
3. 概述ASP.NET狀態(tài)類型
4. 淺談ASP.NET和Web服務(wù)器
5. ASP.NET的EnableViewState屬性