Система обеспечения защищенности локальной сети отдела воинской части

20.Учебно-методическое пособие к выполнению практической работы Оценка и меры по снижению тяжести и напряженности трудового процесса по курсу Безопасность жизнедеятельности. Таганрог: ТРТУ, 2003. - 28с.

.ГОСТ 7.32-2001 Система стандартов по информации, библиотечному и издательскому делу. Отчет о научно-исследовательской работе. Структура и правила оформления.

ПРИЛОЖЕНИЕ А

Листинг программы

unit mainForm;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, Registry, StdCtrls, Spin, ShellApi, Mask, DB, ADODB,, JvBaseDlg, JvWinDialogs, ImgList, ExtCtrls;

//установки по умолчанию= 0;

CRestrictAnonymous = 1;

CAutoShare = 0;= 1;= 1;= 1450;_CMDShell = 0;= 3;

= class(TForm): TListView;_FSType: TGroupBox;_CADSettings: TGroupBox;: TCheckBox;: TStatusBar;: TButton;: TButton;: TButton;: TCheckBox;: TCheckBox;: TCheckBox;_ScreenSaver: TGroupBox;: TSpinEdit;: TLabel;: TLabel;: TCheckBox;_Policy: TGroupBox;: TLabel;: TLabel;: TButton;: TLabel;: TButton;_MSSQL: TGroupBox;: TLabel;: TSpinEdit;: TADOConnection;: TADOQuery;_CMDShell: TCheckBox;: TComboBox;: TLabel;: TJvObjectPropertiesDialog;: TLabel;: TButton;: TImageList;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;_CMDShellImage: TImage;FormShow(Sender: TObject);CancelClick(Sender: TObject);CADClick(Sender: TObject);ApplyClick(Sender: TObject);RestrictAnonymousClick(Sender: TObject);AutoShareClick(Sender: TObject);ScreenSaverClick(Sender: TObject);ScreenSaverPassClick(Sender: TObject);ScreenSaverTimeChange(Sender: TObject);OpenSecurityOptionsClick(Sender: TObject);OpenUserRightsClick(Sender: TObject);ScreenSaverTimeExit(Sender: TObject);MSSQLPortChange(Sender: TObject);XP_CMDShellClick(Sender: TObject);RecommendClick(Sender: TObject);AuditLevelChange(Sender: TObject);OpenSecuritySettingsSystem32Click(Sender: TObject);

{ Private declarations }CheckFS;GetCADSettings;SetCADSettings;GetRestrictAnonymousSettings;SetRestrictAnonymousSettings;GetAutoShareSettings;SetAutoShareSettings;GetScreenSaverSettings;SetScreenSaverSettings;GetMSSQLPortSettings;SetMSSQLPortSettings;GetXP_CMDShellSettings;SetXP_CMDShellSettings;GetAuditLevelSettings;SetAuditLevelSettings;CheckApply;

{ Public declarations }

end;

: Tmain;

//переменные для сохранения старых настроек и реализации функции "Отмена"

CAD_Old, RestrictAnonymous_Old, AutoShare_Old:integer;_Old, ScreenSaverPass_Old, ScreenSaverTime_Old:integer;_Old, XP_CMDShell_Old, AuditLevel_Old:integer;

implementation

{$R *.dfm}

//процедура проверки типа файловой системы

procedure Tmain.CheckFS();,: array [0..MAX_PATH-1] of Char;: DWord;,FileSystemFlags: Cardinal;: Char;: String;:TListItem;

begini := 'B' to 'Z' do //начинаем с B, чтобы не обращалось к дисководу

begin:= i+':\';(GetVolumeInformation(PChar(C),VolumeName,MAX_PATH,@VolumeSerialNo,,FileSystemFlags, FileSystemName,MAX_PATH)) and

(GetDriveType(PChar(C))<>DRIVE_REMOTE)begin:=ListView1.Items.Add();.Caption:=C;.SubItems.Add(FileSystemName);FileSystemName='NTFS' then ListItem.ImageIndex:=0ListItem.ImageIndex:=1;;;

end;

// получает, отмечает степень соответствия рекомендованным установкам и

//выводит информацию об использовании комбинации клавиш Ctrl+Alt+Del при входе

procedure Tmain.GetCADSettings;:TRegistry;:integer;:=TRegistry.Create;.RootKey:=HKEY_LOCAL_MACHINE;not reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\', False) then MessageDlg('Невозможно открыть ключ реестра HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\',mtError, [mbOk], 0);reg.ValueExists('DisableCAD') then begin:=reg.ReadInteger('DisableCAD');_Old:=value;.Tag:=value;value=1 then begin.Checked:=True;.Hint:='Включено';else begin.Checked:=False;.Hint:='Выключено';;begin_Old:=-1;.Tag:=-1;.State:=cbGrayed;

