Delphi: Kryptographie!

[Ultimator]

Könnte man nicht einfach, ne whilfe-Schleife mit Abbruchbedingung, dass der String zu Ende ist nehmen, die den String durchläuft, eine Zählvariable (i oder so) um 5 erhöht und dann den i-ten Buchstaben des Strings an einen neuen String anfügt?

Etwa so:

Delphi-Quellcode:

i := 1;
while OrigStr[i] <> #0 do
  begin
    EncStr := EncStr + OrigStr[i];
    inc(i, 5);
  end;

Evtl. kann man das ja noch insofern erweitern, dass man keine 5 Schleifen (beginnend mit 1, mit 2, mit 3, 4, 5) braucht, sondern das alles in eine Schleife packt.

Ich denke, die Idee sollte klar geworden sein

//edit: *ARGH* Wo is der rote Kasten, wenn man ihn braucht?