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

clrscr;

repeat

if c=#13 then clrscr;

textattr:=7;

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

repeat

Writeln('Please enter keyword for encryption(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:='';

iford(c)<>27 then{ если первый символ не клавиша Esc}

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 {игнорируемпроблелы}

begin

keyword:=keyword+c;

l:=l+1;

end;

end;

until (ord(c)=13) or (ord(c)=27) or (l=16); {продолжаемвводпоканенажатEnter}

if ord(c)<>27 then begin

if (keyword=' ') then begin probel:=false;writeln('Keyword is not entered.Please enter');end;

if (h=false) then

begin

write('You enter invalid keyword with numeral.Press <Enter> and try again');

readln;