[HaBo]

import java.io.*;

public class KryptoHabo 
{//class
    public static void vigenereDecipher(String name, String keyWord)throws IOException
    {//vigenereDecipher()
        String dateiInhalt="0", dateiKlar;
        int textZaehler, keyZaehler;
        char[]krypt;
        FileReader faus=new FileReader(name+".txt");
        for (int i; (i=faus.read())!=-1;)
        {
            dateiInhalt=dateiInhalt+(char)(i);
        }
        dateiKlar=dateiInhalt.substring(1);
        textZaehler=dateiKlar.length();
        keyZaehler=keyWord.length();
        krypt=new char[textZaehler];
        for (int i=0, j=0; i<textZaehler; i++, j++)
        {
            if (j==keyZaehler)j=0;
            krypt[i]=(char)(dateiKlar.charAt(i)-keyWord.charAt(j));
        }
        FileWriter fein=new FileWriter(name+".txt");
        for (int i=0; i<textZaehler; i++)
        {
            fein.write(krypt[i]);
        }
        fein.close();
        System.out.println("Datei >"+name+"< entschlüsselt!");
        menue();
    }//vigenereDecipher()
    public static void vigenereCipher(String name, String keyWord)throws IOException
    {//vigenereCipher()
        String dateiInhalt="0", dateiKlar;
        int textZaehler, keyZaehler;
        char[]krypt;
        FileReader faus=new FileReader(name+".txt");
        for (int i; (i=faus.read())!=-1;)
        {
            dateiInhalt=dateiInhalt+(char)(i);
        }
        dateiKlar=dateiInhalt.substring(1);
        textZaehler=dateiKlar.length();
        keyZaehler=keyWord.length();
        krypt=new char[textZaehler];
        for (int i=0, j=0; i<textZaehler; i++, j++)
        {
            if (j==keyZaehler)j=0;
            krypt[i]=(char)(dateiKlar.charAt(i)+keyWord.charAt(j));
        }
        FileWriter fein=new FileWriter(name+".txt");
        for (int i=0; i<textZaehler; i++)
        {
            fein.write(krypt[i]);
        }
        fein.close();
        System.out.println("Datei >"+name+"< verschlüsselt!");
        menue();
    }//vigenereCipher()
    public static void caesarDecipher(String name, Integer key)throws IOException
    {//caesarDecipher()
        String dateiInhalt="0", dateiNeu;
        FileReader faus=new FileReader(name+".txt");
        for (int i; (i=faus.read())!=-1;)
        {
            dateiInhalt=dateiInhalt+(char)(i-key);
        }
        dateiNeu=dateiInhalt.substring(1);
        FileWriter fein=new FileWriter(name+".txt");
        fein.write(dateiNeu);
        fein.close();
        System.out.println("Datei >"+name+"< entschlüsselt!");
        menue();
    }//caesarDecipher()        
    public static void caesarCipher(String name, Integer key)throws IOException
    {//caesarKrypt()
        String dateiInhalt="0", dateiNeu;
        FileReader faus=new FileReader(name+".txt");
        for (int i; (i=faus.read())!=-1;)
        {
            dateiInhalt=dateiInhalt+(char)(i+key);
        }
        dateiNeu=dateiInhalt.substring(1);
        FileWriter fein=new FileWriter(name+".txt");
        fein.write(dateiNeu);
        fein.close();
        System.out.println("Datei >"+name+"< verschlüsselt!");
        menue();
    }//caesarKrypt()
    public static void menue()throws IOException
    {//menue()
        BufferedReader ein=new BufferedReader(new InputStreamReader(System.in));
        int auswahl, key;
        String name, keyWord;
        
        System.out.println("1 - Textdatei mit dem Cäsar-Code verschlüsseln");
        System.out.println("2 - Textdatei mit dem Cäsar-Code entschlüsseln");
        System.out.println("3 - Textdatei mit dem Vigenere-Code verschlüsseln");
        System.out.println("4 - Textdatei mit dem Vigenere-Code entschlüsseln");
        System.out.println("5 - Programm beenden");
        auswahl=Integer.parseInt(ein.readLine());
        
        if (auswahl==1)
        {
            System.out.println("Namen der Textdatei eingeben:");
            name=ein.readLine();
            System.out.println("Schlüssel angeben (Integer):");
            key=Integer.parseInt(ein.readLine());
            
            caesarCipher(name, key);
        }
        else if (auswahl==2)
        {
            System.out.println("Namen der Textdatei eingeben:");
            name=ein.readLine();
            System.out.println("Schlüssel angeben (Integer):");
            key=Integer.parseInt(ein.readLine());
            caesarDecipher(name, key);
        }
        else if (auswahl==3)
        {
            System.out.println("Namen der Textdatei eingeben:");
            name=ein.readLine();
            System.out.println("Schlüsselwort eingeben:");
            keyWord=ein.readLine();
            vigenereCipher(name, keyWord);
        }
        else if (auswahl==4)
        {
            System.out.println("Namen der Textdatei eingeben:");
            name=ein.readLine();
            System.out.println("Schlüsselwort eingeben:");
            keyWord=ein.readLine();
            vigenereDecipher(name, keyWord);
        }
        else if (auswahl==5)
        {
            System.out.println("Programm beendet...");
            System.exit(0);
        }
        else
        {
            System.out.println("Ungültige Eingabe!");
            menue();
        }
    }//menue()    
    public static void main(String[]args)throws IOException
    {//main
        menue();
    }//main
}//class

