Wie muss hier die Entschlüsselung aussehen??

[Sebograf]

Keiner da der mir Tipps geben kann??

Habs jetzt noch mal anders probiert, aber es funktioniert noch nicht so richtig.

Vielleicht kann einer mal nen kurzen Blick drauf werfen, da ich es morgen abgeben muss.

Delphi-Quellcode:

procedure TKryptobox.Verschluesseln;
(* -------------------------------------------------------------- *)
var
  i,k,p,
  KTWert,
  GTWert  : integer;
  Zeichen : char;
  key : integer;
begin
  k:=1;
  Geheimtext := '' ;
  Vorbehandeln(Klartext);
  Vorbehandeln(Geheimtext);
  Vorbehandeln(Schluessel);

  while p <= length(klartext) do
  begin
  p := 1;
  while p <= length(klartext) do
  begin
    geheimtext := geheimtext + klartext[p];
    p := p + 4;
  end;
  p := 2;
  while p <= length(klartext) do
  begin
    geheimtext := geheimtext + klartext[p];
    p := p + 4;
  end;
  p := 3;
  while p <= length(klartext) do
  begin
    geheimtext := geheimtext + klartext[p];
    p := p + 4;
  end;
  p := 4;
  while p <= length(klartext) do
  begin
    geheimtext := geheimtext + klartext[p];
    p := p + 4;
  end;

    // hier kommt Ihr Verschluesselungsalgorithmus hin!
   for i := 1 to Length(klartext) do
   begin
 //  Vorbehandeln2(Klartext);
   KTWert:=GetStellenWertVon (Klartext[i]);
   key:=GetStellenWertVon (Schluessel[k]);
   if k<Length(Schluessel) then k:=k+1 else k:=1;
   GTWert:=(KTWert+key) mod 27;
   end;

   if(GTWert>=0)and(GTWert<=26)
   then begin
   Zeichen := GetZeichenVon (GTWert);
   Geheimtext:=Geheimtext+Zeichen;


end;
end;
end;

procedure TKryptobox.Entschluesseln;
(* -------------------------------------------------------------------- *)

var
  i,k,p,
  KTWert,
  GTWert  : integer;
  Zeichen : char;
  key : integer;
begin
   k:=1;
  Klartext := '';
  vorbehandeln(Geheimtext);
  Vorbehandeln(Klartext);
  Vorbehandeln(Schluessel);

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


  // hier kommt Ihr Entschluesselungsalgotithmus hin!
 for i := 1 to Length(geheimtext)-1 do
   begin
 // Vorbehandeln2(Geheimtext);

   GTWert:=GetStellenWertVon (Geheimtext[i]);
   key:=GetStellenWertVon (Schluessel[k]);
   if k<Length(Schluessel) then k:=k+1 else k:=1;
   KTWert:=(GTWert-key+27) mod 27;


   if(KTWert>=0)and(KTWert<=26)
   then begin
   Zeichen := GetZeichenVon (KTWert);
   Klartext:=Klartext+Zeichen;
end;
end;
end;