Kryptologie Projekt in Delphi... HILFE !!!

[Klaus01]

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