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?
Julian J. Pracht