vb 中的MD5加密在asp.net中的實現

1、web項目中方法： 複製代碼 代碼如下:System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile("aaaa","MD5")
System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile("aaaa","MD5")

查看文檔方法： 複製代碼 代碼如下:PublicSharedFunctionHashPasswordForStoringInConfigFile(ByValpasswordAsString,ByValpasswordFormatAsString)AsString
成員屬於:System.Web.Security.FormsAuthentication
摘要:
給定標識雜湊類型的密碼和字串，該常式產生一個適合儲存在設定檔中的雜湊密碼。
參數:
password:要進行雜湊運算的密碼。
passwordFormat:要使用的雜湊演算法。選項有“sha1”或“md5”。
傳回值:
返回一個包含雜湊密碼的String。
PublicSharedFunctionHashPasswordForStoringInConfigFile(ByValpasswordAsString,ByValpasswordFormatAsString)AsString
成員屬於:System.Web.Security.FormsAuthentication
摘要:
給定標識雜湊類型的密碼和字串，該常式產生一個適合儲存在設定檔中的雜湊密碼。
參數:
password:要進行雜湊運算的密碼。
passwordFormat:要使用的雜湊演算法。選項有“sha1”或“md5”。
傳回值:
返回一個包含雜湊密碼的String。

2、vb的應用程式： 複製代碼 代碼如下:PublicSharedFunctionmd5str(ByRefstrSourceAsString)
DimdataToHashAsByte()=(NewSystem.Text.UnicodeEncoding).GetBytes(strSource.ToCharArray)
DimhashvalueAsByte()=CType(Cryptography.CryptoConfig.CreateFromName("MD5"),Cryptography.HashAlgorithm).ComputeHash(dataToHash)
DimstrSBAsNewSystem.Text.StringBuilder
ForiAsInt16=0Tohashvalue.Length-1
strSB.Append(hashvalue(i).ToString("x2"))
Next
DimcreatMD5=strSB.ToString
ReturncreatMD5
EndFunction
PublicSharedFunctionmd5str(ByRefstrSourceAsString)
DimdataToHashAsByte()=(NewSystem.Text.UnicodeEncoding).GetBytes(strSource.ToCharArray)
DimhashvalueAsByte()=CType(Cryptography.CryptoConfig.CreateFromName("MD5"),Cryptography.HashAlgorithm).ComputeHash(dataToHash)
DimstrSBAsNewSystem.Text.StringBuilder
ForiAsInt16=0Tohashvalue.Length-1
strSB.Append(hashvalue(i).ToString("x2"))
Next
DimcreatMD5=strSB.ToString
ReturncreatMD5
EndFunction