Курсовая работа: Шифрувальник та дешифрувальник
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(' Введите путь к текстовому файлу,');