Verschlüsselungs-algo

[glkgereon]

Oooopppsss, ich habe gesagt Keine For-Schleife????

hmm, in der schule hatte ich im kopf ich würde es mit while machen *ggg*
na gut, is doch for

hier mal der code:
verschlüsseln

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i, adder, toggle:integer;
begin
  toggle:=SpinEdit1.Value;
  adder:=SpinEdit2.Value;
  Memo2.Clear;
  for i:=1 to length(Memo1.Text) do
    begin
    Memo2.Text:=Memo2.Text+ Chr((Ord(Memo1.Text[i])+adder) mod 256);
    adder:=adder+toggle;
    if abs(adder)>SpinEdit3.Value then toggle:=toggle*(-1);
    end;
end;

entschlüsseln

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var i, adder, toggle:integer;
begin
  toggle:=SpinEdit4.Value;
  adder:=SpinEdit5.Value;
  Memo1.Clear;
  for i:=1 to length(Memo2.Text) do
    begin
    Memo1.Text:=Memo1.Text+ Chr((Ord(Memo2.Text[i])-adder) mod 256);
    adder:=adder+toggle;
    if abs(adder)>SpinEdit6.Value then toggle:=toggle*(-1);
    end;
end;

aber keine sorge, ich habe den code bereits modifiziert und verbessert....
der hier ist von gestern