Курсовая работа: Шифрувальник та дешифрувальник

for j:=0 to 255 do

begin

if j=ord(s[i]) then

begin

st:=CHR(sdvig+j);

ss:=ss+st;

write(st);

end;

end;

end;

writeln;

writeln(f_new,ss);

ss:='';

end;

close(f);

close(f_new);

end;

{--------------------------------------}

Procedure Racshifr;

var name_otkyda,name_kyda,s,st,ss:string;

f,f_new:text;

sdvig,i,j:integer;

begin

writeln(' Введите путь к текстовому файлу,');

writeln(' содержимое которого необходимо расшифровать:');

readln(name_otkyda);

assign(f,name_otkyda);

reset(f);

writeln(' Введите путь к текстовому файлу,');

К-во Просмотров: 356
Бесплатно скачать Курсовая работа: Шифрувальник та дешифрувальник