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

reset(f);

repeat

read(f,c1);

if ((ord(c1)>=65)and(ord(c1)<=90)or(ord(c1)>=97)and(ord(c1)<=122)) then

write(f2,c1); {проверяем данные из файла, считываем только кириллицу,заносим во второй файл }

until EOF(f);

close(f);

close(f2);

reset(f2);

assign(f3,'laba3.txt');

rewrite(f3);

q:=1;

repeat

read(f2,c1);

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

kk:=deshifr(m);

write(f3,kk);

q:=q+1;

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

until(EOF(f2)); {шифруем и заносим данные в третий файл}

close(f2);

close(f3);

reset(f2);

reset(f3);

write('Text for encrypt:');

repeat read(f2,c1);write(c1) until(EOF(f2));

writeln;

write('Encrypted text:');

repeat read(f3,c1);write(c1) until(EOF(f3));