Fragen

[Curby]

1. 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!

2. Schreiben Sie ein Unterprogramm, das einen eingegebenen Text invertiert, zunächst als Struktogramm, dann als Pascal-Unterprogramm (Prozedur und Funktion)!

3. Erstellen Sie einen Algorithmus, der in einem übergebenen Text die Häufigkeit eines übergebenen Zeichens bestimmt und zurückliefert. Schreiben Sie den Algorithmus als Pascal-Unterprogramm (Funktion und Prozedur)!
Notieren Sie zu beiden Unterprogrammen jeweils einen Aufruf in einem anderen Programmteil und die dazu notwendigen Variablendeklarationen.

----------------------------------------------------------------------------------------------

Kann mir bitte jemand bei der Beantwortung der Fragen helfen, da ich absolut keine Ahnung davon hab. (1. bekomm ich hin, aber 2. und 3. nicht...)