|
Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
Delphi 12 Athens
|
Re: Verschlüsselungstool
9. Nov 2009, 16:24
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.
$2B or not $2B
|