написать прогу с методами Шифрования (((

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Buttons, XPMan;
 
type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label1: TLabel;
    Edit2: TEdit;
    UpDown1: TUpDown;
    Label4: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Edit4: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    GroupBox2: TGroupBox;
    Label10: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Edit1: TEdit;
    UpDown2: TUpDown;
    Edit5: TEdit;
    Edit6: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    SpeedButton1: TSpeedButton;
    XPManifest1: TXPManifest;
    Button3: TButton;
    GroupBox3: TGroupBox;
    Memo1: TMemo;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    procedure Edit2Change(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
  function sdvig(sender:TEdit):string;
  function coder():string;
  function decoder():string;
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
function Tform1.sdvig(sender:TEdit):string;
var s,res:string;
    i,key,len:integer;
begin
res:='';
try
s:=label1.caption;
key:=strtoint((sender as TEdit).text);
key:=key-(key div 32)*32;
len:=length(s);
for i:=1 to len do
  begin
    if i+key<=len then
    begin
      res:=res+s[i+key];
    end
    else
    begin
      res:=res+s[i+key-len];
    end;
  end;
except ShowMessage('Недопустимое смещение!');
end;
Result:=res;
end;
 
 
 
function Tform1.coder():string;
var s1,s2,isx,res:string;
    i,len:integer;
begin
s1:=label1.caption;
s2:=label7.caption;
isx:=edit3.text;
res:='';
len:=length(isx);
  for i:=1 to len do
  begin
    if isx[i]<>' ' then res:=res+s2[pos(isx[i],s1)]
    else res:=res+' ';
  end;
result:=res;
end;
 
procedure TForm1.Edit2Change(Sender: TObject);
begin
label7.Caption:=sdvig(Edit2);
SpeedButton2.Enabled:=true;
SpeedButton1.Enabled:=false;
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
label8.Caption:=sdvig(Edit1);
end;
 
function Tform1.decoder():string;
var s1,s2,isx,res:string;
    i,len:integer;
begin
s1:=label1.caption;
s2:=label8.caption;
isx:=edit5.text;
res:='';
len:=length(isx);
  for i:=1 to len do
  begin
    if isx[i]<>' ' then res:=res+s1[pos(isx[i],s2)]
    else res:=res+' ';
  end;
result:=res;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
edit6.Text:=decoder;
end;
 
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
edit5.Text:=edit4.Text;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var k:integer;
begin
memo1.Lines.Clear;
for k:=1 to 32 do
  begin
  edit1.Text:=inttostr(k);
  memo1.lines.add(inttostr(k)+': '+decoder);
  end;
end;
 
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
edit4.Text:=coder;
SpeedButton1.Enabled:=true;
SpeedButton2.Enabled:=false;
end;
 
procedure TForm1.Edit3Change(Sender: TObject);
begin
SpeedButton2.Enabled:=true;
SpeedButton1.Enabled:=false;
end;
 
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
edit6.Text:=decoder;
end;
 
end.