Plaintext$ = "DIES IST EIN TEST, HOFFENTLICH KLAPPT DIESER."

;Plaintext$ = "WER DAS LESEN KANN IST SCHLAU"
;Plaintext2$ = "die liebe ist sieger - rege ist sie bei leid"
 
Key = 5
Var = 1
Dim Buchstaben$(Len(Plaintext)/Key,Key)


For Zeile = 1 To Len(Plaintext)/Key
    For Spalte = 1 To Key
      Buchstaben$(Zeile,Spalte) = Mid$(Plaintext,Var,1)
      Var = Var+1
   Next
Next
Print "Originaltext:"
For i = 1 To Len(plaintext)/Key
   ;Print " "
   For j = 1 To Key
      Write Buchstaben(i,j)
   Next
Next

Print " "
Print " "
Write "Crypting Text ."

For bla = 1 To 10
   Delay 220
   Write "."
Next

Print " "
Print " "
Print "Hier der codierte Plaintext (auch Chiffretext genannt) "

For i = 1 To Key
   For j = 1 To Len(Plaintext)/Key
      Write Buchstaben(j,i)
   Next
Next

Print " "
Print " "
waitkey

;Plaintext$ = "DIES IST EIN TEST, HOFFENTLICH KLAPPT DIESER."

Plaintext$ = "WER DAS LESEN KANN IST SCHLAU"
;Plaintext2$ = "die liebe ist sieger - rege ist sie bei leid"
 
Key = 5
Var = 1
Dim Buchstaben$(Len(Plaintext)/Key,Key)


For Zeile = 1 To Len(Plaintext)/Key
    For Spalte = 1 To Key
      Buchstaben$(Zeile,Spalte) = Mid$(Plaintext,Var,1)
      Var = Var+1
   Next
Next
Print "Originaltext:"
For i = 1 To Len(plaintext)/Key
   ;Print " "
   For j = 1 To Key
      Write Buchstaben(i,j)
   Next
Next

Print " "
Print " "
Write "Crypting Text ."

For bla = 1 To 10
   Delay 220
   Write "."
Next

Print " "
Print " "
Print "Hier der codierte Plaintext (auch Chiffretext genannt) "

For i = 1 To Key
   For j = 1 To Len(Plaintext)/Key
      Write Buchstaben(j,i)
   Next
Next

Print " "
Print " "
waitkey

;3 Verschiedene Texte zum Rumprobieren
Plaintext$ = "DIES IST EIN TEST, HOFFENTLICH KLAPPT DIESER."
;Plaintext$ = "WER DAS LESEN KANN IST SCHLAU"
;Plaintext2$ = "die liebe ist sieger - rege ist sie bei leid"

Key = 5
Global GesamtLaenge

Dim Buchstaben$(50,10)

   wLaenge = Len(Plaintext)
   m = wLaenge Mod Key
      If m = 0 Then
         m = Key
      EndIf
   add = Key - m  ;Hier wird ermittelt, wieviele Zeichen noch angehangen werden müssen und in "add" gespeiche
   GesamtLaenge = wLaenge+add
   Print GesamtLaenge

Function Crypt$(pText$,Schluessel)
   Var = 1
   
Select add
Case 1 pText$ = pText + "_"
Case 2 pText$ = pText + "__"
Case 3 pText$ = pText + "___"
Case 4 pText$ = pText + "____"
End Select
For Zeile = 1 To GesamtLaenge
    For Spalte = 1 To Schluessel
      Buchstaben$(Zeile,Spalte) = Mid$(pText,Var,1)
      Var = Var+1
   Next
Next

For i = 1 To Schluessel
   For j = 1 To GesamtLaenge
      Code$ = Code + Buchstaben(j,i)
   Next
Next

Return Code$
End Function

Print Crypt$(Plaintext,5)

WaitKey

;Plaintext$ = "DIES IST EIN TEST, HOFFENTLICH KLAPPT DIESER."
Plaintext$ = "WER DAS LESEN KANN IST SCHLAU"
;Plaintext2$ = "die liebe ist sieger - rege ist sie bei leid"


Key = 5
Var = 1
wLaenge = Len(Plaintext)
m = wLaenge Mod Key
If m = 0 Then
   m = Key
EndIf
add = Key - m

Select add
Case 1 Plaintext$ = Plaintext + "_"
Case 2 Plaintext$ = Plaintext + "__"
Case 3 Plaintext$ = Plaintext + "___"
Case 4 Plaintext$ = Plaintext + "____"
End Select

