[DE/GER] Vigenere Chiffre (Entschlüsselung), Pascal

[DE/GER] Vigenere Chiffre (Entschlüsselung)

program VigenereChiffre; //Entschlüsseln
const
    Starttext='Srdyvkkxgu qymlr Pvcehc'; //Eigenen Text zum Entschlüsseln hier eingeben.
    Schluesselwort='KEY'; //Eigenen Schlüssel hier eingeben. (Muss derselbe wie beim Verschlüsseln sein)
var
    i,ASCIICode,Push,zaehler:integer;
    Endtext:string;
begin
    Endtext:='';
    zaehler:=1;
    for i:=1 to length(Starttext) do
        begin
            ASCIICode:=ord(Starttext[i]);
            Push:=ord(Schluesselwort[zaehler])-ord('A');
            if ASCIICode<=ord('Z') then //Verschlüsseln von Großbuchstaben
                if ASCIICode=ord(' ') then //Einberechnen von Leerzeichen (nicht notwendig)
                    begin
                        Endtext:=Endtext+chr(ASCIICode);
                        zaehler:=zaehler-1;
                    end
                else
                    begin
                        if ASCIICode-Push<ord('A') then Endtext:=Endtext+chr(ASCIICode-Push+26)
                        else Endtext:=Endtext+chr(ASCIICode-Push);
                    end
            else //Verschlüsseln von Kleinbuchstaben
                begin
                    if ASCIICode-Push<ord('a') then Endtext:=Endtext+chr(ASCIICode-Push+26)
                    else Endtext:=Endtext+chr(ASCIICode-Push);
                end;
            zaehler:=zaehler+1;
            if zaehler>length(Schluesselwort) then zaehler:=1; //Zurücksetzen des zählers, damit wieder der erste Buchstabe verwendet wird. 
        end;
    write(Endtext);
end.


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development