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

writeln;

writeln('Press <Enter> for continue encryption 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('Encryption 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;

if ord(c1)<>27 then

if ord(c1)=13 then begin enter:=false;writeln('Filename is not entered.Please enter');end else

begin

imyafaila:=imyafaila+c1;h:=proverka1(c1);

repeat

c1:=readkey;if (proverka(c1)=true) then begin

if c1=#8 then backspace(imyafaila) else write(c1);

if ((c1<>#8) and (c1<>' ') and (ord(c1)<>13) and (ord(c1)<>27)) then

begin

imyafaila:=imyafaila+c1;

l:=l+1;

end;

end;