FileOpen(1, "C:\XOR.txt", OpenMode.Output)
        PrintLine(1, RichTextBox1.Text)
        FileClose(1)
        Bar1.Maximum = 1000
        Dim ch As Char
        Dim strCode As String
        Dim Code, Number As Short
        Dim Decrypt As String = ""
        Dim i As Integer
        For i = 0 To 1000
            Decrypt = ""
            ProgressBar1.Value = i
            Code = CShort(i)
            FileOpen(1, "C:\XOR.txt", OpenMode.Input)
            Do Until EOF(1)
                Input(1, Number)
                ch = Chr(Number Xor Code)
                Decrypt = Decrypt & ch
            Loop
            FileClose(1)
            RichTextBox2.Text = Decrypt
            With RichTextBox2
                Do
                    lpos = .Find(TextBox1.Text, lpos + 1, RichTextBoxFinds.None)
                    If lpos >= 0 Then
                        MsgBox("Gefunden - Passwort: " & i)
                        Exit For
                    End If
                Loop Until lpos < 0
            End With
        Next