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

i:integer;

ish_text,vihod_text:string;

bykva:byte;

ish_f,vihod_f:file of byte;

begin

assignfile(ish_f,nazv_ish_f);

reset(ish_f);

assignfile(vihod_f,nazv_vih_f);

rewrite(vihod_f);

while not EOF(ish_f) do

begin

read(ish_f,bykva);

ish_text:=ish_text+chr(bykva);

if Length(ish_text) = 8 then

begin

vihod_text:= Kodirovat(ish_text);

for i:=1 to 8 do

begin

bykva:=byte(vihod_text[i]);

write(vihod_f,bykva);

end;

ish_text := '';

end;

end;

if(Length(ish_text) <> 0) then

begin

while length(ish_text)<8 do

ish_text:=ish_text+'0';

vihod_text := Kodirovat(ish_text);