Hallo,
Ich arbeite gerade an einem kleinen Projekt welches ein wort mit dem "cäsar code" verschlüsselt.
Mein Problem ist folgendes und zwar ich möchte gerne dass in ein edit feld ein Zufälliges Wort ( aus etwa 20 Wörtern) aus einer Txt Datei geladen wird.
Dieses Wort wird dann verschlüsselt und in ein Label geschrieben.
Da das Programm als eine "Quiz" funktionieren soll reicht es nicht ein Wort eingeben zu können sondern dass automatisch eines geladen wird.
Momentan funktioniert es nur mit einem Wort das der Benutzer selbst eingibt und dass ist halt zu wenig
Der Code für die Verschlüsselung sieht ungefähr so aus:
Delphi-Quellcode:
procedure TForm1.mittel;
var i, buchstabe, Verschiebung : Integer;
Wort, Ausgabe : String;
begin
Wort := Edit2.text; // Sollte irgendwie durch ein zufallswort ersetzt werden
Ausgabe := '';
Verschiebung := 3;
for i := 1 to length(Wort) do
begin
BUCHSTABE := ord(Wort(.i.));
BUCHSTABE := ((BUCHSTABE + Verschiebung-96) mod 26)+96;
Danke im Vorraus
