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。

复制代码 代码如下:

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