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