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

Language: Layout:

program VigenereChiffre; //Verschlüsseln
const
    Starttext='Informatik macht Freude'; //Eigenen Text zum Verschlüsseln hier eingeben
    Schluesselwort='KEY'; //Eigenen Schlüssel hier eingeben. (Selber Schlüssel zum Entschlüsseln benötigt)
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üsselung von Großbuchstaben
                if ASCIICode=ord(' ') then //Einberechnung von Leerzeichen (nicht notwendig)
                    begin
                        Endtext:=Endtext+chr(ASCIICode);
                        zaehler:=zaehler-1; //Abziehen vom zähler, damit derselbe Buchstabe für die Verschlüsselung genutzt wird
                    end
                else
                    begin
                        if ASCIICode+Push>ord('Z') then Endtext:=Endtext+chr(ASCIICode+Push-26)
                        else Endtext:=Endtext+chr(ASCIICode+Push);
                    end
            else //Verschlüsselung von Kleinbuchstaben
                begin
                    if ASCIICode+Push>ord('z') 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 der erste Buchstabe verwendet wird.
        end;
    write(Endtext);
end.

Show compiler warnings [ + ] Show input
Compilation time: 0.12 sec, absolute running time: 0.17 sec, cpu time: 0.01 sec, memory peak: 6 Mb, absolute service time: 0,67 sec