Verschlüsselung eines Strings

[glkgereon]

hier ein relativ einfacher algo, der den OttoNormalUser aber schon abhält...
ich guck mal, ich hatte den nämlich auch noch verbessert...


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;