Geum.ru


Информационная безопасность в ГУП ОЦ "Московский дом книги"

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

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



информации "Соната-РС1";

выжигатель устройств съема информации в проводных линиях связи и в обесточенной электросети "Молния".

Расчет экономической эффективности внедрения системы информационной безопасности в "ГУП ОЦ "Московский Дом Книги" обосновал необходимость внедрения. По итогам расчета чистая прибыль после внедрения проекта в деятельность компании составит 1861387,3 в первый год после внедрения.

Список нормативных актов и литературы

1.Государственный стандарт РФ "Аспекты безопасности. Правила включения в стандарты" (ГОСТ Р 51898-2002).

2.Информационная безопасность (2-я книга социально-политического проекта "Актуальные проблемы безопасности социума"). М.: "Оружие и технологии", 2009.

.Национальный стандарт РФ "Защита информации. Основные термины и определения" (ГОСТ Р 50922-2006).

.Национальный стандарт РФ "Информационная технология. Практические правила управления информационной безопасностью" (ГОСТ Р ИСО/МЭК 17799-2005).

.Национальный стандарт РФ "Методы и средства обеспечения безопасности. Часть Концепция и модели менеджмента безопасности информационных и телекоммуникационных технологий" (ГОСТ Р ИСО/МЭК 13335-1 - 2006).

.Рекомендации по стандартизации "Информационные технологии. Основные термины и определения в области технической защиты информации" (Р 50.1.053-2005).

.Рекомендации по стандартизации "Техническая защита информации. Основные термины и определения" (Р 50.1.056-2005).

.Словарь терминов по безопасности и криптографии. Европейский институт стандартов по электросвязи

.Бачило И.Л. Информационное право: основы практической информатики. Учебное пособие. М.: 2001.

.Безопасность: теория, парадигма, концепция, культура. Словарь-справочник / Автор-сост. профессор В. Ф. Пилипенко. 2-е изд., доп. и перераб. - М.: ПЕР СЭ-Пресс, 2005.

.Доктрина информационной безопасности Российской Федерации / Чернов А.А. Становление глобального информационного общества: проблемы и перспективы. Приложение 2. М.: "Дашков и К", 2003.

.Домарев В. В. Безопасность информационных технологий. Системный подход - К.: ООО ТИД Диа Софт, 2004. - 992 с.

.Ильюшенко В.Н. Информационная безопасность общества. Учебное пособие. - Томск, 1998.

.Кулаков В.Г. Региональная система информационной безопасности: угрозы, управление, обеспечение. - Автореф. дисс. тАж д-ра техн. наук. - Воронеж, 2005.

.Лапина М. А., Ревин А. Г., Лапин В. И. Информационное право. М.: ЮНИТИ-ДАНА, Закон и право, 2004.

.Уткин А.И. Глобализация: процесс осмысления. М.: "Логос", 2001.

.Фролов Д.Б. Государственная информационная политика в условиях информационно-психологической войны. - М.: Горячая линия - Телеком, 2003.

Приложение 1

Листинг информационной системы анализа безопасности информационных систем предприятия

Unit1;

interface

uses, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;

type= class(TForm): TButton;: TButton;: TButton;: TButton;Show(Sender: TObject);Button5Click(Sender: TObject);Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);

{ Private declarations }

{ Public declarations };

var: TForm1;: boolean;

implementationUnit2, Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm1.Show(Sender: TObject);.Caption := 'Запрос пароля';:=true;.ShowModal;;

procedure TForm1.Button5Click(Sender: TObject);;;

procedure TForm1.Button1Click(Sender: TObject);

begin.Caption := 'Программные, информационные и технические средства предприятия';

add:=true;.ShowModal;;

procedure TForm1.Button2Click(Sender: TObject);

begin.Caption := 'Информация о пользователях ИС';

add:=true;.ShowModal;;

procedure TForm1.Button3Click(Sender: TObject);

begin.Caption := 'Информация о пользователях ИС';

add:=true;.ShowModal;;.

unit Unit2;

interfaceWindows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,;

type= class(TForm): TLabel;: TEdit;: TButton;: TButton;OKBtnClick(Sender: TObject);CancelBtnClick(Sender: TObject);

{ Private declarations }

{ Public declarations };

var: TPasswordDlg;

implementationUnit1;

{$R *.dfm}

procedure TPasswordDlg.OKBtnClick(Sender: TObject);pass='111';Password.Text = pass then.Close;Application.Terminate;;

procedure TPasswordDlg.CancelBtnClick(Sender: TObject);

begin.Terminate;;.

unit Unit3;

interface

uses, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, ADODB, Grids, DBGrids, StdCtrls, RpCon, RpConDS, RpDefine,;

type= class(TForm): TDBGrid;: TADOConnection;: TADOTable;: TDataSource;: TButton;: TLabel;: TEdit;: TButton;: TRvProject;: TRvDataSetConnection;Button1Click(Sender: TObject);Edit1Change(Sender: TObject);Button2Click(Sender: TObject);

{ Private declarations }

{ Public declarations };

var: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);;;

procedure TForm3.Edit1Change(Sender: TObject);Not ADOTable1.Active then Exit;Not ADOTable1.Locate('Наименование средства', Edit1.Text, [loPartialKey, loCaseInsensitive])Application.MessageBox('Заданная строка не найдена', 'Поиск', MB_OK);;

procedure TForm3.Button2Click(Sender: TObject);

begin.Execute;;.

unit Unit4;

interface

uses, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, ADODB, Grids, DBGrids, StdCtrls, RpCon, RpConDS, RpDefine,;

type= class(TForm): TDataSource;: TDBGrid;: TADOConnection;: TADOTable;: TButton;: TButton;: TRvProject;: TRvDataSetConnection;: TLabel;: TEdit;Button1Click(Sender: TObject);Button2Click(Sender: TObject);Edit1Change(Sender: TObject);

{ Private declarations }

{ Public declarations };

var: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);.Execute;;

procedure TForm4.Button2Click(Sender: TObject);;;

procedure TForm4.Edit1Change(Sender: TObject);Not ADOTable1.Active then Exit;Not ADOTable1.Locate('ФИО сотрудника', Edit1.Text, [loPartialKey, loCaseInsensitive])Application.MessageBox('Заданная строка не найдена', 'Поиск', MB_OK);

end;.

unit Unit5;

interface

uses, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Grids;

type= Record: Cardinal;: String[10];: String[60];: String[6];: String[30];;= class(TForm): TStringGrid;: TButton;: TButton;: TButton;: TButton;: TButton;: TOpenDialog;: TSaveDialog;: TButton;FormCreate(Sender: TObject);Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);Button4Click(Sender: TObject);Button5Click(Sender: TObject);Button6Click(Sender: TObject);

{ Private declarations }

{ Public declarations };

var: TForm5;: File of Zap;: Zap;: Integer;: integer;: integer;: boolean;: integer;

implementationUnit6;

{$R *.dfm}

procedure TForm5.FormCreate(Sender: TObject);.Cells[0,0]:='№ п/п';.Cells[1,0]:='Дата';.Cells[2,0]:='Возникшая угроза';

StringGrid1.Cells[3,0]:='Отметка об устранении';

StringGrid1.Cells[4,0]:='П?/p>