Wie muss hier die Entschlüsselung aussehen??

[Sebograf]

Delphi-Quellcode:

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

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

  Geheimtext :='';

So funktioniert es, aber er macht immer noch was hinter wegen den Leerstellen.

Halt klappt doch noch net ganz..
muss noch mal gucken. Bei längeren Sachen kackt er noch ab.