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

{$I+}

result:=IOResult=0;

if not result then begin writeln('File not found.Try again');result:=false;end

else close(f);

end;

end;

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

if (result) and (c1<>#27) then

begin

for i:= 1 to length(keyword) do

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

assign(f2,'laba2.txt');

rewrite(f2);

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);

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

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