Обнаружение вредоносных закладок

    StringGrid1: TStringGrid;
    ButtonDel: TButton;
    Button2: TButton;
    ButtonShow: TButton;
    procedure Button2Click(Sender: TObject);
    procedure ButtonShowClick(Sender: TObject);
    procedure ButtonDelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Generator;
  end;
var
  Form4: TForm4;
  F_Mag:file of char;{переменная, связанная с файлом 'audit.txt'}
   i,j,l,i1:integer;
   y:integer;{псевдослучайное число}
  ident,psword:string;
  xxx:char;
implementation
{$R *.DFM}
{процедура реализующая ЛИНЕЙНЫЙ КОНГУЭНТНЫЙ ГЕНЕРАТОР}
procedure Tform4.Generator;
begin
 y:=(31*y+17)mod(257);
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
close
end;
  {нажатие кнопки 'показать'}
procedure TForm4.ButtonShowClick(Sender: TObject);
begin
  i:=1;
 repeat
 StringGrid1.Cells[0,i]:=IntToStr(i);
 i:=i+1;
 until i>=11;
 StringGrid1.Cells[1,0]:='идентификатор';
 StringGrid1.Cells[2,0]:='пароль';
 StringGrid1.Cells[3,0]:='результат';
  {чтение информации из файла 'audit.txt'}
  {$I-}
 AssignFile(F_Mag,'audit');
 Reset(F_Mag);
 {$I+}
 if IOResult=0 then begin
  i1:=1;
  y:=14;
 while not(EoF(F_Mag)) do
 begin
   j:=1;
   repeat
      Read(F_Mag,xxx);
      generator;
      xxx:=chr((ord(xxx))xor(y));
      ident:=ident+xxx;
      j:=j+1
   until j>=11;
   i:=1;
   repeat
     Read(F_Mag,xxx);
     generator;
     xxx:=Chr((ord(xxx))xor(y));
     psword:=psword+xxx;
     i:=i+1;
   until i>=11;
   if StringGrid1.RowCount=11;
   if xxx='y' then StringGrid1.Cells[3,i1]:='допуск'
              else StringGrid1.Cells[3,i1]:='отказ';
   ident:='';
   psword:='';
   i1:=i1+1;
 end;
 CloseFile(F_Mag)   end;
end;
 {нажатие кнопки 'очистить'}
procedure TForm4.ButtonDelClick(Sender: TObject);
begin
 StringGrid1.RowCount:=11;
 i:=1;
 repeat
   StringGrid1.Cells[1,i]:='';
   StringGrid1.Cells[2,i]:='';
   StringGrid1.Cells[3,i]:='';
   i:=i+1
  until i>=11;
 AssignFile(F_Mag,'audit');
  Rewrite(F_Mag);
  CloseFile(F_Mag);
end;

end.



                                 Литература:
       1. Белкин П.Ю. , Михальский О.О. , Першаков А.С. и другие “Программно-
          аппаратные  средства  обеспечения   информационной   безопасности:
          защита программ и данных”.
       2.  Зима   В.М.   и   другие   “Защита   компьютерных   ресурсов   от
          несанкционированных действий пользователя”.
       3. Романец Ю.В. , Тимофеев П.А. , Шаньгин В.Ф. “Защита  информации  в
          компьютерных системах”.



------------------

Пред. 6

скачать работу

Отправка СМС бесплатно