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

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

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.


run \| edit \| history \| help	1

Please log in to post a comment.