Kryptologie Projekt in Delphi... HILFE !!!

[Jan]

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