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

     program VIGIN;  {программа шифрования по вижинеру}
     uses WinCrt,Windos;

     var
     i,j,k,m:integer;
     f1,f2:file;
     numf1,numf2:string;
     nr,nw:word;
     buf1,buf2:array[1..2048]of char;
     bf:char;
     kluch:array[1..10] of char;
     begin

     {$I-}
       writeln(' программа шифрования файла по вижинеру ');
       writeln('введите имя шифруемого файла ');
       readln(numf1);

       assign(f1,numf1); readln;
       reset(f1,1);
       writeln('файл открыт');
       writeln('введите имя зашифрованного файла');
       readln(numf2);
        assign(f2,numf2); readln;
       rewrite(f2,1);


       writeln('введите ключ – строку из десяти символов');
        for i:=1 to 10 do kluch[i]:=readkey;
       writeln;writeln('ваш ключ ');
        for i:=1 to 10 do write(kluch[i]);
        writeln;

      
       repeat
	    blockread(f1,buf1,sizeof(buf1),nr);

	    for i:=1 to nr div 10 do
	      begin
              for j:=1 to 10 do
                begin
                     k:=10*(i-1)+j;
                     m:=(ord(buf1[k])+ord(kluch[j])) mod 256;
                     buf2[k]:=chr(m);

                end;
	      end;


	    blockwrite(f2,buf2,nr,nw);

	    until (nr=0) or (nw<>nr);

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