Dim str As String = e.Form.Controls("PassWord").Value
Dim provider As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim bytes As Byte() = Encoding.Unicode.GetBytes(str)
Dim inArray As Byte() = provider.ComputeHash(bytes)
provider.Clear()
Convert.ToBase64String(inArray)
直接复制过去是不能用的,想转成asp网页版密码代码,求对应asp代码。