vb 中的MD5加密在asp.net中的实现

1、web项目中方法：

复制代码代码如下:

　　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"))

　　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"))

　　ReturncreatMD5

　　EndFunction