einfaches Entschlüsselungsproblem

[tomsel]

Ich hab deine Verschlüsselung leicht abgeändert (Klammerung) und die passende Entschlüsselung mitgeliefert. Das Ganze funktioniert aber nur im Bereich der Grossbuchstaben.

Delphi-Quellcode:

procedure Encode;
var i,j:integer;
      s,key:string;
begin
   key:=Edit1.Text;
   s:=memo1.lines.text;
   for j:=1 to length(key) do begin
      for i:=1 to length(s) do begin
         S[i]:=Chr(65 + ((Ord(S[i]) - 65) + (Ord(Key[j]) - 65) mod 26 ));
      end;
   end;
   Memo1.Lines.Text:=s;
end;

procedure Decode;
var x,i,j:integer;
      s,key:string;
begin
   key:=Edit1.Text;
   s:=memo1.lines.text;
   for j:=1 to length(key) do begin
      for i:=1 to length(s) do begin
         x:=(Ord(S[i]) - 65) - (Ord(Key[j]) - 65);
         if x<0 then
            x:=26+x;
         S[i]:=Chr(65 + x);
      end;
   end;
   Memo1.Lines.Text:=s;
end;