Private Sub Command1_Click()
 
Dim i As Long
Dim Passwort As String
Dim Ergebnis1 As String
Dim Ergebnis2 As String
Dim Zeichen As Byte
 
Hasher.Mechanism = MD5
 
Passwort = Text1.Text '(hier ist der String 'tanstaaftanstaaf' angegeben)
Key = "<1896.697170952@postoffice.reston.mci.net>"
 
Do
    Passwort = Passwort & vbNullChar
Loop Until Len(Passwort) = 64
 
For i = 1 To Len(Passwort)
    Zeichen = Asc(Mid(Passwort, i, 1))
    Ergebnis1 = Ergebnis1 & Chr((Zeichen Xor Asc("9")))
    Ergebnis2 = Ergebnis2 & Chr((Zeichen Xor Asc("b")))
Next i
 
Text2.Text = Hasher.MessageHash(Ergebnis1 & Hasher.MessageHash(Ergebnis2 & Key))
 
End Sub