vor

Auswahlstrukturen
IF - THEN

weiter

Verschlüsselung von Eingaben

Es ist ein anwenderfreundliches Delphiprogramm zu erstellen, welches eingegebene Zeichenfolgen verschlüsseln und wieder entschlüsseln kann. Damit könnte man dann die verschlüsselte Zeichenfolge in einer Datei speichern, so dass ihr Inhalt nur schlecht von unbefugten Personen erkannt werden kann. Nach dem Einlesen würde das Programm den Originaltext wieder herstellen können.

Damit es beim Decodieren keine Verwechslungen geben kann, sollen immer je zwei Zeichen miteinander vertauscht werden. Welche zwei das sind, kann selbst festgelegt werden - es darf nur keine Wiederholung geben. Es müssen auch nicht alle Zeichen vertauscht werden.

Natürlich soll beim Decodieren der Tausch genau so wieder rückgängig gemacht werden. Deshalb ist es zweckmäßig, nicht den Quellcode zweimal zu schreiben, sondern eine Prozedur "Tauschen" zu deklarieren und diese zweimal aufzurufen.

Codierung
Komponente Eigenschaft Wert Bemerkungen
Form1 Caption ‘Verschlüsseln’ Überschrift in der Kopfleiste des Programmfensters
Label1 Caption 'Geben Sie einen Text ein!' Aufforderung zur Eingabe
Edit1 Text '0' Eingabefeld für den Originaltext
Button1 Caption 'codieren' Nach einem Klick wird die Eingabe codiert und darunter angezeigt.
Edit2 Text '0' Ausgabe des verschlüsselten Codes
Button2 Caption 'codieren' Nach einem Klick wird die Zeichenfolge decodiert und darunter angezeigt.
Edit3 Text '0' Ausgabe des wieder hergestellten Textes
Lösung
vor

Inhaltsverzeichnis

weiter