Delphi Kryptologie

[bigben37]

vielleicht mal ein Ansatz:

Delphi-Quellcode:

procedure Verschluessle;
var
  l: Integer;
  text1, text2: string;
begin
  l := Length(klartext);
  text1 := Copy(klartext, 1, l div 2);
  text2 := Copy(klartext, l div 2 + 1, l);
end;

Jetzt kannst du ja text1 mit Vigenere verschlüsslen und text2 mit Vigenere2.

Für das Entschlüsseln genau das gleiche.

Noch ein Anmerkung:
Man kann das natürlich so machen wie Du ihr, aber ich würde die Verschlüsselungsproceduren mit Paramenter und Rückgabewert schreiben, das finde ich übersichtlicher.

Edit:
Mir fällt an eurem Code auf, dass ihr das da gar nicht macht, sondern Vigenere und Vigenere2 auf den gesammten Text anwenden. Wenn ihr mal euren Versuch, der nicht funktioniert posten könntet, dann wüssten wir, woran wir wären.

[edit=Admin]Cache aktualisiert. Mfg, Daniel[/edit]