Module Module1

    Dim Alpha() As String = New String() {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", _
                                        "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}
    Dim key As Integer
    Dim textalt As String = ""
    Dim textneu As String = ""
    Dim position As Integer
    Dim verschluesseln As Boolean

    Sub Main()
        Console.WriteLine("Text eingeben:")
        textalt = (Console.ReadLine).ToLower
        Console.WriteLine("Schlüssel eingeben:")
        key = Console.ReadLine
        Console.WriteLine("Richtung? (0 = entschlüsseln // 1 = verschlüsseln)")
        If Console.ReadLine() = 1 Then
            verschluesseln = True
        End If

        If verschluesseln Then
            For i As Integer = 0 To textalt.Length - 1
                position = Array.IndexOf(Alpha, textalt.Substring(i, 1))
                position += key
                If position > 25 Then
                    position -= 26
                End If
                textneu &= Alpha(position)
            Next
        Else
            For i As Integer = 0 To textalt.Length - 1
                position = Array.IndexOf(Alpha, textalt.Substring(i, 1))
                position -= key
                If position < 0 Then
                    position += 26
                End If
                textneu &= Alpha(position)
            Next
        End If

        Console.WriteLine(textneu)
        Console.ReadLine()
    End Sub
End Module

Module Module1

    Dim Alpha() As String = New String() {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", _
                                        "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}
    Dim key As String
    Dim textalt As String = ""
    Dim textneu As String = ""
    Dim zeichen As String
    Dim position As Integer
    Dim verschluesseln As Boolean

    Sub Main()
        Console.WriteLine("Text eingeben:")
        textalt = (Console.ReadLine).ToLower
        Console.WriteLine("Schlüssel eingeben:")
        key = Console.ReadLine
        Console.WriteLine("Richtung? (0 = entschlüsseln // 1 = verschlüsseln)")
        If Console.ReadLine() = 1 Then
            verschluesseln = True
        End If

        If key.Length < textalt.Length Then
            Do While key.Length < textalt.Length
                key &= key
            Loop
        End If

        If verschluesseln Then
            For i As Integer = 0 To textalt.Length - 1
                position = Array.IndexOf(Alpha, textalt.Substring(i, 1))
                position += Array.IndexOf(Alpha, key.Substring(i, 1))
                If position > 25 Then
                    position -= 26
                End If
                textneu &= Alpha(position)
            Next
        Else
            For i As Integer = 0 To textalt.Length - 1
                position = Array.IndexOf(Alpha, textalt.Substring(i, 1))
                position -= Array.IndexOf(Alpha, key.Substring(i, 1))
                If position < 0 Then
                    position += 26
                End If
                textneu &= Alpha(position)
            Next
        End If

        Console.WriteLine(textneu)
        Console.ReadLine()
    End Sub
End Module

#! /usr/bin/env python
# -*- coding: utf-8 -*-
import sys

def init_sbox(key):
    s = range(256)
    j = 0
    for i in range(256):
        j = (j + s[i] + ord(key[i % len(key)])) % 256
        s[i], s[j] = s[j], s[i]
    return s

def crypt(text, key):
    buf = list(text)
    i = j = 0
    s = init_sbox(key)
    for n in xrange(len(text)):
        i = (i + 1) % 256
        j = (j + s[i]) % 256
        s[i], s[j] = s[j], s[i]
        rand = s[(s[i] + s[j]) % 256]
        buf[n] = chr(rand ^ ord(buf[n]))

    return "".join(buf)

try:
    with open(sys.argv[1], "r+b") as data:
        new_content = crypt(data.read(), sys.argv[2])
        data.seek(0)
        data.write(new_content)
except IndexError:
    print "usage: rc4.py file key"