Geheimsprache

[braingrenade]

ok dann mal los ...

also erstmal hab ich gekuck welche Zahlenwerte (das was ord zuückgibt) die buchstaben A bis Z und a bis Z haben , das A hat den wert 65 und das z den wert 122 .

Hier prüfe ich ob der wert des Buchstabens zwischen 65 und 122 ist .

Delphi-Quellcode:

if (x >= 65) and (x<=122) then 
begin

Ist er es nicht wird er einfach so übernommen sodass z.b. ein leerzeichen ein leerzeichen bleibt
else Satz2 := satz2 + chr(x); Da das normale allphabet bei 1 (hier halt 0) anfängt nehm ich x minus 65
x := x - 65 ; So, hier nehme ich x plus eins (kannst auch mal ne andere beliebige zahl einsetzten funzt auch)
und das mod 58 beiwirkt das wenn ich zum bsp 58 + 1 = 59 habe , das aber zu groß ist , x = 1 wird, d.h. mod gibt mir immer den rest einer division. (58 ist die anzahl der Buchstaben)
x := (x+1) mod 58 ; Hier wird x wieder plus 65 genommen so das es wieder in den ascii-code passt und dann in satz2 gespeichert

Delphi-Quellcode:

x := x +65 ; 
Satz2 := satz2 + chr(x);