Ahh, die Information hat mir gefehlt: es geht um die Cäsar-Verschlüsselung
Ich geb dir dazu mal ein paar Tipps. Code kann ich dir jetzt nicht aufschreiben, weil es sich anscheinend um eine Hausaufgabe handelt.
Also dein Code kommt mir persöhnlich nicht besonders Cäsar-nah vor. Geht es wirklich um Cäsar wenn dein Schlüssel ein String ist? Bei Cäsar ist der Schlüssel nämlich eine Zahl.
Hier mal etwas Pseudo-Code, wie man Cäsar machen könnte:
Code:
Text vorbereiten
Schlüssel vom Typ integer
0 < i <= Länge des Klartextes
begin
Ord(Klartext an der Stelle i) mit dem Schlüssel Addieren (Alphabeth wird soweit verschoben, wie es der Schlüssel angibt)
Überlegen, was passieren muss, wenn der addierte Wert größer als der Ord()-Wert von Z ist
Addierten Wert wieder zum Buchstaben machen mit Chr(...) und beim Geheimtext anhängen
end;
Und Entschlüsseln ist jetzt ganz einfach ...