Шифр Атбаш. Зашиваюсь с дипломом!

[Регина]

У кого есть программа для шифра Атбаш?Плизз.......

[RSLoader]

function Atbash(s:string):string;
var
  i:Integer;
begin
  for i:=1 to Length(s) do
  s[i]:=Chr(255-Ord(s[i]));
  Result:=s;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text:=Atbash(Edit1.Text);
end;

Шифровка и дешифровка реализуется одной функцией.

[Регина]

Спасибо!!!!