p align="left"> procedure Button10Click(Sender: TObject); procedure Button11Click(Sender: TObject); procedure Button12Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button13Click(Sender: TObject); procedure Button14Click(Sender: TObject); procedure Button15Click(Sender: TObject); procedure Button16Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} //Zawifrovanie failov klju4om na 5 bait procedure TForm1.Button1Click(Sender: TObject); var klu4:string; t1,t2:TDateTime; vremja:integer; razmer:integer; begin klu4:=Edit10.text; while( Length(klu4)<8 ) do klu4:=klu4+'0'; Formirovanie_16_podklju4ei(klu4); razmer:=0; t1:=Time; if Form1.RadioButton10.Checked=true then begin Wifrovanie_ECB('20.txt','DES_crypted\Z_20_5_ECB.txt'); razmer:=1024*20; end; if Form1.RadioButton9.Checked=true then begin Wifrovanie_ECB('50.txt','DES_crypted\Z_50_5_ECB.txt'); razmer:=1024*50; end; if Form1.RadioButton8.Checked=true then begin Wifrovanie_ECB('100.txt','DES_crypted\Z_100_5_ECB.txt'); razmer:=1024*100; end; if Form1.RadioButton7.Checked=true then begin Wifrovanie_ECB('500.txt','DES_crypted\Z_500_5_ECB.txt'); razmer:=1024*500; end; if Form1.RadioButton6.Checked=true then begin Wifrovanie_ECB('1.txt','DES_crypted\Z_1_5_ECB.txt'); razmer:=1024*1024; end; t2:=Time; vremja:=round((t2 - t1)*24*60*60)+1; Label33.Caption := IntToStr(vremja-1)+ 'сек'; Label34.Caption := FloatToStr((razmer/vremja)-1)+'байт/сек'; end; //Raswifrovanie failov klju4om na 5 bait procedure TForm1.Button2Click(Sender: TObject); var klu4:string; t1,t2:TDateTime; vremja:integer; razmer:integer; begin klu4:=Edit10.text; razmer:=0; while( Length(klu4)<8 ) do klu4:=klu4+'0'; Formirovanie_16_podklju4ei(klu4); t1:=Time; if Form1.RadioButton10.Checked=true then begin Raswifrovanie_ECB('DES_crypted\Z_20_5_ECB.txt','DES_uncrypted\R_20_5_ECB.txt'); razmer:=1024*20; end; if Form1.RadioButton9.Checked=true then begin Raswifrovanie_ECB('DES_crypted\Z_50_5_ECB.txt','DES_uncrypted\R_50_5_ECB.txt'); razmer:=1024*50; end; if Form1.RadioButton8.Checked=true then begin Raswifrovanie_ECB('DES_crypted\Z_100_5_ECB.txt','DES_uncrypted\R_100_5_ECB.txt'); razmer:=1024*100; end; if Form1.RadioButton7.Checked=true then begin Raswifrovanie_ECB('DES_crypted\Z_500_5_ECB.txt','DES_uncrypted\R_500_5_ECB.txt'); razmer:=1024*500; end; if Form1.RadioButton6.Checked=true then begin Raswifrovanie_ECB('DES_crypted\Z_1_5_ECB.txt','DES_uncrypted\R_1_5_ECB.txt'); razmer:=1024*1024; end; t2:=Time; vremja:=round((t2 - t1)*24*60*60)+1; Label33.Caption := IntToStr(vremja-1)+ 'сек'; Label34.Caption := FloatToStr(razmer/vremja-1)+'байт/сек'; end; //Zawifrovanie failov klju4om na 6 bait procedure TForm1.Button3Click(Sender: TObject); var klu4:string; t1,t2:TDateTime; vremja:integer; razmer:integer; begin klu4:=Edit11.text; while( Length(klu4)<8 ) do klu4:=klu4+'0'; Formirovanie_16_podklju4ei(klu4); t1:=Time; if Form1.RadioButton10.Checked=true then begin Wifrovanie_ECB('20.txt','DES_crypted\Z_20_6_ECB.txt'); razmer:=1024*20; end; if Form1.RadioButton9.Checked=true then begin Wifrovanie_ECB('50.txt','DES_crypted\Z_50_6_ECB.txt'); razmer:=1024*50; end; if Form1.RadioButton8.Checked=true then begin Wifrovanie_ECB('100.txt','DES_crypted\Z_100_6_ECB.txt'); razmer:=1024*100; end; if Form1.RadioButton7.Checked=true then begin Wifrovanie_ECB('500.txt','DES_crypted\Z_500_6_ECB.txt'); razmer:=1024*500; end; if Form1.RadioButton6.Checked=true then begin Wifrovanie_ECB('1.txt','DES_crypted\Z_1_6_ECB.txt'); razmer:=1024*1024; end; t2:=Time; vremja:=round((t2 - (t1))*24*60*60)+1; Label33.Caption := IntToStr(vremja-1)+ 'сек'; Label34.Caption := FloatToStr(razmer/vremja-1)+'байт/сек'; end; //Raswifrovanie failov klju4om na 6 bait procedure TForm1.Button4Click(Sender: TObject); var klu4:string; t1,t2:TDateTime; vremja:integer; razmer:integer; begin klu4:=Edit11.text; while( Length(klu4)<8 ) do klu4:=klu4+'0'; Formirovanie_16_podklju4ei(klu4); t1:=Time; if Form1.RadioButton10.Checked=true then begin Raswifrovanie_ECB('DES_crypted\Z_20_6_ECB.txt','DES_uncrypted\R_20_6_ECB.txt'); razmer:=1024*20; end; if Form1.RadioButton9.Checked=true then begin Raswifrovanie_ECB('DES_crypted\Z_50_6_ECB.txt','DES_uncrypted\R_50_6_ECB.txt'); razmer:=1024*50; end; if Form1.RadioButton8.Checked=true then begin Raswifrovanie_ECB('DES_crypted\Z_100_6_ECB.txt','DES_uncrypted\R_100_6_ECB.txt'); razmer:=1024*100; end; if Form1.RadioButton7.Checked=true then begin Raswifrovanie_ECB('DES_crypted\Z_500_6_ECB.txt','DES_uncrypted\R_500_6_ECB.txt'); razmer:=1024*500; end; if Form1.RadioButton6.Checked=true then begin Raswifrovanie_ECB('DES_crypted\Z_1_6_ECB.txt','DES_uncrypted\R_1_6_ECB.txt'); razmer:=1024*1024; end; t2:=Time; vremja:=round((t2 - t1)*24*60*60)+1; Label33.Caption := IntToStr(vremja-1)+ 'сек'; Label34.Caption := FloatToStr(razmer/vremja-1)+'байт/сек'; end; //Zawifrovanie failov klju4om na 7 bait procedure TForm1.Button5Click(Sender: TObject); var klu4:string; t1,t2:TDateTime; vremja:integer; razmer:integer; begin klu4:=Edit12.text; while( Length(klu4)<8 ) do klu4:=klu4+'0'; Formirovanie_16_podklju4ei(klu4); t1:=Time; if Form1.RadioButton10.Checked=true then begin Wifrovanie_ECB('20.txt','DES_crypted\Z_20_7_ECB.txt'); razmer:=1024*20; end; if Form1.RadioButton9.Checked=true then begin Wifrovanie_ECB('50.txt','DES_crypted\Z_50_7_ECB.txt'); razmer:=1024*50; end; if Form1.RadioButton8.Checked=true then begin Wifrovanie_ECB('100.txt','DES_crypted\Z_100_7_ECB.txt'); razmer:=1024*100; end; if Form1.RadioButton7.Checked=true then begin Wifrovanie_ECB('500.txt','DES_crypted\Z_500_7_ECB.txt'); razmer:=1024*500; end; if Form1.RadioButton6.Checked=true then begin Wifrovanie_ECB('1.txt','DES_crypted\Z_1_7_ECB.txt'); razmer:=1024*1024; end; t2:=Time; vremja:=round((t2 - t1)*24*60*60)+1; Label33.Caption := IntToStr(vremja-1)+ 'сек'; Label34.Caption := FloatToStr(razmer/vremja-1)+'байт/сек'; end; //Raswifrovanie failov klju4om na 7 bait procedure TForm1.Button6Click(Sender: TObject); var klu4:string; t1,t2:TDateTime; vremja:integer; razmer:integer; begin klu4:=Edit12.text; while( Length(klu4)<8 ) do klu4:=klu4+'0'; Formirovanie_16_podklju4ei(klu4); t1:=Time; if Form1.RadioButton10.Checked=true then begin Raswifrovanie_ECB('DES_crypted\Z_20_7_ECB.txt','DES_uncrypted\R_20_7_ECB.txt'); razmer:=1024*20; end; if Form1.RadioButton9.Checked=true then begin Raswifrovanie_ECB('DES_crypted\Z_50_7_ECB.txt','DES_uncrypted\R_50_7_ECB.txt'); razmer:=1024*50; end; if Form1.RadioButton8.Checked=true then begin Raswifrovanie_ECB('DES_crypted\Z_100_7_ECB.txt','DES_uncrypted\R_100_7_ECB.txt'); razmer:=1024*100; end; if Form1.RadioButton7.Checked=true then begin Raswifrovanie_ECB('DES_crypted\Z_500_7_ECB.txt','DES_uncrypted\R_500_7_ECB.txt'); razmer:=1024*500; end; if Form1.RadioButton6.Checked=true then begin Raswifrovanie_ECB('DES_crypted\Z_1_7_ECB.txt','DES_uncrypted\R_1_7_ECB.txt'); razmer:=1024*1024; end; t2:=Time; vremja:=round((t2 - t1)*24*60*60)+1; Label33.Caption := IntToStr(vremja-1)+ 'сек'; Label34.Caption := FloatToStr(razmer/vremja-1)+'байт/сек'; end; //CBC zawifrovanie failov klju4om na 5 bait procedure TForm1.Button7Click(Sender: TObject); var klu4:string; vektor:string; t1,t2:TDateTime; vremja:integer; razmer:integer; begin klu4:=Edit10.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_5_CBС.txt',vektor); razmer:=1024*20; end; if Form1.RadioButton9.Checked=true then begin Wifrovanie_CBC('50.txt','DES_crypted\Z_50_5_CBС.txt',vektor); razmer:=1024*50; end; if Form1.RadioButton8.Checked=true then begin Wifrovanie_CBC('100.txt','DES_crypted\Z_100_5_CBС.txt',vektor); razmer:=1024*100; end; if Form1.RadioButton7.Checked=true then
Страницы: 1, 2, 3, 4, 5, 6
|