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

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

repeat

c1:=readkey; {предлагается продолжить шифрование}

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

end;

until(c1=#27);

end;

end;

end;

until (c=#27);

end;

if (a='2') thenbegin{действия второго подменю аналогичны действиям первого подменю}

clrscr;

repeat

if c=#13 then clrscr;

textattr:=7;

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

repeat

Writeln('Please enter keyword for decryption(min length-1 symbol,max length-15)');

l:=0;j:=0;keyword:='';h:=true;enter:=true;probel:=true;

c:=readkey;write(c);l:=1;otvet:='';

if ord(c)<>27 then

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

begin

keyword:=keyword+c;h:=proverka1(c);

repeat

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

if c=#8 then backspace(keyword) else write(c);

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