Verschlüsselung mit dem Caesar Verfahren

[Jan]

Nein 100% hat es nicht geklappt, wie gesagt ewig nix mehr in delphi gemacht, aber mit ein wenig Eigeninitiative wäre man auf folgendes gekommen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var parameter, x, s, y: integer;
    alphabet, a: string;
    b: char;
begin
  Memo1.Text:='';
  alphabet:=Edit1.Text;
  parameter:=2;
   for y:=1 to length(alphabet) do
    begin
     s:=ord(alphabet[y]);
     if (s>=65) and (s<=90) then
         b:=chr((((s-65)+parameter) mod 26)+65)
     else if (s>=97) and (s<=122) then
         b:=chr((((s-97)+parameter) mod 26)+97)
     else
         b:=alphabet[y];
     a:=a+b;
    end;
    Memo1.Lines.Add(a);
end;

Und das ist sogar getestet, klappt also auch.

Gruß
Jan