[HaBo]

Option Explicit

Function Vigenere(ByVal Text As String, ByVal Schlüssel As String, ByVal Verschlüsseln As Boolean)
Dim Zahl1 As Double
Dim Zahl As Double
Dim NeuerText As String
Dim Zeichen As Integer
Dim NZeichen As String


For Zahl1 = Len(Schlüssel) To Len(Text)
    Schlüssel = Schlüssel & Schlüssel
    If Len(Schlüssel) > Len(Text) Then
        Schlüssel = Mid(Schlüssel, 1, Len(Text))
    End If
Next Zahl1


For Zahl = 1 To Len(Text)

    Zeichen = Asc(Mid(Text, Zahl, 1))
    
        If Zeichen > 64 Then
            If Zeichen < 91 Then
                

                If Verschlüsseln = True Then
                Zeichen = Zeichen + (Asc(Mid(Schlüssel, Zahl, 1)) - 64)
                Else
                Zeichen = Zeichen - (Asc(Mid(Schlüssel, Zahl, 1)) - 64)
                End If
                
                If Zeichen < 65 Then
                    Zeichen = Zeichen + 26
                ElseIf Zeichen > 90 Then
                    Zeichen = Zeichen - 26
                End If
            End If
        End If
    NZeichen = Chr(Zeichen)
    NeuerText = NeuerText & NZeichen
Next Zahl

Vigenere = NeuerText
End Function

Function Caesar(ByVal Text As String, ByVal Schlüssel As Integer, ByVal Verschlüsseln As Boolean)
Dim Zahl As Double
Dim NeuerText As String
Dim Zeichen As Integer
Dim NZeichen As String
NeuerText = ""

For Zahl = 1 To Len(Text)

    Zeichen = Asc(Mid(Text, Zahl, 1))
    
        If Zeichen > 64 Then
            If Zeichen < 91 Then
                
                If Verschlüsseln = True Then
                Zeichen = Zeichen + Schlüssel
                Else
                Zeichen = Zeichen - Schlüssel
                End If
                
                If Zeichen < 65 Then
                    Zeichen = Zeichen + 26
                ElseIf Zeichen > 90 Then
                    Zeichen = Zeichen - 26
                End If
            End If
        End If
    NZeichen = Chr(Zeichen)
    NeuerText = NeuerText & NZeichen
Next Zahl

Caesar = NeuerText
End Function

/*
 * @author: Boar
 *
 * Ver- und Entschlüsselung eines Strings mit der Caesar-Chiffre
 *
 * (c) 17.11.2004
 */

import java.awt.*;
import java.awt.event.*;
import javax.swing.*;

public class Caesar extends JFrame implements ActionListener
{
  String text;
  String convText;
  int[] alphabet = new int[26];
  boolean added = false;
  int temp=0;

  JPanel up          = new JPanel();
  JLabel in          = new JLabel("Text-Eingabe:                 ",JLabel.LEFT);
  JTextField eingabe = new JTextField(20);
  
  JPanel middle1  = new JPanel();
  JLabel  info    = new JLabel ("Schlüssel: ");
  JTextField schl = new JTextField(2);
  
  JPanel middle2  = new JPanel();
  JButton verschl = new JButton("Verschlüsseln");
  JButton entschl = new JButton("Entschlüsseln");
  
  JPanel down        = new JPanel();
  JLabel out         = new JLabel("Konvertierte Ausgabe: ");
  JTextField ausgabe = new JTextField(20);
  
  public Caesar()
  {
    for (int i=0; i<26; i++)
      alphabet[i]='A'+i;
      
    this.setTitle("Caesar-Chiffre");
    this.setSize(370,180);
    this.setResizable(false);

    ausgabe.setEditable(false);
    
    up.setLayout(new FlowLayout(FlowLayout.LEFT));
    up.add(in);
    up.add(eingabe);
    
    middle1.setLayout(new FlowLayout(FlowLayout.CENTER));
    middle1.add(info);
    middle1.add(schl);
    middle1.add(verschl);
    middle1.add(entschl);
    
    down.setLayout(new FlowLayout(FlowLayout.LEFT));
    down.add(out);
    down.add(ausgabe);
    
    getContentPane().setLayout(new BoxLayout(getContentPane(),BoxLayout.Y_AXIS));
    getContentPane().add(up);
    getContentPane().add(middle1);
    getContentPane().add(down);
    
    verschl.addActionListener(this);
    entschl.addActionListener(this);
    verschl.setActionCommand("ver");
    entschl.setActionCommand("ent");
  }
  
  public void actionPerformed(ActionEvent e)
  {
    if(e.getActionCommand().equals("ver"))
    {
      ausgabe.setText("");
      convText="   ";
      text = eingabe.getText().toUpperCase().trim();
      for(int i=0; i<text.length(); i++)
      {
        added=false;
        for(int j=0; j<26; j++)
        {
          if(text.charAt(i)==(char)alphabet[j]&& !schl.getText().equals(""))
          {
            temp=text.charAt(i);
            if(temp+Integer.parseInt(schl.getText())>90)
              temp+=(Integer.parseInt(schl.getText())-26);
            else
              temp+=Integer.parseInt(schl.getText());
            convText+=(char)temp;
            added=true;
          }
          else if(added==false&&j==25&&!schl.getText().equals(""))
            convText="   ERROR: Keine Sonderzeichen!";
          else if(added==false&&j==25&&schl.getText().equals(""))
            convText="   ERROR: Kein Schlüssel angegeben!";
          ausgabe.setText(""+convText);
        }
      }
    }
    else if(e.getActionCommand().equals("ent"))
    {
      ausgabe.setText("");
      convText="   ";
      text = eingabe.getText().toUpperCase().trim();
      for(int i=0; i<text.length(); i++)
      {
        added=false;
        for(int j=0; j<26; j++)
        {
          if(text.charAt(i)==(char)alphabet[j]&& !schl.getText().equals(""))
          {
            temp=text.charAt(i);
            if(temp-Integer.parseInt(schl.getText())<65)
              temp=temp+26-Integer.parseInt(schl.getText());
            else
              temp-=Integer.parseInt(schl.getText());
            convText+=(char)temp;
            added=true;
          }
          else if(added==false&&j==25&&!schl.getText().equals(""))
            convText="   ERROR: Keine Sonderzeichen!";
          else if(added==false&&j==25&&schl.getText().equals(""))
            convText="   ERROR: Kein Schlüssel angegeben!";
          ausgabe.setText(""+convText);
        }
      }
    }
  }
  
  public static void main(String[] args)
  {
    Caesar chiffre = new Caesar();
    
    WindowQuitter wquit = new WindowQuitter();
    chiffre.addWindowListener( wquit );
    
    chiffre.setVisible(true);
  }
}

class  WindowQuitter  extends WindowAdapter
{
  public void windowClosing( WindowEvent e )
  {
    System.exit( 0 );
  }
}