eine Variable bei jedem Durchlauf ändern, aber immer anders?

[Niels]

Zitat von malo:

Meine Case-Anweisung sieht so aus:

Delphi-Quellcode:

      case AenderungsZaehler of
        1: Aenderung := Aenderung + 7;
        2: Aenderung := Aenderung + 4;
        3: Aenderung := Aenderung + 9;
        4: Aenderung := Aenderung + 61;
        5: Aenderung := Aenderung - 70;
        6: Aenderung := Aenderung + 21;
        7: Aenderung := Aenderung + 1;
        8: Aenderung := Aenderung + 11;
        9: Aenderung := Aenderung - 20;
        10: Aenderung := Aenderung + 71;
        11: Aenderung := Aenderung + 22;
        12: Aenderung := Aenderung - 61;
        13: Aenderung := Aenderung - 51;
      end;
      inc(AenderungsZaehler);

Der Code ist innerhalb meiner Verschlüsselungsschleife

Wenn ich da jetzt "a" (ohne "...") verschlüsseln will, kommt das hier raus:

Code:

1243145

Damit kann ich leider nicht viel anfangen, da ich ja nicht weiß, wie sich die Variable Änderung auf die Veränderung des ASCII-Symbols auswirkt. Aber die Summer der Veränderungen der Variable Aenderung (komischer Satz) sollte 0 und nicht 5 sein, sonst wird Aenderung langsam aber sicher größer, und erreicht bei längeren Texten dann eben auch den 6-stelligen Bereich.

MfG Niels