Курсовая работа: Использование современных симметрических DES и асимметрических RSA алгоритмов шифрования

end;

end;

ListBox4.Clear;

for i:=1 to n do

begin

if(a[i] = false) then

ListBox4.Items.Add(IntToStr(i));

end;

end;

//Generacija vozmognih variantov klju4a Ka

procedure TForm1.Button14Click(Sender: TObject);

var

i:integer;

f:int64;//4islo vzaimno prostih 4isel s N

N,P,Q:int64;

x,y:int64;

k:integer;

begin

P:=StrToInt(Edit5.Text);

Q:=StrToInt(Edit4.Text);

N:=Q*P;

//Vi4isljaem koli4estvo vzaimno prostih s N 4isel

f:=(P-1)*(Q-1);

//Vivodim vse vozmognie Ka

ListBox3.Clear;

k:=0;

for i:=(f div 2) to f do

begin

if(NOD(i,f,x,y)= 1) then