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

end;

//CBC zawifrovanie failov klju4om na 7 bait

procedure TForm1.Button11Click(Sender: TObject);

var

klu4:string;

vektor:string;

t1,t2:TDateTime;

vremja:integer;

razmer:integer;

begin

klu4:=Edit12.text;

while( Length(klu4)<8 ) do

klu4:=klu4 + '*';

Formirovanie_16_podklju4ei(klu4);

vektor:=Edit1.text;

while( Length(vektor)<8 ) do

vektor:=vektor+ '0';

t1:=Time;

if Form1.RadioButton10.Checked=true then

begin

Wifrovanie_CBC('20.txt','DES_crypted\Z_20_7_CBС.txt',vektor);

razmer:=1024*20;

end;

if Form1.RadioButton9.Checked=true then

begin

Wifrovanie_CBC('50.txt','DES_crypted\Z_50_7_CBС.txt',vektor);

razmer:=1024*50;

end;

if Form1.RadioButton8.Checked=true then