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!