Курсовая работа: Программа для шифрования данных с помощью шифра Тритемиуса

end;

end;

end;

until ((probel)and(h)and(enter)and(result)) or (c1=#27);

assign(f,imyafaila);

{$I-}

reset(f);

{$I+}

result:=IOResult=0;

if not result then rewrite(f) else begin reset(f);if filesize(f)<>0 then repeat read(f,c);until(EOF(f));end;

for i:=1 to length(otvet) do

write(f,otvet[i]);

close(f);

end;

write('Press <Enter> for continue decryption or <Esc> for exit');

repeat

c:=readkey;

until (c=#13)or (c=#27);

end;

end;

if (z='f') then

begin

repeat

clrscr;

probel1(10);Writeln('Decryption text (for return in maimmenu press <Esc>)');

writeln('Enter the name of the file');

repeat

l:=0;j:=0;imyafaila:='';h:=true;enter:=true;probel:=true;result:=true;

c1:=readkey;write(c1);l:=1;