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

t2:=Time;

vremja:=round((t2 - t1)*24*60*60);

Label33.Caption := IntToStr(vremja)+ 'сек';

Label34.Caption := FloatToStr(razmer/vremja)+'байт/сек';

end;

//S4itivaem alfavit dlja RSA

procedure TForm1.FormCreate(Sender: TObject);

begin

alf:=Form1.Label38.Caption;

end;

//Generacija prostih 4isel s pomowiju reweta Eratosfena

procedure TForm1.Button13Click(Sender: TObject);

const

n = 5000;

var

a:array[2..n] of boolean;

i,j:integer;

begin

for i:=2 to n do

a[i] := false;

for i:=2 to n do

begin

if(a[i] = false) then

begin

j:=2;

while i*j<=n do

begin

a[i*j]:=true;

j:=j+1;