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

keyword:=keyword+c;

l:=l+1;

end;

end;

until (ord(c)=13) or (ord(c)=27) or (l=16);

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;

end;

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