VB.NET中MD5码转换
Dim md5 As New MD5CryptoServiceProvider
Dim username As Byte() = (New ASCIIEncoding).GetBytes(TextBox1.Text)
Dim mdString As String, mdString1 As String, mdString2 As String
Dim i As Integer
'转换为哈希值Byte数组
Dim mdByte As Byte() = md5.ComputeHash(username)
mdString = System.BitConverter.ToString(mdByte)
For i = 1 To 15
mdString = mdString.Substring(0, 2 * i) & mdString.Substring(3 + 2 * (i - 1), 47 - i * 3)
Next
'mdString = System.BitConverter.ToString(mdByte)
'mdString = (New ASCIIEncoding).GetString(mdByte)
TextBox2.Text = mdString
Dim username As Byte() = (New ASCIIEncoding).GetBytes(TextBox1.Text)
Dim mdString As String, mdString1 As String, mdString2 As String
Dim i As Integer
'转换为哈希值Byte数组
Dim mdByte As Byte() = md5.ComputeHash(username)
mdString = System.BitConverter.ToString(mdByte)
For i = 1 To 15
mdString = mdString.Substring(0, 2 * i) & mdString.Substring(3 + 2 * (i - 1), 47 - i * 3)
Next
'mdString = System.BitConverter.ToString(mdByte)
'mdString = (New ASCIIEncoding).GetString(mdByte)
TextBox2.Text = mdString