Wie muss hier die Entschlüsselung aussehen??

[Sebograf]

Haben in Informatik folgendes Problem:
Wir habe folgenden Verschlüsselungs Code und müssen diesen Entschlüsseln.
Velleicht könnte mir da einer von euch kurz helfen:

Delphi-Quellcode:

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

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

  Klartext :='';

end;

Dieser Codse besteht aus einer Transposition.

Danke schonmal

MfG Sebograf