Hi ich muss in Informatik ne Caesar Verschlüsselung umbauen.
Leider komm ich damit nich so ganz klar.
Vielleicht könnt ihr mir helfen??

Also hier erst mal die Ver- und Entschlüsselung:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TKryptobox.Verschluesseln;
(* -------------------------------------------------------------------- *)
var
  i,k,
  KTWert,
  GTWert : integer;
  Zeichen : char;
begin
  Geheimtext := '' ;
  Vorbehandeln(Klartext);
  Vorbehandeln(Geheimtext);
  // hier kommt Ihr Verschluesselungsalgorithmus hin!
  for i := 1 to length(Klartext) do
    begin
      KTWert := getStellenwertVon (Klartext[i]);
      GTWert := (KTWert+Schluessel)mod 27;
      Zeichen := getZeichenVon(GTWert);
      Geheimtext := Geheimtext + Zeichen;
end;
end;

procedure TKryptobox.Entschluesseln;
(* -------------------------------------------------------------------- *)
var
  i,
  KTWert,
  GTWert : integer;
  Zeichen : char;

begin
  Klartext := '';
  Vorbehandeln(Klartext);
  Vorbehandeln(Geheimtext);
  // hier kommt Ihr Entschluesselungsalgotithmus hin!
  for i := 1 to length(Geheimtext)-1 do
    begin
      GTWert := getStellenwertVon (Geheimtext[i]);
      KTWert := (GTWert-Schluessel+27)mod 27;
      Zeichen := getZeichenVon(KTWert);
      Klartext := Klartext + Zeichen;
    end;

end;

Da würde ich nun gerne 2 Transpositionen und 1 Substitution einbauen.

Vielleicht kann mir jemand helfen. (sollte aber bitte möglichst einfach sein)

Vielen Dank schon mal

Sebograf

Hai Sebograf,

willkommen in der Delphi-PRAXIS.

Frage: Hast Du den selben Lehrer wie Curby? Die Übereinstimmung der Variablen- und ProcedureNamem aus seinem Code in diesem Thread ist erstaunlich.

Kann durchaus sein, obwohl ich nicht weiß wer es aus meinem Kurs sein könnte.