Hilfe:Caesar-Verfahren

[generic]

wie ist es damit?

Delphi-Quellcode:

const rotation: Integer=3;

function decode(s: string):string;
var i: Integer;
begin
  Result:='';
  for i:=1 to Length(s) do
  begin
    if Upcase(s[i]) in ['A'..'Z'] then
      Result:=Result+chr((Ord(Upcase(s[i]))-Ord('A')+rotation) mod 26+Ord('A'))
    else
      Result:=Result+s[i];
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit2.Text:=decode(Edit1.Text);
end;