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

   program RSA_sh;
   uses WinCrt;
   {$F+}
   {$L longarif.obj}
   var
         m1:array[1..100]of byte;  { это буфера для длинной арифметики}
         m2:array[1..100]of byte;  { для хранения длинных целых чисел }
         len:word;                 { это длина длинных целых чисел    }
         i,ll:integer;
         j,k,m,nb:integer;
         f1,f2:file;               { файловые переменные }
         numf1,numf2:string;       { для имен файлов     }
         nr,nw:word; {county}      { счетчики }

         buf1:array[1..100]of byte; { буфера чтения и записи }
         buf2:array[1..200]of byte; { при работе с файлами   }

   const
      { это ключи                                      }
      { P=31  Q=43 тогда N=1333, K=(P-1)(Q-1)=1260     }
      {  e=97 d=13 и ed=1(mod K)                       }
      {  e и N - открытый ключ , d,P,Q - закрытый ключ }
       e:integer=97;
       N:integer=1333;

       { это процедуры длинной арифметики          }

   procedure AddBIN(l:word;var M1,M2);external;
        {процедура сложения длинных целых чисел }
        { результат в M1 }
   procedure SubBIN(l:word;var M1,M2);external;
        {процедура вычитания длинных целых чисел }
        { M1=M1-M2}
   procedure MulBIN(l:word;var M1,M2);external;
        { процедура умножения длинных целых чисел M1*M2}
        { младшая част в M1, старшая часть в M2}
   procedure DivBIN(l:word;var M1,M2);external;
        {процедура деления длинных целых чисел   M1/M2 }
        { частное в M1, остаток в M2 }
  
   begin
       writeln('             Шифрование с помощью открытого ключа, RSA-алгоритм');
       writeln('               не шифровать длинные файлы !!!'); writeln;
       writeln('             исходный файл ?');
       readln(numf1);
       writeln('             зашифрованный файл ?');
       readln(numf2);
       assign(f1,numf1);
       reset(f1,1);
       assign(f2,numf2);
       rewrite(f2,1);

       writeln('введите N и e-отрытый ключ');
       readln(N,e);

       writeln('открытый ключ e=',e,' N=',N);

       nb:=0; { номер шифруемого блока }
       repeat
	    blockread(f1,buf1,sizeof(buf1),nr);
	    for i:=1 to nr  do
	      begin
                { возведение очередного байта в степень e}


                  
                   begin
                        for ll:=1 to 100 do m1[ll]:=0;
                   end;
                   begin
                        for ll:=1 to 100 do m2[ll]:=0;
                   end;



                  m1[1]:=buf1[i]; m2[1]:=buf1[i];
                for j:=1 to e-1 do
                  begin
                    MulBIN(100,m1,m2);
                    m2[1]:=buf1[i];
                  end;
                { вычисление остатка от деления на N     }




                 begin
                       for ll:=1 to 100 do m2[ll]:=0;
                 end;
                { результат должны записать в два байта  }
                  m2[1]:=N mod 256;
                  m2[2]:=N div 256;
                     DivBIN(100,m1,m2); {остаток в m2}
                { запись зашифрованного байта в два байта }
                buf2[2*i-1]:=m2[1];
                buf2[2*i]:=m2[2];
	      end;
	    blockwrite(f2,buf2,2*nr,nw);
            nb:=nb+1;
	    writeln('зашифровано ',nb*100,' байт');
	    until (nr=0) or (nw<>2*nr);

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


       end
       .