Hier mein Quellcode:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i,k:integer;
begin
for k:=0 to Memo1.Lines.Count-1
do begin
for i:=1 to length(s)
do begin
s[i] := Chr( Ord(s[i]) + 3);
end;
end;
Memo1.Lines.Text:=s;
end;
procedure TForm1.Button2Click(Sender: TObject);
var i,k:integer;
begin
for k:=0 to Memo1.Lines.Count -1
do begin
for i:=1 to length(s)
do begin
s[i] := Chr( Ord(s[i]) - 3);
end;
end;
Memo1.Lines.Text:=s;
end;
Das Problem ist , dass er Sonderzeichen falsch umwandelt.Wie kann ich angeben , dasser nur Buchstaben nehmen soll zum Verschlüsseln????
Danke für alle Hilfe