Schlüssellänge 5
wenn Dein Klartext jetzt
so ausschaut:
diesisteinBeispiel
d i e s i
s t e i n
B e i s p
i e l * *
wird daraus
dsBiiteeeeilsis*inp*
das ist Dein verschlüsselter Text
o[1],o[6],o[12],o[18],o[2],o[7]....
Delphi-Quellcode:
for i:=1 to length(klartext) DIV schluessellaenge DO
for j:=i-1 to schluessellaenge
begin
VText:=VText+klartext[(j*schluessellaenge)+1]
end;
Das ist nicht getestet, aber im Prinzip sollte es so funktionieren.
Grüße
Klaus