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

razmer:=1024*20;

end;

if Form1.RadioButton7.Checked=true then

begin

Raswifrovanie_RSA(Kb,P,Q,'RSA_crypted\Z_500_RSA.txt','RSA_uncrypted\R_500_RSA.txt');

razmer:=1024*20;

end;

if Form1.RadioButton6.Checked=true then

begin

Raswifrovanie_RSA(Kb,P,Q,'RSA_crypted\Z_1_RSA.txt','RSA_uncrypted\R_1_RSA.txt');

razmer:=1024*20;

end;

t2:=Time;

end;

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

Label33.Caption := IntToStr(vremja-1)+ 'милисек';

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

end;

end.

Подключаемые модули

unit DES_ECB_CBC_unit;

interface

procedure Wifrovanie_ECB(nazv_ish_f:string;nazv_vih_f:string);

procedure Raswifrovanie_ECB(nazv_ish_f:string;nazv_vih_f:string);

procedure Wifrovanie_CBC(nazv_ish_f:string;nazv_vih_f:string;vektor:string);

procedure Raswifrovanie_CBC(nazv_ish_f:string;nazv_vih_f:string;vektor:string);

implementation

uses DES_unit;

procedure Wifrovanie_ECB(nazv_ish_f:string;nazv_vih_f:string);