Разработка рекомендаций по повышению защищённости ЛВС ООО "Авиа ОК"

Рассчитаем з/п администратора системы безопасности в отделе для случая, когда данный ПП не применяется.

Основная з/п администратора составляет в среднем 9000 руб/мес. (примерно 108000 руб/год).

Дополнительная з/п администратора составляет 40000 руб/год (с учетом отпускных за 28 дней и процента премии 30%).

ЕСН = (108000 + 40000)*26/100 = 52688 руб/год.

Без использования данного ПП администратор тратит на настройку системы примерно 40 час/мес (480 час./год), а применение ПП сокращает настройку до 20 час/мес (240 час/год). Таким образом, отдел может сэкономить на выплате з/п администратору за 20 час./мес (240 час/год). Рассчитаем сумму з/п администратора за 240 час/год, сэкономленную отделом с помощью ПП:

з/п (осн.) = 24000 руб/год, з/п (доп.) = 10000 руб/год, ЕСН = 12104руб/год. Итого: отдел сэкономил всего 46104 руб/год (24000 +10000 +12104).

А теперь посчитаем расходы на амортизацию: 19856 /3 = 6620 руб/год. Годовые эксплуатационные расходы сведены в таблицу 7.5.

Таблица 7.5 - Годовые эксплуатационные расходы потребителя

Заключение

В результате работы над данным дипломным проектом была рассмотрена и проанализирована вычислительная сеть ООО «АвиаОк». В ходе анализа были выявлены различные виды угроз безопасности данной локальной сети и проведено их исследование. На основе угроз была проанализирована существующая система защиты информации. Анализ выявил, что данная система устраняет практически все выявленные угрозы, остальные угрозы можно блокировать при помощи рекомендаций данных в главе 5 дипломного проекта.

В работе даны рекомендации по настройке и использованию механизмов защиты таких программных продуктов, как операционная система Linux Red Hat 7.1, используемая для безопасного подключения к сети Internet, операционная система Windows 2000, позволяющая настроить механизмы безопасности системы, также приведены настройки безопасности для ПО MS SQL.

При разработке рекомендаций по составу средств защиты учитывалось, что финансирование обеспечения ИБ в организации ведётся по остаточному принципу.

Помимо этого была разработана программа централизованного управления обновлением ПО, которая рекомендуется для использования при администрировании рассмотренной локальной вычислительной сети в качестве инструмента, позволяющего ускорить процесс обновления ПО на рабочих станциях. Для разработанной программы приведено подробное руководство по ее использованию.

Можно сделать вывод, что в результате работы над дипломным проектом были решены следующие задачи:

- описана и проанализирована локальная сеть отдела;

- выявлены и оценены угрозы, характерные для данной сети;

- проанализирована существующая в отделе система защиты информации;

- разработаны рекомендации по улучшению данной системы защиты;

- разработана программа централизованного управления обновлением ПО.

Важно понять, что сетевая безопасность - это эволюционный процесс. Нет ни одного продукта, способного предоставить предприятию "полную безопасность". Надежная защита сети достигается сочетанием продуктов и услуг, а также грамотной политикой безопасности и ее соблюдением всеми сотрудниками сверху донизу.

В соответствие с этим, цель данного дипломного проекта была достигнута.

Список использованных источников

1. Медведовский И., Семьянов П., Платонов В., «Атака через «Internet»», - СПб.: «Мир и семья - 95», 1997. - 296 с.

2. Середа С., «Анализ средств преодоления систем защиты программного обеспечения». - Режим доступа : http://bugtraq.ru/library/security/

3. Милославская Н.Г., Толстой А.И., Интрасети: обнаружение вторжений: Учеб. пособие для вузов. -- М.: ЮНИТИ-ДАНА, 2001. -- 587 с.

4. Медведовский И. Д., Практическое применение международного стандарта безопасности информационных систем ISO 17799, 2003. - Режим доступа: http://itstandart.ru.

5. Microsoft Corporation Администрирование сети на основе Microsoft Windows 2000. Учебный курс MCSA/MCSE:Пер. с англ. 3-е изд., испр.-- М.: Издатсльско-тортовый дом «Русская Редакция». 2004. -- 416 стр.: ил.

6. Eric Allman SENDMAIL - Межсетевой почтовый роутер. - Режим доступа: http://gyro.pvrr.ru.

7. Александр Михайлов “Sendmail vs. spam”.- Режим доступа: http://www.computerra.ru

8. “Лаборатория Касперского”.- Режим доступа: http://www.kaspersky.ru/.

9. Уязвимость WINDOWS 2000. - Режим доступа: http://mp.ustu.ru.

10. Уильям Р. Станек Microsoft Windows 2000. Справочник администратора./Пер. с англ. -- М.: Издат.-торговый дом «Русская Редакция», 2002. - 592 с.: ил.

