/ Published in: Visual Basic
URL: http://www.youtube.com/watch?v=qaOSHJo52XM
These are the codes I used in my tutorial (http://www.youtube.com/watch?v=qaOSHJo52XM)
Expand |
Embed | Plain Text
Private Function StringtoMD5(ByVal Content As String) As String Dim M5 As New System.Security.Cryptography.MD5CryptoServiceProvider Dim ByteString() As Byte = System.Text.Encoding.ASCII.GetBytes(Content) ByteString = M5.ComputeHash(ByteString) Dim FinalString As String = Nothing For Each bt As Byte In ByteString FinalString &= bt.ToString("x2") Next Return FinalString End Function ________________________________________________ TextBox3.Text = StringtoMD5(TextBox1.Text)
You need to login to post a comment.
