Ich verstehe nicht ganz, wo das problem ist..
Wenn das verschluesseln nun schon klappt, dann ist das entschluesseln doch bei diesem Algorithmus ein Kinderspiel, man invertiert einfach den Verschluesselungsalgo.
Delphi-Quellcode:
procedure TForm1.verschluesselnClick(Sender: TObject);
var
i,j,s:integer;
begin
//zunaechst memo3 leeren.
s:=strtoint(schluessel.text);
for j:=1 to s do
begin
for i:=0 to memo4.Lines.Count-1 DO
begin
memo3.text:=memo3.text+memo4.lines.strings[i][j];
end;
end;
end;
dazu muss natuerlich auch das memo4 in der spaltenform sein.
Gruss
Jan