RSA-шифрование

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    Memo2: TMemo;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Memo3: TMemo;
    Label10: TLabel;
    Button3: TButton;
    Button4: TButton;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j,k,a,b,c,h:longint;
begin
form1.Memo1.Text:='';
c:=strtoint(form1.Edit1.Text);
for i:=2 to c do begin
h:=0;
for j:=2 to (i-1) do
 if (i mod j)=0 then h:=h+1;
if h=0 then form1.Memo1.Text:=form1.Memo1.Text+inttostr(i)+#13#10;
end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var p,q,n,e,d,y,f,i,j:longint;
hh,hz:boolean;
begin
p:=strtoint(form1.Edit2.Text);
q:=strtoint(form1.Edit3.Text);
f:=(p-1)*(q-1);
n:=p*q;
form1.Label5.Caption:=inttostr(n);
e:=2;
for i:=n downto 2 do if (f mod i)<>0 then begin
hz:=false;
for j:=2 to (i-1) do if (i mod j)=0 then hz:=true;
if hz=false then e:=i;
end;
form1.Label7.Caption:=inttostr(e);
hh:=true;
y:=1;
d:=2;
while hh do begin
d:=d+1;
if (e*d mod f)=1 then hh:=false;
end;
form1.Label9.Caption:=inttostr(d);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var s1,s2:ansistring;
N,e,i,j,z,z1,z2:longint;
k:integer;
begin
k:=strtoint(form1.Edit4.Text);
e:=strtoint(form1.label7.Caption);
N:=strtoint(form1.label5.Caption);
s1:=form1.Memo2.Text;
i:=length(s1);
form1.Memo3.Text:='';
for j:=1 to i do begin
if s1[j]<>' ' then begin
z1:=1;
z:=ord(s1[j])-k;
for z2:=1 to e do z1:=z1*z;
z:=(z1 mod N);
form1.Memo3.Text:=form1.Memo3.Text+chr(z); end;
if s1[j]=' ' then form1.Memo3.Text:=form1.Memo3.Text+' ';
end;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
var s1,s2:ansistring;
N,d,i,j,z,z1,z2:longint;
k:integer;
begin
k:=strtoint(form1.Edit4.Text);
d:=strtoint(form1.label9.Caption);
N:=strtoint(form1.label5.Caption);
s1:=form1.Memo3.Text;
i:=length(s1);
form1.Memo2.Text:='';
for j:=1 to i do begin
if s1[j]<>' ' then begin
z1:=1;
z:=ord(s1[j]);
for z2:=1 to d do z1:=z1*z;
z:=((z1 mod N)+k);
form1.Memo2.Text:=form1.Memo2.Text+chr(z);
end;
if s1[j]=' ' then form1.Memo2.Text:=form1.Memo2.Text+' ';
end;
end;
 
end.