Hallo zusammen.
Ich würde gerne ein Delphi Programm erstellen, bei dem der Benutzer einen mehrzeiligen Text eingeben kann.
Dieser soll im Caesar Verfahren verschlüsselt und dem Benutzer ausgegeben werden.
Dabei soll aber Groß- und Kleinschreibung, sowie Satzzeichen berücksichtigt werden.
Mein Ansatz (bei dem nur Groß- und Kleinschreibung berücksichtigt ist):
Delphi-Quellcode:
procedure TForm1.BEntschluesselnClick(Sender: TObject);
var parameter, x, s, y: integer;
alphabet, a: string;
b: char;
begin
MAusgabe.Text:='';
alphabet:=MEingabe.Text;
parameter:=Para.Value;
for y:=1 to length(alphabet) do
begin
s:=ord(alphabet[y]);
x:=s+parameter;
if s<96 then
if x>90 then b:=chr(x-26)
else b:=chr(x);
if s>96 then
if x>122 then b:=chr(x-26)
else b:=chr(x);
a:=a+b
end;
MAusgabe.Lines.Add(a);
end;
procedure TForm1.BVerschluesselnClick(Sender: TObject);
var parameter, x, s, y: integer;
alphabet, a: string;
b: char;
begin
MAusgabe.Text:='';
alphabet:=MEingabe.Text;
parameter:=Para.Value;
for y:=1 to length(alphabet) do
begin
s:=ord(alphabet[y]);
x:=s-parameter;
if s<96 then
if x<65 then b:=chr(x+26)
else b:=chr(x);
if s>96 then
if x<97 then b:=chr(x+26)
else b:=chr(x);
a:=a+b;
end;
MAusgabe.Lines.Add(a);
end;
Der Text wird aber immer in einer Zeile verschlüsselt, bzw. entschlüsselt und es werden keine Satzzeichen berücksichtigt.
Weiß jemand die Lösung meines Problems?
Wie müssen die Zahlen geändert werden, damit alles berücksichtigt wird?
MfG
UdoVogel
[edit=alcaeus]Delphi-Tags eingefuegt und Personality richtig gesetzt. In Zukunft bitte selbst machen, Danke. Mfg, alcaeus[/edit]