Система обеспечения защищенности локальной сети отдела воинской части
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
eenSaverTime.Tag=ScreenSaverTime_Old) and
(MSSQLPort.Tag=MSSQLPort_Old) and (XP_CMDShell.Tag=XP_CMDShell_Old) and
(AuditLevel.ItemIndex=AuditLevel_Old)Apply.Enabled:=FalseApply.Enabled:=True;;
//процедура изменения настроек использования клавиш Ctrl+Alt+_Del при входе
//обрабатываются изменение настройки и соответствие рекомендуемым
procedure Tmain.CADClick(Sender: TObject);CAD.State of: begin.Tag:=1;.Hint:='Включено';: begin.Tag:=0;.Hint:='Выключено';: begin.Tag:=-1;
CAD.Hint:='Не установлено';
end;CAD.Tag=CAD_Old then CAD.Font.Style:=[]CAD.Font.Style:=[fsBold];;
CAD.Tag=CCAD then ImageList.GetIcon(0, CADImage.Picture.Icon)ImageList.GetIcon(1, CADImage.Picture.Icon);;
//процедура сохранения измененных настроекTmain.ApplyClick(Sender: TObject);CAD.TagScreenSaverPass_Old) or
(ScreenSaverTime.TagAuditLevel_Old then SetAuditLevelSettings;
.Enabled:=False;.Font.Style:=[];.Font.Style:=[];.Font.Style:=[];.Font.Style:=[];.Font.Style:=[];
Label1.Font.Style:=[];.Font.Style:=[];.Font.Style:=[];.Font.Style:=[];_CMDShell.Font.Style:=[];.Font.Style:=[];
Label7.Font.Style:=[];;
//процедура изменения настроек анонимного доступа к системе
//обрабатываются изменение настройки и соответствие рекомендуемым
procedure Tmain.RestrictAnonymousClick(Sender: TObject);RestrictAnonymous.State of: begin.Tag:=1;.Hint:='Включено';: begin.Tag:=0;.Hint:='Выключено';;RestrictAnonymous.Tag=RestrictAnonymous_Old then RestrictAnonymous.Font.Style:=[]RestrictAnonymous.Font.Style:=[fsBold];;
RestrictAnonymous.Tag=CRestrictAnonymous then ImageList.GetIcon(0, RestrictAnonymousImage.Picture.Icon)ImageList.GetIcon(1, RestrictAnonymousImage.Picture.Icon);
end;
//процедура изменения настроек ресурсов общего доступа (ADMIN$, C$ И т.д.)
//обрабатываются изменение настройки и соответствие рекомендуемым
procedure Tmain.AutoShareClick(Sender: TObject);AutoShare.State of: begin.Tag:=1;.Hint:='Включено';: begin.Tag:=0;.Hint:='Выключено';;AutoShare.Tag=AutoShare_Old then AutoShare.Font.Style:=[]AutoShare.Font.Style:=[fsBold];;
AutoShare.Tag=CAutoShare then ImageList.GetIcon(0, AutoShareImage.Picture.Icon)ImageList.GetIcon(1, AutoShareImage.Picture.Icon);
end;
//процедура изменения настроек хранителя экрана:активность
//обрабатываются изменение настройки и соответствие рекомендуемым
procedure Tmain.ScreenSaverClick(Sender: TObject);ScreenSaver.State of: begin.Tag:=1;.Hint:='Включено';.Enabled:=True;.Enabled:=True;.Enabled:=True;.Enabled:=True;;: begin.Tag:=0;.Hint:='Выключено';.Enabled:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;;;ScreenSaver.Tag=ScreenSaver_Old then ScreenSaver.Font.Style:=[]ScreenSaver.Font.Style:=[fsBold];;
ScreenSaver.Tag=CScreenSaver then ImageList.GetIcon(0, ScreenSaverImage.Picture.Icon)ImageList.GetIcon(1, ScreenSaverImage.Picture.Icon);
end;
//процедура изменения настроек хранителя экрана:защита паролем
//обрабатываются изменение настройки и соответствие рекомендуемым
procedure Tmain.ScreenSaverPassClick(Sender: TObject);ScreenSaverPass.State of: begin.Tag:=1;.Hint:='Включено';: begin.Tag:=0;.Hint:='Выключено';;ScreenSaverPass.Tag=ScreenSaverPass_Old then ScreenSaverPass.Font.Style:=[]ScreenSaverPass.Font.Style:=[fsBold];;
ScreenSaverPass.Tag=CScreenSaverPass then ImageList.GetIcon(0, ScreenSaverPassImage.Picture.Icon)ImageList.GetIcon(1, ScreenSaverPassImage.Picture.Icon);
end;
//процедура изменения настроек хранителя экрана:время неактивности
//обрабатываются изменение настройки и соответствие рекомендуемым
procedure Tmain.ScreenSaverTimeChange(Sender: TObject);ScreenSaverTime.Text<>'' then begin.Tag:=ScreenSaverTime.Value;.Hint:='Хранитель экрана включится через '+IntToStr(ScreenSaverTime.Tag)+' мин. неактивности компьютера';ScreenSaverTime.Tag=ScreenSaverTime_Old then begin.Font.Style:=[];.Font.Style:=[];.Font.Style:=[];begin.Font.Style:=[fsBold];.Font.Style:=[fsBold];.Font.Style:=[fsBold];;
end else.Hint:='Хранитель экрана включится через ??? мин. неактивности компьютера';;;
//обработка пустого значения для времени неактивности
procedure Tmain.ScreenSaverTimeExit(Sender: TObject);ScreenSaverTime.Text='' then ScreenSaverTime.Value:=1;;
//процедура запуска оснастки MMC "Security Options"Tmain.OpenSecurityOptionsClick(Sender: TObject);:HWND;(handle, 'open', 'SecurityOptions.msc', nil, nil, SW_SHOWNORMAL);;
//процедура запуска оснастки MMC "User Rights Assignment"Tmain.OpenUserRightsClick(Sender: TObject);:HWND;(handle, 'open', 'UserRights.msc', nil, nil, SW_SHOWNORMAL)
end;
//процедура изменения настроек слушающего порта MS SQL сервера
//обрабатываются изменение настройки и соответствие рекомендуемым
procedure Tmain.MSSQLPortChange(Sender: TObject);MSSQLPort.Text<>'' then begin.Tag:=MSSQLPort.Value;.Hint:='MS SQL Server принимает соединения на '+IntToStr(MSSQLPort.Value)+' порту';MSSQLPort.Tag=MSSQLPort_Old then begin.Font.Style:=[];.Font.Style:=[];begin.Font.Style:=[fsBold];.Font.Style:=[fsBold];;else.Hint:='MS SQL Server принимает соединения на ??? порту';;
(MSSQLPort.Enabled) then begin(MSSQLPort.Tag=CMSSQLPort) then ImageList.GetIcon(0, MSSQLPortImage.Picture.Icon)ImageList.GetIcon(1, MSSQLPortImage.Picture.Icon);
end;;
//процедура изменения настроек расширенной хранимой процедуры xp_cmdshell
//обрабатываются изменение настройки и соответствие рекомендуемым
procedure Tmain.XP_CMDShellClick(Sender: TObject);XP_CMDShell.State of: begin_CMDShell.Tag:=1;_CMDShell.Hint:='Включено';: begin_CMDShell.Tag:=0;_CMDShell.Hint:='Выключено';;XP_CMDShell.Tag=XP_CMDShell_Old then XP_CMDShell.Font.Style:=[]XP_CMDShell.Font.Style:=[fsBold];;
(XP_CMDShell.Enabled) then begin(XP_CMDShell.Tag=CXP_CMDShell) then ImageList.GetIcon(0, XP_CMDShellImage.Picture.Icon)ImageList.GetIcon(1, XP_CMDShellImage.Picture.Icon);
end;;
//процедура установки рекомендуемых настроек
procedure Tmain.RecommendClick(Sender: TObject);.Checked:=CCAD=1;(Sender);
.Checked:=CRestrictAnonymous=1;(Sender);
.Checked:=CAutoShare=1;(Sender);
.Checked:=CScreenSaver=1;(Sender);.Checked:=CScreenSaverPass=1;(Sender);
MSSQLPort.Enabled then begin.Value:=CMSSQLPort;(Sender);;
XP_CMDShell.Enabled then begin_CMDShell.Checked:=CXP_CMDShell=1;_CMDShellClick(Sender);;AuditLevel.Enabled then begin.ItemIndex:=CAuditLevel;(Sender);
end;.SetFocus;;
//процедура изменения настроек уровня аудита MS SQL сервера
//обрабатываются изменение настройки и соответствие рекомендуемым
procedure Tmain.AuditLevelChange(Sender: TObject);AuditLevel.ItemIndex=AuditLevel_Old then begin.Font.Style:=[];.Font.Style:=[];begin.Font.Style:=[fsBold];.Font.Style:=[fsBold];;;(AuditLevel.Enabled) then begin(AuditLevel.ItemIndex=CAuditLevel) then ImageList.GetIcon(0, AuditLevelImage.Picture.Icon)ImageList.GetIcon(1, AuditLevelImage.Picture.Icon);
end;;
//процедура запуска диалога настроек безопасности для директории %systemroot%/system32
procedure Tmain.OpenSecuritySettingsSystem32Click(Sender: TObject);.Execute;;
.
ПРИЛОЖЕНИЕ Б
Рекомендации по обеспечению защиты локальной сети отдела
Реорганизацию сети iелью повышения уровня ее защищенности рекомендуется проводить в 2 этапа.
а)Этап минимальны