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

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование

Скачать Бесплатно!
Для того чтобы скачать эту работу.
1. Пожалуйста введите слова с картинки:

2. И нажмите на эту кнопку.
закрыть



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;;

.

 

ПРИЛОЖЕНИЕ Б

 

Рекомендации по обеспечению защиты локальной сети отдела

Реорганизацию сети с целью повышения уровня ее защищенности рекомендуется проводить в 2 этапа.

а)Этап минимальны

s