einfaches Entschlüsselungsproblem

[tomsel]

Zitat:

Zitat von Penelopee:

Zitat von tomsel:

Bei mir funktioniert's, aber eben nur im Alphabet 'A'..'Z'. Man darf insbesondere auch kein Leerzeichen und keine Umlaute verwenden. Hast du dies beim testen beachtet?

Wie kann ich den Quellqode denn umbauen , dass es mit Leerzeichen funktioniert???

So zum Beispiel:

Delphi-Quellcode:

procedure TForm1.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( Ord(S[i]) + Ord(Key[j]) mod 256 );
     end;
   end;
   Memo1.Lines.Text := s;
end;

procedure TForm1.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]) - Ord(Key[j]);
       if x < 0 then
         x := 256 + x;
       S[i] := Chr(x);
     end;
   end;
   Memo1.Lines.Text := s;
end;