Ich will echt kein Spielverderber sein, aber ich hab noch Hausaufgaben auf und bin müde also mach ich das ganze für Delphi mal verbal:
Entweder (die Dumme Variante) ne Gigantische Case of Anweisung auf nen Button packen, oder (die klügere Variante) über den Ord Befehl jeden Buchstaben um x Stellen verrücken.
Morgen liefe ich evtl nen Quellcode, hab jetzt aber wie gesagt keine Zeit das abzutippen.
Case of geht übrigens sowohl für Casesar als auch Vigenere.
Edit: Okay, ord wird problematisch mit Buchstaben wie X Y oder Z wenn der Schlüssel > 3 wird. Dafür müsst man da noch ne If Klausel setzen. |