4 курс / ЗащИнф / лаб-р-защ-3 / avtokey

    program avto;
    uses WinCrt,Windos;

     var
     i,j,k,m,nb:integer;
     f1,f2:file;
     numf1,numf2:string;
     nr,nw:word; {county}
     buf1,buf2,buf3:array[1..100]of shortint;
     bf:char;
     const
     kluch:array[0..9] of integer=(5,8,12,54,3,9,77,44,32,88);
     begin
       {$I-}

       writeln('программа шифрования  по автоключу');
       writeln('введите имя шифруемого файла');
       readln(numf1);

       assign(f1,numf1);
       reset(f1,1);
       writeln('файл открыт');

       writeln('введите имя зашифрованного файла');
       readln(numf2);
       assign(f2,numf2);
       rewrite(f2,1);
         writeln('введите ключ – строку из десяти символов');
        for i:=0 to 9 do kluch[i]:=ord(readkey);
       writeln;writeln('ваш ключ ');
        for i:=0 to 9 do write(chr(kluch[i]),' ');
        writeln;

	 
         nb:=1;
       repeat
	    blockread(f1,buf1,sizeof(buf1),nr);
	    {writeln('количество блоков в исходном файле',nr);}

	    for i:=1 to nr do
	      begin
                if nb=1 then begin
                               buf2[i]:=buf1[i] xor kluch[i mod 10];
                             end;
                if nb>1 then begin
                               buf2[i]:=buf1[i] xor buf3[i];
                             end;
                    buf3[i]:=buf1[i];
	      end;


	    blockwrite(f2,buf2,nr,nw);
	    {writeln('количество блоков в зашифрованном файле',nw);}
            nb:=nb+1;
	    until (nr=0) or (nw<>nr);

       close(f1);
       close(f2);
writeln(' файл зашифрован ');
      {$I+}
     end.