Dim Buchstaben$(wLaenge+add,Key)


For Zeile = 1 To wLaenge+add
    For Spalte = 1 To Key
      Buchstaben$(Zeile,Spalte) = Mid$(Plaintext,Var,1)
      Var = Var+1
   Next
Next

;Print "Originaltext:"
For i = 1 To wLaenge+add
   ;Print " "
   For j = 1 To Key
      Write Buchstaben(i,j)
   Next
Next

WaitKey

Print " "
For i = 1 To Key
   For j = 1 To wLaenge+add
      ;Write Buchstaben(j,i)
      Code$ = Code + Buchstaben(j,i)
   Next
Next

Print code

WaitKey

class CEncode
{
   public String caesar( String sText, int iVerschiebung )
   {
      String sBuchstaben = "ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜabcdefghijklmnopqrstuvwxyzäöü";
      
      //Wert unter 0
      while ( iVerschiebung < 0 )
      {
         iVerschiebung = sBuchstaben.length(  ) + iVerschiebung;
      }
      
      //Wert über 58
      while ( iVerschiebung >= sBuchstaben.length(  ) )
      {
         iVerschiebung = iVerschiebung - sBuchstaben.length(  );
      }
      
            
      String sVerschieben = sBuchstaben.substring( 0, iVerschiebung );
      String sRest = sBuchstaben.substring( iVerschiebung );
      
      String sBuchstabenNeu = sRest + sVerschieben;
      
      String sNeu = "";
         
      
      
      for ( int i = 0;
         i < sText.length(  );
         i++ )
      {
         char c = sText.charAt( i );
         int pos = sBuchstaben.indexOf( c );
         char cNeu = sBuchstabenNeu.charAt( pos );
         
         sNeu += String.valueOf( cNeu );
      }
      
      return sNeu;
   }
   
   public String caesar_decode( String sText, int iVerschiebung )
   {
      iVerschiebung *= -1;
         
      return caesar( sText, iVerschiebung );
   }
   
   
   public String vigenere( String sText, String sCode )   
   {
      /*
       c <-> D
          |
        abcde
        ABCDE
        BCDEA
        CDEAB
       -DEABC  = A
        EABCD
      
       Text: VIGENERESTUDIERTE
       Code: SCHULESCHULESCHUL
           =          N     N
      */   
      
      String sBuchstaben = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
      
      //Nur Großbuchstaben
      sText = sText.toUpperCase(  );
      int iTextLen = sText.length(  ) - 1;
      
      String sCodeBuf = sCode.toUpperCase(  );
      int iCodeLen = sCode.length(  ) - 1;
      
      sCode = "";
      
      //Schneller als Modulo
      while ( sCode.length( ) <= iTextLen )
      {
         sCode += sCodeBuf;
      }
      
      //Ergebnis
      String sNeu = "";
      
      for ( int i = 0; i <= iTextLen; i++ )
      {
         /*
             Buchstabenkette verschieben, bis Code-Buchstabe an i der Erste
             der neuen Buchstabenkette ist:
             Code = "CODE", i = 0
                -> Code-Buchstabe = C
                -> Buchstabenkette = CDEFGH..ZAB
         */
         
         //Buchstabe an i
         char c = sText.charAt( i );
         
         //Buchstabe an i im Code (wiederholt bei Überschreitung der Länge)
         //char cCode = sCode.charAt( i % iCodeLen );
         char cCode = sCode.charAt( i );
         
         //Position in Buchstabenkette
         int iPosCode = sBuchstaben.indexOf( cCode );
         
         
         //Neue verschobene Buchstabenkette (-> CDEFGH...ZAB)
         String sVerschieben = sBuchstaben.substring( 0, iPosCode );
         String sRest = sBuchstaben.substring( iPosCode );
         String sBuchstabenNeu = sRest + sVerschieben;
      
      
         //Position des Buchstabens aus dem Text
         int iPos = sBuchstaben.indexOf( c );
         
         //Neuer Buchstabe mit Code
         char cNeu = sBuchstabenNeu.charAt( iPos );
         
         sNeu = sNeu + String.valueOf( cNeu );
      }   
      
      return sNeu;
   }
}

ABCDEF...Z
BCDEF...ZA
CDEF...ZAB
DEF...ZABC
EF...ZABCD
F...ZABCDE
...ZABCDEF
ZABCDEF...