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!

[neolithos]

Was macht >

Delphi-Quellcode:

Vorbehandeln(Klartext);

?

[Curby]

Behandelt den Text vor.
Alle Kleinbuchstaben werden zu Großbuchstaben und die Sonderzeichen werden aussortiert und ersetzt.

[neolithos]

Wenn ich das richtig verstanden habe wird aus
Hallo Welt

HLWTAOEL L

Stimmt das?

Lösung:
for von 1 bis 3
und dann die while darein schachteln

[Phoenix]

Das ist doch simpel. Das ist ein ganz einfacher Buchstabenverdreher.

Der Geheimtext :roll: enthält erst ab dem ersten jeden dritten Buchstaben des orginaltextes, dann ab dem zweiten Buchstaben jeden dritten und dann ab dem dritten wiederum jeden dritten Buchstaben.

Beispiel:

Code:

"Das ist ein Test" wird zu "D tiTtai nesse s"
"1231231231231231" wird zu "1111112222233333"
"Hallo Welt"       wird zu "HlWtaoel l"

Anhand der Zahlen ist es einfacher zu erkennen.

[Curby]

Danke :lol: