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

for i:=1 to length(text) do

begin

m:=(((shifr(text1[i]))+(shifr(keyword1[q])))mod 31);

kk:=deshifr(m);

otvet:=otvet+kk;

q:=q+1;

if q=(length(keyword)+1) then q:=1;

end; {шифруемтекст}

writeln;

writeln('Encrypted text:',otvet);

write('Save encrypted text in fail?(y-yes,n-now)'); {предлагаемсохранитьшифрованныйтекствфайл}

repeat

z:=readkey;

until(z='y')or(z='Y')or(z='n')or(z='N');

if (z='y')or(z='Y') then begin

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;