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

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 decrypt:');

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

writeln;

write('Decrypted text:');

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

writeln;

write('Press <Enter> for continue decryption or <Esc> for exit');

repeat

c1:=readkey;

until(c1=#13)or(c1=#27);

end;

until(c1=#27);

end;

end;

end;

until (c=#27);

end;

until (a='0');

end.

2.5 Порядок ввода исходных данных и описание получаемых результатов