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

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

inc(k);

if k=100 then

break;

end;

end;

end;

//Zawifrovanie failov klju4om Ka

procedure TForm1.Button15Click(Sender: TObject);

var

Ka:int64;

Kb:int64;

Q,P:int64;

i:integer;

t1,t2:TDateTime;

vremja:integer;

razmer:integer;

begin

P:= StrToInt(Edit5.Text); //S4itivaem P

Q:= StrToInt(Edit4.Text); //S4itivaem Q

if(ListBox3.ItemIndex <> -1) then

begin

Ka:= StrToInt(ListBox3.Items[ListBox3.ItemIndex]);//Opredeljaem sly4ainim obrazom Ka

Kb := -1;

t1:=Time;

if Form1.RadioButton10.Checked=true then

begin

Wifrovanie_RSA(Ka, P, Q, '20RSA.txt','RSA_crypted\Z_20_RSA.txt',Kb);

razmer:=1024*20;