11. Самоучитель по Linux Red Hat. - Режим доступа: http://Soft32.ru.

12. Бакаева Т.Н., Непомнящий А.В., Ткачев И.И., В помощь дипломнику: Методическая разработка к разделу «Безопасность и экологичность» в дипломном проекте (работе) для всех специальностей. Таганрог: ТРТУ, 2001. - 51с.

ПРИЛОЖЕНИЕ А

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

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPServer, idContext, idGlobal,

idSocketHandle, IdScheduler, IdSchedulerOfThread, IdSchedulerOfThreadDefault,

idTCPConnection, idIOHandler, ShellApi, AppEvnts;

type

TForm1 = class(TForm)

IdTCPServer1: TIdTCPServer; //объект сервера

Button2: TButton;

ListBox1: TListBox; //список клиентов

Button3: TButton;

OpenDialog1: TOpenDialog;

Label1: TLabel;

Button1: TButton;

CheckBox1: TCheckBox;

ListBox2: TListBox; //список файлов

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Button4: TButton;

Button5: TButton;

ApplicationEvents1: TApplicationEvents;

Button6: TButton;

procedure FormCreate(Sender: TObject);

procedure ApplicationEvents1Minimize(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure Button6Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure IdTCPServer1Disconnect(AContext: TIdContext);

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure IdTCPServer1Execute(AContext: TIdContext);

procedure IdTCPServer1Connect(AContext: TIdContext);

procedure SendFile(Client:TidContext; Filename, Destination:string);

procedure CreateTaskIcon;

procedure HandleTray(var msg:tmessage); message WM_USER+10;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

//Обработчик соединения, вызывается, когда подключается клиент

procedure TForm1.IdTCPServer1Connect(AContext: TIdContext);

begin

//добавляем в список адрес клиента и туда же объект клиента

listbox1.AddItem(acontext.Binding.IP,AContext);

end;

//Событие, возникающее при приёме данных от клиента

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);

var s:string;

begin

try

//запрашиваем строку от клиента

s:=AContext.Connection.IOHandler.ReadLn;

//если это сообщение, то выводим его

if s='MESSAGE' then begin

s:=AContext.Connection.IOHandler.ReadLn;

ShowMessage('Сообщение от '+acontext.Binding.IP+': '+#10#13+s);

end;

except

end;

end;

//процедура добавления файлов в список

procedure TForm1.Button3Click(Sender: TObject);

var i:integer;

begin

//вызываем диалог

if not OpenDialog1.Execute then exit;

//добавляем все выделенные файлы в список

for i:=0 to openDialog1.Files.Count-1 do

listbox2.Items.Add(opendialog1.Files[i]);

end;

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

procedure TForm1.SendFile(Client:TidContext; Filename, Destination: string);

var i:integer;

r:tsearchrec;

begin

//находим файл, чтобы узнать его размер

i:=findfirst(FileName,faanyfile,r);

if i<>0 then exit;

//отправляем строку клиенту о приёме файла

Client.Connection.IOHandler.Writeln('FILE');

//отправляем конечное имя файла

Client.Connection.IOHandler.Writeln(Destination+extractfilename(filename));

//отправляем размер файла

Client.Connection.IOHandler.Writeln(inttostr(r.Size));

//отправляем файл

//у клиента запускается приём файлового потока

Client.Connection.IOHandler.Writefile(Filename);

findclose(r);

end;

//нажатие кнопки "отправить файлы"

procedure TForm1.Button1Click(Sender: TObject);

var i,c:integer;

ClientsSended, FilesSended:integer;

DestPath:string;

begin

DestPath:=inputBox('Server','Введите папку для помещения файлов у клиента','');

if DestPath='' then exit;

ClientsSended:=0;

FilesSended:=0;

//цикл по каждому клиенту

for c:=0 to listbox1.Items.Count-1 do

//если клиент выбран или нажато "отправить всем", отправляем файлы

if (checkbox1.Checked) or (listbox1.Selected[c]) then begin

//цикл по каждому файлу

for i:=0 to listbox2.Items.Count-1 do begin

try

SendFile(listbox1.items.Objects[c] as TIdContext,listbox2.Items[i], DestPath);

except

//обработчик ошибки передачи

ShowMessage('Невозможно осуществить передачу');

//в случае ошибки, удаляем клиент из списка

listbox1.Items.Delete(c);

end;

inc(FilesSended);

end;

inc(ClientsSended);

end;

ShowMessage('Отослано '+inttostr(FilesSended)+' файлов '+inttostr(ClientsSended)+' клиентам');

end;

//процедура отправки сообщения

procedure TForm1.Button2Click(Sender: TObject);

var s:string;

c:integer;

begin

s:=inputbox('Server', 'Введите сообщение клиенту','');

if s='' then exit;

//цикл по каждому клиенту

for c:=0 to listbox1.Items.Count-1 do

//если клиент выбран или нажато "отправить всем", отправляем сообщение

if (checkbox1.Checked) or (listbox1.Selected[c]) then begin

try

//отправляем строку клиенту о приёме сообщения

(listbox1.Items.Objects[c]as TIdContext).Connection.IOHandler.WriteLn('MESSAGE');

//отправляем сообщение

(listbox1.Items.Objects[c]as TIdContext).Connection.IOHandler.WriteLn(s);

except

ShowMessage('Невозможно осуществить передачу');

//в случае ошибки, удаляем клиент из списка

listbox1.Items.Delete(c);

end;

end;

end;

//обработчик отсоединения клиента

procedure TForm1.IdTCPServer1Disconnect(AContext: TIdContext);

var i:integer;

begin

//по дисконнекту удаляем клиент из списка

if listbox1<>nil then begin

i:=listbox1.Items.IndexOfObject(acontext);

if i>-1 then listbox1.Items.Delete(i);

end;

end;

//процедура замены номера порта

procedure TForm1.Button4Click(Sender: TObject);

var i:integer;

begin

//отсоединяем всех клиентов

//так как по дисконнекту клиент удаляется из списка, обращение всё время к Objects[0]

for i:= 0 to listbox1.Items.Count-1 do

(listbox1.Items.Objects[0] as TIdContext).Connection.Disconnect;

//отключаем сервер

idTCPServer1.Active:=false;

//меняем порт

idTCPServer1.Bindings[0].Port:=strtoint(edit1.Text);

//включаем сервер

idTCPServer1.Active:=true;

end;

//очистка списка файлов

procedure TForm1.Button5Click(Sender: TObject);

begin

listbox2.Clear;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

//отсоединение выбранного клиента

(listbox1.Items.Objects[listbox1.ItemIndex]as TIdContext).Connection.Disconnect;

end;

//процедура создания иконки в трее

procedure TForm1.CreateTaskIcon;

var nd:NOTIFYICONDATA;

begin

zeromemory(@nd, sizeof(NOTIFYICONDATA));

nd.cbSize:=sizeof(NOTIFYICONDATA);

nd.Wnd:=Handle;

nd.hIcon:=application.Icon.Handle;

nd.uID:=1;

nd.uFlags:=NIF_ICON or NIF_TIP or NIF_MESSAGE;

nd.uCallbackMessage:=WM_USER + 10;

nd.szTip:='CorpServer'#0;

Shell_NotifyIcon(NIM_ADD, @nd);

end;

//по закрытию окна удаляем иконку в трее

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

var nd:NOTIFYICONDATA;

begin

zeromemory(@nd, sizeof(NOTIFYICONDATA));

nd.cbSize:=sizeof(NOTIFYICONDATA);

nd.Wnd:=Handle;

nd.uID:=1;

Shell_NotifyIcon(NIM_DELETE, @nd);

end;

//обработчик сворачивания приложения, убирающий кнопку из панели задач

procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);

begin

hide;

end;

//обработчик сообщения о нажатии на иконку в трее

procedure TForm1.HandleTray(var msg: tmessage);

begin

if (msg.msg=WM_USER+10) and (msg.lParam=WM_LBUTTONUP) then begin

Show;

Application.Restore;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

CreateTaskIcon;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, idGlobal,

idStreamVCL, ExtCtrls, shellapi, AppEvnts;

type

TForm2 = class(TForm)

IdTCPClient1: TIdTCPClient; //объект клиента

Button2: TButton;

Label1: TLabel;

Timer1: TTimer;

Label3: TLabel;

Edit1: TEdit;

Button4: TButton;

Edit2: TEdit;

Label2: TLabel;

ApplicationEvents1: TApplicationEvents;

