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:
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