''' <summary>
    ''' Ver- und Entschluesselt mit einer Vigenere( 
    ' Chiffrierungs)Verschluesselung
    ''' </summary>
    ''' <param name="Original">Ver- oder Entschluesselter Text</param>
    ''' <param name="strKey">Schluessel</param>
    ''' <returns>Gibt den Ent- oder Verschluesselten Text zurueck. (das 
    ' gegenteil des Originals) </returns>
    ''' <remarks></remarks>
    Private Function Vigenere_XOR_Chiffre(ByVal Original As String, ByVal _
      strKey As String) As String
 
        If Original.Length < 1 Then Return "" ' Wenn kein Text angegeben wurde
        If strKey.Length < 1 Then Return Original 'wenn kein Schluessel 
        ' angegeben wird, wird das Original zurueck gegeben
 
        If Original.Length > strKey.Length Then 'wenn der Schluessel kleiner 
        ' ist als der Text
            Dim KRechnen As Integer
            Dim copyKey As String = strKey
            Dim i2 As Integer
 
            KRechnen = Math.Ceiling(Original.Length / strKey.Length) - 1 ' 
            ' berechnet wie oft der Schluessel-String benoetigt wird
 
            For i2 = 1 To KRechnen 'Laenge des Schluessels anpassen
                strKey += copyKey
            Next i2
 
        End If
 
        Vigenere_XOR_Chiffre = ""
 
        Dim i As Integer
        Dim bKey As Byte
        Dim bCode As Byte
        Dim bResult As Byte
 
        ' Ver- Entschluesseln
        For i = 1 To Original.Length
            bCode = Asc(Original.Substring(i - 1, 1)) 'byte Original Zeichen 
            ' fuer Zeichen lesen
            bKey = Asc(strKey.Substring(i - 1, 1)) ' byte Schluessel Zeichen 
            ' fuer Zeichen lesen
            bResult = bCode Xor bKey ' Byte Schluessel anwenden
            Vigenere_XOR_Chiffre = Vigenere_XOR_Chiffre & Chr(bResult) _
              'Schreiben
        Next i
 
    End Function