Verschlüsselungstool

[Wolfgang Mix]

Es ist noch kein Meister vom Himmel gefallen, war ja auch noch nie einer oben
Eigentlich hilft nur Übung und 'ne freundliche Delphi-Gemeinde.
Ich glaube, hier bist Du richtig aufgehoben

Gruß

Wolfgang

[himitsu]

wenn dann eher
normedKey := StrToInt(Form1.Edit1.Text); also wenn in dem edit eine Zahl steht


ansonsten für jedes zu verschlüsseönde Zeichen ein Zeichen aus dem Schlüssel nehmen
normedKey := Ord(Edit1.Text[(i - 1) mod Length(Edit1.Text) + 1]) - Ord('A'); Aber da das einzelne Funktionen sind, verwendet man da nicht direkt Edit1, sondern ändert die Parameter ... wie ich es oben schon erwähnte.

[pronoob1]

Also es funktioniert auf jedenfall

[Nero281084]

habe die lösung :
normedKey := Ord(AKey) - Ord('A') -2 + StrToInt(Form1.zahlen.Text);
und danke euch allen nochmals

[Wolfgang Mix]