Forum: Programmieren allgemein
by Klaus01,
23. Mär 2006
setzt aus einem verschlüsselten String wieder den Originaltext zusammen.
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;
Forum: Programmieren allgemein
by Klaus01,
22. Mär 2006
procedure TForm1.verschluesselnClick(Sender: TObject);
var
i,j,s:integer;
begin
s:=strtoint(schluessel.text);
for j:=1 to s do
begin
for i:=0 to memo3.Lines.Count-1 DO
begin
Forum: Programmieren allgemein
by Klaus01,
22. Mär 2006
procedure TForm1.klartexteingabeClick(Sender: TObject);
var
i:integer;
text_dummy:string;
begin
// memo löschen
memo3.text:='';
// Schlüssellänge
Forum: Programmieren allgemein
by Klaus01,
22. Mär 2006
mit der Listbox stelle ich mir das auch etwas schwieriger vor.
Einfacher geht es denke ich mit einem TMemo.
In dem Klartextfenster nach dem die Anzahl der Zeichen eingetragen wurden
die der Schüsselänge entspricht eine neue Zeile hinzufügen
und dort dann wieder die gewünschte Anzahl an Zeichen eintragen....
Zum Umwandeln kannst Du dir dann entweder den Klartext als ein String
lassen,...
Forum: Programmieren allgemein
by Klaus01,
22. Mär 2006
Schlüssellänge 5
wenn Dein Klartext jetzt
so ausschaut:
diesisteinBeispiel
d i e s i
s t e i n
B e i s p