Bitte helfen bei Erläuterung des Algorithmus

[Curby]

Erläutern Sie den folgenden Verschlüsselungsalgorithmus!

Delphi-Quellcode:

procedure TKryptobox.Verschluesseln; 
(* -------------------------------------------------------------- *) 
var 
  i : integer; 

  begin 
  Geheimtext := '' ; 
  Vorbehandeln(Klartext); 
  i := 1; 
  while i <= length(klartext) do 
  begin 
    geheimtext := geheimtext + klartext[i]; 
    i := i + 3; 
  end; 
  i := 2; 
  while i <= length(klartext) do 
  begin 
    geheimtext := geheimtext + klartext[i]; 
    i := i + 3; 
  end; 
  i := 3; 
  while i <= length(klartext) do 
  begin 
    geheimtext := geheimtext + klartext[i]; 
    i := i + 3; 
  end; 
end;

Optimieren Sie den Algorithmus durch Einführung einer weiteren Schleife!

[neolithos]

Was macht >Vorbehandeln(Klartext); ?

[Curby]

Behandelt den Text vor.
Alle Kleinbuchstaben werden zu Großbuchstaben und die Sonderzeichen werden aussortiert und ersetzt.

[neolithos]

Wenn ich das richtig verstanden habe wird aus
Hallo Welt

HLWTAOEL L

Stimmt das?

Lösung:
for von 1 bis 3
und dann die while darein schachteln

[Phoenix]

Das ist doch simpel. Das ist ein ganz einfacher Buchstabenverdreher.

Der Geheimtext enthält erst ab dem ersten jeden dritten Buchstaben des orginaltextes, dann ab dem zweiten Buchstaben jeden dritten und dann ab dem dritten wiederum jeden dritten Buchstaben.

Beispiel:

Code:

"Das ist ein Test" wird zu "D tiTtai nesse s"
"1231231231231231" wird zu "1111112222233333"
"Hallo Welt"       wird zu "HlWtaoel l"

Anhand der Zahlen ist es einfacher zu erkennen.

[Curby]

Danke