Zitat von
Klaus01:
Schlüssellänge 5
Delphi-Quellcode:
for i:=1 to length(klartext) DIV schluessellaenge DO
for j:=i-1 to schluessellaenge
begin
VText:=VText+klartext[(j*schluessellaenge)+1]
end;
hab es folgendermaßen versucht einzu bauen:
Delphi-Quellcode:
procedure TForm1.verschluesselnClick(Sender: TObject);
var vtext:string;
i,j,s:integer;
begin
klartext:=memo3.Text;
s:=strtoint(schluessel.text);
vtext:='';
for i:=1 to length(klartext) DIV s{chluessellaenge} DO
for j:=i-1 to length(klartext) do
begin
vtext:=vtext+klartext[(j*s{chluessellaenge})+1];
memo4.lines.add(vtext);
end;
end;
aber ausgegeben wird mir das wenn ich geheimtext eingebe:
http://www.jacqyzone.de/jshome/bilder/krypto_fehler.jpg
Ich hab schon vieles versucht aber irgendwie klappt das nicht. Außerdem soll der Geheimtext in einer Zeile(mit max. 29 Zeichen) ausgegeben werden.