procedure ApplicationEvents1Minimize(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure Button4Click(Sender: TObject);

procedure IdTCPClient1Disconnected(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure MarkDisconnected;

procedure CreateTaskIcon;

procedure HandleTray(var msg:tmessage); message WM_USER+10;

private

{ Private declarations }

public

{ Public declarations }

end;

TListenThread = class(TThread)

procedure Execute; override;

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

var ListenThread:TListenThread; //слушающий поток

{ TListenThread }

//процедура выполнения принимающего потока

procedure TListenThread.Execute;

var s,filename,mes:string;

filesize:integer;

stream:TidStreamVCL;

fstr:TFileStream;

begin

//работает в цикле, пока не отключается снаружи

while not terminated do begin

try

//ожидание строки от сервера

s:=form2.IdTCPClient1.IOHandler.ReadLn;

//в случае, если отправляется файл

if s='FILE' then begin

//запрос имени файла

filename:=form2.IdTCPClient1.IOHandler.ReadLn;

//запрос размера файла

s:=form2.IdTCPClient1.IOHandler.ReadLn;

filesize:=strtoint(s);

//создаём filestream и stream для приёма

fstr:=tfilestream.Create(filename,fmCreate);

stream:=tidStreamVCL.Create(fstr);

//приём файла. Данные записываются в stream,

//затем filestream записывает их непосредственно в файл

form2.IdTCPClient1.IOHandler.ReadStream(stream,filesize);

//по окончании приёма, закрываем файл

fstr.Free;

end

//если отправляется сообщение

else if s='MESSAGE' then begin

//запрос строки

mes:=form2.IdTCPClient1.IOHandler.ReadLn;

//вывод сообщения (#10#13 - это символ переноса строки)

showmessage('Сообщение от сервера: '+#10#13+mes);

end;

except

//в случае ошибки останавливаем поток

terminate;

end;

end;

end;

//запуск приложения

procedure TForm2.FormCreate(Sender: TObject);

begin

CreateTaskIcon;

//создаём принимающий поток

ListenThread:=TListenThread.Create(true);

try

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

idTCPClient1.Connect;

//запуск потока

ListenThread.Resume;

except

//в случае неудачи, вывод сообщения

MarkDisconnected;

end;

end;

//отправка сообщения серверу

procedure TForm2.Button2Click(Sender: TObject);

var s:string;

begin

s:=inputbox('Client', 'Введите сообщение серверу','');

if s='' then exit;

try

//отправка

idTCPClient1.IOHandler.WriteLn('MESSAGE');

idTCPClient1.IOHandler.WriteLn(s);

except

ShowMessage('Ошибка передачи');

//дисконнект в случае ошибки

MarkDisconnected;

end;

end;

//процедура, вызываемая по таймеру раз в 10 секунд, если клиент не подключён

procedure TForm2.Timer1Timer(Sender: TObject);

begin

try

//попытка соединиться

idTCPClient1.Connect;

//запуск потока

ListenThread.Resume;

//отключение таймера

timer1.Enabled:=false;

label1.Caption:='Клиент активен';

label1.Font.Color:=clgreen;

except

//в случае неудачи ничего не делаем

end;

end;

//остановка потока при отсоединении

procedure TForm2.IdTCPClient1Disconnected(Sender: TObject);

begin

ListenThread.Terminate;

end;

//процедура вывода сообщения об отсутствии связи

procedure TForm2.MarkDisconnected;

begin

ShowMessage('Отсутствует соединение с сервером');

label1.Caption:='Отсутствует соединение';

label1.Font.Color:=clred;

//запускаем таёмер, который будет пытаться соединиться

timer1.Enabled:=true;

end;

//смена номера порта или адреса сервера

procedure TForm2.Button4Click(Sender: TObject);

begin

//отключаем клиент

if idTCPClient1.Connected then idTCPClient1.Disconnect;

//меняем значения адреса и порта

idTCPCLient1.Host:=Edit2.Text;

idTCPCLient1.Port:=strtoint(edit1.text);

//подключаемся

try

idTCPClient1.Connect;

ListenThread.Resume;

timer1.Enabled:=false;

label1.Caption:='Клиент активен';

label1.Font.Color:=clgreen;

except

MarkDisconnected;

end;

end;

//процедура создания иконки в трее

procedure TForm2.CreateTaskIcon;

var nd:NOTIFYICONDATA;

begin

zeromemory(@nd, sizeof(NOTIFYICONDATA));

nd.cbSize:=sizeof(NOTIFYICONDATA);

nd.Wnd:=Handle;

nd.hIcon:=application.Icon.Handle;

nd.uID:=1;

nd.uFlags:=NIF_ICON or NIF_TIP or NIF_MESSAGE;

nd.uCallbackMessage:=WM_USER + 10;

nd.szTip:='CorpClient'#0;

Shell_NotifyIcon(NIM_ADD, @nd);

end;

//по закрытию окна удаляем иконку в трее

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

var nd:NOTIFYICONDATA;

begin

zeromemory(@nd, sizeof(NOTIFYICONDATA));

nd.cbSize:=sizeof(NOTIFYICONDATA);

nd.Wnd:=Handle;

nd.uID:=1;

Shell_NotifyIcon(NIM_DELETE, @nd);

end;

//обработчик сворачивания приложения, убирающий кнопку из панели задач

procedure TForm2.ApplicationEvents1Minimize(Sender: TObject);

begin

hide;

end;

//обработчик сообщения о нажатии на иконку в трее

procedure TForm2.HandleTray(var msg: tmessage);

begin

if (msg.msg=WM_USER+10) and (msg.lParam=WM_LBUTTONUP) then begin

Show;

Application.Restore;

end;

end;

end.

Размещено на Allbest.ru