Verschlüsselungstool

[Wolfgang Mix]

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

Gruß

Wolfgang

[himitsu]

wenn dann eher

Delphi-Quellcode:

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

Delphi-Quellcode:

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 :wink:

[Nero281084]

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

[Wolfgang Mix]

:-D