[DeadWarlock]

PHP код:

unit Unit1; 
  
interface 
  
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ActnList, StdCtrls, Buttons, ExtCtrls, StdActns; 
  
type 
  TForm1 = class(TForm) 
    Memo1: TMemo; 
    Memo2: TMemo; 
    BitBtn1: TBitBtn; 
    crypto: TActionList; 
    Atbash: TAction; 
    ECezar: TAction; 
    DCezar: TAction; 
    action: TRadioGroup; 
    ComboBox1: TComboBox; 
    Label1: TLabel; 
    Label2: TLabel; 
    Label3: TLabel; 
    BitBtn2: TBitBtn; 
    BitBtn3: TBitBtn; 
    clear: TAction; 
    clr: TCheckBox; 
    change: TAction; 
    BitBtn4: TBitBtn; 
    BitBtn5: TBitBtn; 
    BitBtn6: TBitBtn; 
    BitBtn7: TBitBtn; 
    OpenDialog1: TOpenDialog; 
    SaveDialog1: TSaveDialog; 
    procedure AtbashExecute(Sender: TObject); 
    procedure BitBtn1Click(Sender: TObject); 
    procedure BitBtn2Click(Sender: TObject); 
    procedure BitBtn3Click(Sender: TObject); 
    procedure clearExecute(Sender: TObject); 
    procedure changeExecute(Sender: TObject); 
    procedure BitBtn4Click(Sender: TObject); 
    procedure BitBtn5Click(Sender: TObject); 
    procedure ECezarExecute(Sender: TObject); 
    procedure DCezarExecute(Sender: TObject); 
    procedure BitBtn6Click(Sender: TObject); 
    procedure BitBtn7Click(Sender: TObject); 
    procedure ComboBox1Change(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
  
var 
  Form1: TForm1;  
  
implementation 
  
{$R *.dfm} 
  
function catbash(s:string):string; 
var i:integer; c,d:char;rez:string; 
begin 
rez:=''; 
for i:=1 to length(s) do 
begin 
c:=s[i]; 
d:=chr(255-ord(c)); 
rez:=rez+d; 
end; 
catbash:=rez; 
end; 
function cEcezar(s:string;key:byte):string; 
var i:integer; c,d:char;rez:string; 
begin 
rez:=''; 
for i:=1 to length(s) do 
begin 
c:=s[i]; 
d:=chr((ord(c)+ key)mod 255); 
rez:=rez+d; 
end; 
cEcezar:=rez; 
end; 
function cDcezar(s:string;key:byte):string; 
var i:integer; c,d:char;rez:string; 
begin 
rez:=''; 
for i:=1 to length(s) do 
begin 
c:=s[i]; 
d:=chr((ord(c)- key)mod 255); 
rez:=rez+d; 
end; 
cDcezar:=rez; 
end; 
  
procedure TForm1.AtbashExecute(Sender: TObject); 
var i:integer; 
begin 
for i:=0 to memo1.Lines.Count do 
memo2.Lines.Add(catbash(memo1.Lines[i])); 
end; 
  
procedure TForm1.BitBtn1Click(Sender: TObject); 
begin 
if clr.Checked then memo2.clear; 
if combobox1.ItemIndex=0 then atbash.Execute 
else if action.ItemIndex=0 then ECezar.Execute 
else DCezar.Execute; 
end; 
  
procedure TForm1.BitBtn2Click(Sender: TObject); 
begin 
memo1.Clear; 
end; 
  
procedure TForm1.BitBtn3Click(Sender: TObject); 
begin 
memo2.Clear; 
end; 
  
procedure TForm1.clearExecute(Sender: TObject); 
begin 
memo1.Clear; 
memo2.Clear; 
end; 
  
procedure TForm1.changeExecute(Sender: TObject); 
begin 
memo1.Lines:=memo2.Lines; 
memo2.Clear; 
end; 
  
procedure TForm1.BitBtn4Click(Sender: TObject); 
begin 
change.Execute; 
end; 
  
procedure TForm1.BitBtn5Click(Sender: TObject); 
begin 
close; 
end; 
  
procedure TForm1.ECezarExecute(Sender: TObject); 
var i:integer;key:byte; 
begin 
key:=strtoint(inputbox('Шифр Цезаря','Введите значение ключа - только целое число','3')); 
for i:=0 to memo1.Lines.Count do 
memo2.Lines.Add(cEcezar(memo1.Lines[i],key)); 
  
end; 
  
procedure TForm1.DCezarExecute(Sender: TObject); 
var i:integer;key:byte; 
begin 
key:=strtoint(inputbox('Шифр Цезаря','Введите значение ключа - только целое число','3')); 
for i:=0 to memo1.Lines.Count do 
memo2.Lines.Add(cDcezar(memo1.Lines[i],key)); 
  
end; 
  
procedure TForm1.BitBtn6Click(Sender: TObject); 
begin 
if Opendialog1.Execute then 
memo1.Lines.LoadFromFile(opendialog1.FileName); 
  
end; 
  
procedure TForm1.BitBtn7Click(Sender: TObject); 
begin 
if Savedialog1.Execute then 
memo2.Lines.SaveToFile(savedialog1.FileName); 
  
end; 
  
end. 


Помогите убрать из него шифр Атбаша. И если можно выложить готовый код. Я вообще в этом не бумбум.