Oben der Klartext, darunter der Codetext, 3. zeile ist die Differenz ...
Code:
68 97 83 32 75 114 73 101 71 116 32 73 104 82 32 69 104 32 78 105 67 104 84 32 82 97 85 115 33
71 102 90 37 78 115 72 98 66 109 27 70 103 83 35 74 111 37 81 106 66 101 79 25 77 94 84 116 36
+3 +5 +7 +5 +3 +1 -1 -3 -5 -7 -5 -3 -1 +1 +3 +5 +7 +5 +3 +1 -1 -3 -5 -7 -5 -3 -1 +1 +3
Bin zu faul, delphi aufzumachen, müsste aber so in der Art gehen:
Delphi-Quellcode:
zahl := 1;
increment := TRUE;
for i := 1
to length (KlarText)
do
begin
if increment
then inc (zahl, 2);
else dec (zahl, 2);
Codetext := Codetext + chr (ord (Klartext[i]) + zahl);
if abs (zahl) = 7
then increment :=
not increment;
end;