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

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