CAD.Hint:='Не установлено';;

finally.Free;;

CAD.Tag=CCAD then ImageList.GetIcon(0, CADImage.Picture.Icon)ImageList.GetIcon(1, CADImage.Picture.Icon);

end;

//производит изменение параметра в реестре в соответствии с произведенными настройками

procedure Tmain.SetCADSettings;:TRegistry;:=TRegistry.Create;.RootKey:=HKEY_LOCAL_MACHINE;not reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\', False) then MessageDlg('Невозможно открыть ключ реестра HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\',mtError, [mbOk], 0);_Old:=CAD.Tag;CAD.Tag<>-1 then reg.WriteInteger('DisableCAD',CAD.Tag)reg.DeleteValue('DisableCAD');.Free;

end;;

//получает, отмечает степень соответствия рекомендованным установкам и

//выводит информацию о настройке анонимного сетевого доступа к системе

procedure Tmain.GetRestrictAnonymousSettings;:TRegistry;:integer;:=TRegistry.Create;.RootKey:=HKEY_LOCAL_MACHINE;not reg.OpenKey('\SYSTEM\CurrentControlSet\Control\Lsa', False) then MessageDlg('Невозможно открыть ключ реестра HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa', mtError, [mbOk], 0);not reg.ValueExists('restrictanonymous') then reg.WriteInteger('restrictanonymous', 0);:=reg.ReadInteger('restrictanonymous');_Old:=value;.Tag:=value;value=1 then begin.Checked:=True;.Hint:='Включено';else begin.Checked:=False;.Hint:='Выключено';;.Free;;

RestrictAnonymous.Tag=CRestrictAnonymous then ImageList.GetIcon(0, RestrictAnonymousImage.Picture.Icon)ImageList.GetIcon(1, RestrictAnonymousImage.Picture.Icon);

end;

//производит изменение параметра в реестре в соответствии с произведенными настройками

procedure Tmain.SetRestrictAnonymousSettings;:TRegistry;:=TRegistry.Create;.RootKey:=HKEY_LOCAL_MACHINE;not reg.OpenKey('\SYSTEM\CurrentControlSet\Control\Lsa', False) then MessageDlg('Невозможно открыть ключ реестра HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa', mtError, [mbOk], 0);_Old:=RestrictAnonymous.Tag;.WriteInteger('restrictanonymous',RestrictAnonymous.Tag).Free;;;

//получает, отмечает степень соответствия рекомендованным установкам и

//выводит информацию о настройке доступности общих ресурсов (ADMIN$, C$, D$ и т.д.)

procedure Tmain.GetAutoShareSettings;:TRegistry;:integer;:=TRegistry.Create;.RootKey:=HKEY_LOCAL_MACHINE;not reg.OpenKey('\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters', False) then MessageDlg('Невозможно открыть ключ реестра HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters', mtError, [mbOk], 0);not reg.ValueExists('AutoShareWks') then reg.WriteInteger('AutoShareWks', 1);:=reg.ReadInteger('AutoShareWks');_Old:=value;.Tag:=value;value=1 then begin.Checked:=True;.Hint:='Включено';else begin.Checked:=False;.Hint:='Выключено';;.Free;;

AutoShare.Tag=CAutoShare then ImageList.GetIcon(0, AutoShareImage.Picture.Icon)ImageList.GetIcon(1, AutoShareImage.Picture.Icon);

end;

//производит изменение параметра в реестре в соответствии с произведенными настройками

procedure Tmain.SetAutoShareSettings;:TRegistry;:=TRegistry.Create;.RootKey:=HKEY_LOCAL_MACHINE;not reg.OpenKey('\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters', False) then MessageDlg('Невозможно открыть ключ реестра HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters', mtError, [mbOk], 0);_Old:=AutoShare.Tag;.WriteInteger('AutoShareWks',AutoShare.Tag).Free;;;

//получает, отмечает степень соответствия рекомендованным установкам и

//выводит информацию о настройке параметров хранителя экрана

procedure Tmain.GetScreenSaverSettings;:TRegistry;:strin

• На первую страницу
• Назад
• 24
• 25
• 26
• 27
• 28
• 29
• 30
• 31
• 32
• 33
• 34
• 35
• 36
• 37
• Далее