Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
9. Nov 2009
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) - 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.
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
9. Nov 2009
tmp := Ord(AText) - Ord('A'); // Normalisieren
tmp := (26 + (tmp - normedKey)) mod 26; // Verschieben
Result := Chr(tmp + Ord('A')); // Denormalisieren
Normalisieren macht aus A=0, B=1 usw.
bei Denormalisieren ist es genau andersrum
und das in der Mitte würde ich mal etwas verständlicher übersetzen
tmp := Ord(AText) - Ord('A'); // Normalisieren
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
9. Nov 2009
@Bernhard:
In der Schule nimmt man auch erher mal einfache Dinge ... muß dann ja nicht so sicher sein, hauptsache es macht ein bissl Arbeit :angel:
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
9. Nov 2009
das klingt irgendwie nach einer Cäsar-Verschlüsselung
Cäsar Verschlüsselung
http://de.wikipedia.org/wiki/Verschiebechiffre
und es gibt auch einige Beispiele dazu im Forum zu finden cäsar
genauer gesag, ist das der Sonderfall ROT13, ROT13, ROT13