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

     program GAMMA; {программа гаммирования }
     uses WinCrt;

     var
     i,j,k:integer;
     f1,f2:file;
     numf1,numf2:string;
     nr,nw:word;
     buf1,buf2:array[1..2048]of shortint;
     bf:char;
     G,C,A:integer;

      
     function DAT:integer;
       begin
         G:=(G*A+C) mod 65535;
         DAT:=G;
       end;

     begin
      
       writeln(' программа гаммирования');
       writeln(' введите имя шифруемого(расшифруемого) файла ');
       readln(numf1);
       assign(f1,numf1);
       reset(f1,1);
       writeln('файл открыт');
       writeln(' введите имя зашифрованного(расшифрованного) файла');
       readln(numf2);
       
       assign(f2,numf2);
       rewrite(f2,1);
       writeln('введите A,C и G(0)  (числа до 65535)');
       readln(A,C,G);
       repeat
	    blockread(f1,buf1,sizeof(buf1),nr);


	    for i:=1 to nr do
               buf2[i]:=buf1[i] xor DAT;

	    blockwrite(f2,buf2,nr,nw);
       until (nr=0) or (nw<>nr);

       close(f1);
       close(f2);
writeln(' файл зашифрован(расшифрован) ');

     end.