setzt aus einem verschlüsselten String wieder den Originaltext zusammen.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var s,i,j,z:integer;
vtext,otext:string;
begin
s:=strtoint(schluessel.Text); // Schlüssellänge
z:=length(vtext) div s // Anzahl der "Spalten"
vtext:=memo4.Text;
otext:='';
for i:=1 to z do // durchlaufe die Spalte, äußere Schleife
for j:=1 to s do //durchlaufe die Zeilen, innere Schleife
otext:=otext+vtext[((j-1)*z)+i)] // klartext zeichen an position (j-1)*zeilenanzahl + spaltennummer
end;
trockendurchlauf:
vtext = dsBiiteeeeilsis*inp*
mit s = 5
z = 4
spalte 1
otext:=otext+vtext[(0*4)+1] otext=d
otext:=otext+vtext[(1*4)+1] otext=di
otext:=otext+vtext[(2*4)+1] otext=die
otext:=otext+vtext[(3*4)+1] otext=dies
otext:=otext+vtext[(4*4)+1] otext=diesi
spalte2
otext:=otext+vtext[(0*4)+2] otext=diesis
otext:=otext+vtext[(1*4)+2] otext=diesist
otext:=otext+vtext[(2*4)+2] otext=diesiste
otext:=otext+vtext[(3*4)+2] otext=diesistei
otext:=otext+vtext[(4*4)+2] otext=diesistein
spalte3
...
spalte4
otext:=otext+vtext[(0*4)+4] otext=diesis..i
otext:=otext+vtext[(1*4)+4] otext=diesist..ie
otext:=otext+vtext[(2*4)+4] otext=diesiste..iel
otext:=otext+vtext[(3*4)+4] otext=diesistei..*
otext:=otext+vtext[(3*4)+4] otext=diesistei..**
Hoffe, es ist diesmal kein Denkfehler drin.
Grüße
Klaus