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