so ich hab mal einen verbalen Algirithmus für das entschlüsseln formuliert:
1. Ermittle Anzahl der Zeilen(memmo.lines.count)
2. Beginne mit dem 1. Buchstaben des verschluesselten textes.
3. (Springe 4 Stellen weiter, schreibe den (an dieser Stelle stehenden) Buchstaben)* schlüssel
4. (Gehe eine Stelle weiter, wiederhole 3.) solange bis length(verschluesselter text) .
Das müsste eigentlich funktionieren. Die Schwierigkeit ist jetzt aber das in Delphi zu formulieren.
Ich hab schon was versucht:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var s,z,i,j:integer;
vtext:string;
begin
z:=memo3.lines.count;
s:=strtoint(schluessel.Text);
vtext:=memo4.Text;
memo3.Lines.Clear;
for i:=0 to length(vtext) do
begin
for j:=1 to s Do
begin
XXXXXXXXX//hier müsste das innere der Klammer aus 3. und 4. formuliert werden...
end;
end;
end;
an der Stelle komme ich nicht weiter...