ganz einfach
gibt auch noch eine andere art mit einer api aber ich nehme das hauseigene von vb
PHP Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Verschlüssel As String = TextBox1.Text
Dim MD5v As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim zähle() As Byte = System.Text.Encoding.ASCII.GetBytes(Verschlüssel)
zähle = MD5v.ComputeHash(zähle)
Dim ergebniss As String
For Each b As Byte In zähle
ergebniss += b.ToString("x2")
Next
TextBox2.Text = ergebniss
End Sub
