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

[malo]

@Binärbaum: Aber da wär mir die Änderung wieder etwas zu regelmäßig. Ich will jedes Mal eine komplett neue Änderung haben. Also z.B. beim ersten mal +5, beim 2. mal +77, beim 3. Mal +88, beim 4. mal +2, beim 5. mal -20 oder sowas... nur halt bei jedem Zeichen!

@Niels:

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

//edit: wegen "leicht zu knacken": Ich versuch ja erstmal etwas einfaches zu machen, zum lernen. Das soll jetzt keine perfekte unknackbare verschlüsselung werden, das kann ich eh nicht