Dim paswoord As String
Dim invoer As String = TextBox1.Text
Dim x As System.Security.Cryptography.MD5CryptoServiceProvider = New System.Security.Cryptography.MD5CryptoServiceProvider()
Dim bs() As Byte = System.Text.Encoding.UTF8.GetBytes(invoer)
bs = x.ComputeHash(bs)
Dim s As System.Text.StringBuilder = New System.Text.StringBuilder()
For Each b As Byte In bs
s.Append(b.ToString("x2").ToLower())
Next
paswoord = s.ToString()
Dim paswoord As String
Dim invoer As String = TextBox1.Text
Dim x As System.Security.Cryptography.MD5CryptoServiceProvider = New System.Security.Cryptography.MD5CryptoServiceProvider()
Dim bs() As Byte = System.Text.Encoding.UTF8.GetBytes(invoer)
bs = x.ComputeHash(bs)
Dim s As System.Text.StringBuilder = New System.Text.StringBuilder()
For Each b As Byte In bs
s.Append(b.ToString("x2").ToLower())
Next
paswoord = s.ToString()