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

[sakura]

Wie weit bist Du denn schon gekommen? Zeig uns mal den Code, welchen Du schon hast. Wir lösen aus Prinzip keine kompletten Schulaufgaben - oder bekommen wir die eins? :roll:

...:cat:...

[Die Muhkuh]

Hmm, such mal im Forum! Das wurde hier schon mal bequatscht!

[Sharky]

Zitat:

Zitat von sakura

..... Wir lösen aus Prinzip keine kompletten Schulaufgaben .....

Zumal dies jetzt schon das dritte Posting der selben Art ist.
Und wenn man sich die "Grundgerüste" ansieht kommen die Aufgaben auch alle vom selben Lehrer.

Es bringt ja nichts sich die Aufgaben von einem anderen Lösen zu lassen. Bei der nächsten Aufgabe muss man nämlich wieder fragen da man ja das Prinzip er ersten nicht verstanden hat.

Wie die Katze schon sagte: "Wo hängt es denn?"

[Sebograf]

Danke mir is grade aber nen Licht aufgegeangen.

Habs von alleine hinbekommen.

Zitat:

Es bringt ja nichts sich die Aufgaben von einem anderen Lösen zu lassen.

Natürlich bringt es was. So kann ich mir die Zusammenhänge selber raussuchen und versuchen sie zu verstehen.

Trotzdem nochmal Danke

MfG Sebograf

Ach doch noch ne frage:
wie sorge ich dafür, dass Leerzeichen danach wieder an die selbe Stelle kommen???

[Uncle Cracker]

Kannst du uns vielleicht mal die Lösung zeigen?

Ich brauch sie zwar nicht für die Schule oder so, doch interessieren würde es mich schon


:love: Danke UC

[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.

[Sebograf]

Ich bekomms net auf die Reihe. Sobald der Text zulang wird, macht er nur noch blödsinn.

Ihr seht ja wie ich es angegangen bin. Vielleicht kann mir jemand helfen??

Außerdem muss ich auch noch irgendwo denn aus buchstaben bestehenden key einbaun.

Bitte helft mir, ich bin wirklich mit meinem Latein am Ende.

Vielen Dank schon mal

Sebograf

[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;

[Sebograf]

*SCHIEB*