Einzelnen Beitrag anzeigen

Benutzerbild von Jan
Jan

Registriert seit: 24. Sep 2002
Ort: Magdeburg
491 Beiträge
 
Delphi 7 Enterprise
 
#23

Re: Kryptologie Projekt in Delphi... HILFE !!!

  Alt 23. Mär 2006, 02:51
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
Jan
Wenn die Sonne der Kultur tief steht, werfen auch kleine Gestalten lange Schatten.
  Mit Zitat antworten Zitat