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

until (c=#13);

end;

end;

end;

until((probel)and(h)and(enter)) or (c=#27);

if (probel)and(h)and(enter)and(text<>'')and(keyword<>'')and(c<>#27) then

begin

for i:= 1 to length(keyword) do

keyword1[i]:=copy(keyword,i,1);

for i:= 1 to length(text) do

text1[i]:=copy(text,i,1);

q:=1;

for i:=1 to length(text) do

begin

if (((shifr(text1[i]))-(shifr(keyword1[q])))>=0) then

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

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

kk:=deshifr(m);

otvet:=otvet+kk;

q:=q+1;

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

end;

writeln;

writeln('Decrypted text:',otvet);

writeln('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