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

if (l=16) then

begin

write('Exceeded the maximum length of string.Press <Enter>');

repeat

c:=readkey;

until (c=#13);

end;

end;

end;

until ((probel)and(h)and(enter)) or (c=#27); {проверяемправильностьввода,есливерновыходимизцикла}

if (probel)and(h)and(enter) and (c<>#27) then begin

writeln;

writeln('Press <m> for enter text manually or <f> for encrypt fron the file');

repeat{предлагаем работу с файлом или вручную}

z:=readkey;

until(z='f')or(z='m')or(z=#27);

if (z<>#27) then begin

if z='m' then begin

Writeln('Please enter the text to encrypt(min length-1 symbols,max length-230)');

Repeat{если выбран режим ввода вручную,запрашиваем текст для шифрования}

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

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

if ord(c)<>27 then

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

begin

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

repeat

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

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