Public Class Form1
    Public Function VerEntschluesseln(ByVal SrcString, ByVal Pass)
        On Error Resume Next
        Dim TmpInt, I, J
        Dim TmpArray()
        ReDim TmpArray(Len(Pass))
 
        'Ascii Codes des Passwortes in ein Array Speichern
        For I = 1 To Len(Pass)
            TmpArray(I) = Asc(Mid(Pass, I, 1))
        Next I
 
        'Verschlüsselungs-Prozedur
 
        'Jeden Buchstaben einzeln verschlüsseln
        For I = 1 To Len(SrcString)
            'Für jeden Passwortbuchstaben einmal verschlüsseln
            'Buchstaben in Ascii-Wert umwandeln
            TmpInt = Asc(Mid(SrcString, I, 1))
            For J = 1 To Len(Pass)
                'und mit Xor binär umwandeln
                TmpInt = TmpInt Xor TmpArray(J)
                'zur Sicherheit nocheimal binär umwandeln (Xor)
                TmpInt = TmpInt Xor J
            Next J
 
            'Das Null-Zeichen kann in einer TextBox
            'nicht angezeigt werden
            If TmpInt > 0 Then
                'Binär-Wert wieder in Ascii-Zeichen umwandeln
                VerEntschluesseln = VerEntschluesseln & Chr(TmpInt)
            Else
                'sonst Null-Zeichen-Konstante einfügen
                VerEntschluesseln = VerEntschluesseln & "%$0$%"
            End If
        Next
 
        Return VerEntschluesseln
    End Function
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim text As String = InputBox("Geben sie den zu verschlüsselnden Text" & _
        "ein!")
        InputBox("Hier der verschlüsselte Text:", "Verschlüsselter Text", _
        VerEntschluesseln(text, _
        "SanitoeterSanitoeterSanitoeterSanitoeterSanitoeterSanitoeterSanitoete" & _
        ""))
        Me.Dispose()
    End Sub
End Class