Годовая экономия затрат на обработку информации (С), связанная с внедрением программного средства определяется по формуле:

, (5.1)

где - затраты на подготовку и обработку информации в базовом варианте, тыс. руб.,

- затраты на обработку информации при внедрении программного средства, тыс. руб.

, (5.2)

где , - объём входной и выходной информации, обрабатываемой в базовом варианте соответственно, тыс. зн.;

- стоимость одного часа ручной обработки информации, руб. / час;

- коэффициент, учитывающий дополнительные затраты времени на логические операции при ручной обработке информации;

- норма выработки при ручной работе, зн. /час.

, (5.3)

где - среднемесячная заработная плата пользователя, руб.;

W - коэффициент начисления на заработную плату;

Т - среднемесячный фонд рабочего времени, час;

- коэффициент, учитывающий накладные расходы.

Затраты на обработку информации при использовании внедрённого программного средства () определяются следующим образом:

, (5.4)

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

- затраты на машинное время для реализации функций, автоматизированном в программном средстве, тыс. руб.

, (5.5)

где - объём входной информации, обрабатываемой с помощью программного средства (новый вариант), тыс. зн.;

- норма выработки пользователя при подготовке и вводе информации в ЭВМ, тыс. зн. /час;

- стоимость одного машинного часа работы ЭВМ, руб.

, (5.6)

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

, (5.7)

где - объём выходной информации, получаемой при использовании программного средства, тыс. зн.;

- среднее время обработки 1000 знаков и вывода информации с использованием программного средства, час/тыс. зн.

Единовременные затраты на создание и внедрение программного средства (К) рассчитываются по формуле:

, (5.8)

где - предпроизводственные затраты, тыс. руб.;

- капитальные вложения, тыс. руб.

В предпроизводственные затраты обычно включают затраты на разработку или поставку и привязку программного средства, а также расходы, связанные с формированием информационной базы для функционирования программного средства (кодирование информации, заполнение справочников, формирование переходящих остатков и прочее).

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

Внедрение программного средства будет эффективным, если расчётный коэффициент эффективности капитальных вложений (Е_р) будет больше выбранного граничного значения. При этом Е_р определяется как:

, (5.9)

где Е - принятый по предлагаемой выше методике, в зависимости от желаемого срока окупаемости, граничный коэффициент эффективности капитальных вложений.

Срок окупаемости капитальных вложений (Т_ок) рассчитывается по формуле:

. (5.10)

Расчёт прямого эффекта:

1. Расчет показателя стоимости одного часа ручной обработки информации:

Ц_р = 4500* 1,34 * 2/167,8 = 71,87руб. /час (5.11)

2. Расчет показателя затрат на подготовку и обработку информации по базовому варианту:

С_р = (373 + 1247) * 71,87 * 1,15/600 = 223,16 тыс. руб. (5.12)

3. Расчет показателя затрат на подготовку информации для реализации функций, автоматизированных в ПС:

С_n = (71,87 +35,00) * 373/3 = 13287,5 руб. (5.13)

4. Расчет показателя затрат машинного времени:

Т_м = (373+1247) *0,5 = 810 час. (5.14)

5. Расчет показателя затрат на машинное время для реализации функций, автоматизированных в ПС:

С_об = 810* 35,0 = 28350 руб. (5.15)

6. Расчет показателя затрат на обработку информации при использовании внедренного ПС:

С_м = 13287,5 + 28350 = 41637,5 руб. (5.16)

7. Расчет показателя прямой экономии затрат на обработку информации:

С = 223000,16 - 41637,5= 181362,66 руб. (5.17)

8. Расчет показателя единовременных затрат на создание и внедрение ПС:

тыс. руб. (5.19)

9. Расчет коэффициента эффективности капитальных вложений:

Е_р = 181362,66/100000 ? 1,8 ? 0,33 (5.20)

10. Расчет срока окупаемости капитальных вложений:

Т_ок = 100000/181362,66 ? 0,55 года (5.21)

Так как расчетный коэффициент эффективности капитальных вложений (Еp) больше нормативного, принимаемого здесь равным 0,33, то внедрение информационной системы является эффективным и целесообразным.

Кроме того, опираясь на коэффициент Т_ок, можно сделать вывод о том, что капитальные вложения на проект окупятся быстро.

5.4 Выводы

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

2. Рассчитаны следующие технико-экономические показатели разработки процедуры безадресного зондирования корпоративной сети:

– показатель стоимости одного часа ручной обработки информации;

– показатель затрат на обработку информации по базовому варианту;

– показатель затрат на подготовку информации для реализации функций, реализованных в ПС;

– показатель затрат на обработку информации при использовании внедренного ПС;

– коэффициент эффективности капитальных вложений;

– срок окупаемости капитальных вложений.

3. Показано, что затраты на реализацию и внедрение могут быть окуплены спустя 0,55 года.

Заключение

from mod_python import apache, util;

def index (req):

req. content_type = "text/html"

text_str = []

req. add_common_vars ()

if req. form. has_key ('host_name'):

timestamp = req. form ['timestamp']

text_str. append (" ["+timestamp+"] PROCESS_SERVICE_CHECK_RESULT")

req. write ("\n timestamp = "+ timestamp)

host_name = req. form ['host_name']

text_str. append (host_name)

req. write ("\n host_name = "+ host_name)

description = req. form ['description']

text_str. append (description)

req. write ("\n description = "+ description)

return_code = req. form ['return_code']

text_str. append (return_code)

req. write ("\n return_code = "+ return_code)

plugin_output = req. form ['plugin_output']

text_str. append (plugin_output)

req. write ("\n plugin_output = "+ plugin_output)

text = '; '. join (text_str)

file = open ('/usr/share/nagios/hdtp/hosts/'+host_name, 'a+')

file. write ("\n"+text)

file. close ()

Компонент-агент для сбора данных на наблюдаемом сервере

#! /usr/bin/python

# - * - coding: utf-8 - *-

import os

import sys

import urllib

import re

import time

import datetime

import subprocess

class dataTransferPlugin:

def __init__ (self):

self. _nagios_server=

self. _nagios_plugins_dir=

self. _host_name=

self. _method =

_config = self. getConfig ()

self. letsStart (_config)

def makeCheckCommand (self,data = None):

if data:

scriptResult = []

_scriptResult = subprocess. Popen (self. _nagios_plugins_dir+"/"+data + "; echo ' >'$?", shell=True,stdout=_scriptResult = _scriptResult.communicate () [0]

_scriptResult = _scriptResult. replace ("\n",)

plugin_output = re. search (ur" [\W|\D|\w|\d] * (?! =>)",_scriptResult)

if str (plugin_output)! = 'None':

scriptResult. append (plugin_output. group ())

plugin_output = re. search (ur" (? <= >) [\d] {1}",_scriptResult)

if str (plugin_output)! = 'None':

scriptResult. append (plugin_output. group ())

return scriptResult

def killPid (self,data = None):

if data:

scriptResult = os. popen ("kill - 9 "+str (data)). read ()

return scriptResult

def dataTransfer (self,command,command_name,method = 'GET'):

scriptResult = self. makeCheckCommand (command)

if method. upper () == 'GET':

self. httpGETRequest (scriptResult,command_name)

if method. upper () == 'POST':

self. httpPOSTRequest (scriptResult,command_name)

def httpGETRequest (self,data = None,data_name = None):

if data! = None:

description =;

if data! = None:

description = data_name

timestamp = time. strftime ("%s", time. localtime ())

print "GET: ["+str (timestamp) +"]; "+ self. _host_name+"; "+description+"; "+data [1] +"; "+data [0]

params = urllib. urlencode ({'timestamp': timestamp,'host_name': self. _host_name,

'description': description,'return_code': data [1],'plugin_output': data [0] })

f = urllib. urlopen (self. _nagios_server+"%s" % params)

f. close ()

def httpPOSTRequest (self,data = None):

if data! = None:

description =;

if data! = None:

description = data_name

timestamp = time. strftime ("%s", time. localtime ())

print "POST: ["+str (timestamp) +"]; "+ self. _host_name+"; "+description+"; "+data [1] +"; "+data [0]

params = urllib. urlencode ({'timestamp': timestamp,'host_name': self. _host_name,

'description': description,'return_code': data [1],'plugin_output': data [0] })

f = urllib. urlopen (self. _nagios_server, params)

f. close ()

def delSpecSymbols (self,data):

replace_this = re.compile (r" [\n|\t] +")

clearData = replace_this. sub ("",data)

return clearData. strip ()

def getConfig (self):

f = open (r'/etc/hdtp/hdtp. conf')

number = 0

index = {}

line = f. readlines ()

for l in line:

search_host_name = re. search (ur" (? <=host_name) * [\D|\d|\.] *",l)

if str (search_host_name)! = 'None':

host_name = self. delSpecSymbols (search_host_name. group ())

self. _host_name = host_name

continue

search_nagios_server = re. search (ur" (? <=nagios_server) *http://[\D|\d] *",l)

if str (search_nagios_server)! = 'None':

nagios_server = self. delSpecSymbols (search_nagios_server. group ())

self. _nagios_server = nagios_server

continue

search_nagios_plugins_dir = re. search (ur" (? <=nagios_plugins_dir) * [\D|\d] *",l)

if str (search_nagios_plugins_dir)! = 'None':

nagios_plugins_dir = self. delSpecSymbols (search_nagios_plugins_dir. group ())

self. _nagios_plugins_dir = nagios_plugins_dir

continue

search_lifetime = re. search (ur" (? <=lifetime) *\d*",l)

if str (search_lifetime)! = 'None':

lifetime_data = self. delSpecSymbols (search_lifetime. group ())

self. _max_command_lifetime = lifetime_data

continue

search_comment = re. search (ur" (? <=#) \D*",l)

if str (search_comment)! = 'None':

continue

search_method = re. search (ur" (? <=method) *\D{3,5}",l)

if str (search_method)! = 'None':

method_data = self. delSpecSymbols (search_method. group ())

self. _method = method_data

continue

search_command_name = re. search (ur" (? <=description) [|a-zA-Z|0-9] * (? =command)",l)

if str (search_command_name)! = 'None':

command_data_name = self. delSpecSymbols (search_command_name. group ())

number+=1

index [number] ={}

index [number] ['name'] = command_data_name

search_command = re. search (ur" (? <=command) [|\D|0-9] *",l)

if str (search_command)! = 'None':

command_data = self. delSpecSymbols (search_command. group ())

index [number] ['command'] = command_data

continue

f. close ()

return index

def letsStart (self,config = {}):

pid = {}

for line in config:

pid [line] = os. fork ()

if pid [line]:

pass

else:

result = self. dataTransfer (config [line] ['command'],config [line] ['name'],self. _method)

sys. exit (0)

time. sleep (float (self. _max_command_lifetime))

for i in pid:

os. kill (pid [i],

9)

sys. exit (0)

plugin = dataTransferPlugin ()

Инструмент для быстрого добавления новых серверов в систему мониторинга

#hdtp-hosts

#ym - c add-host - o photo. auditory.ru - p use=linux-server - p contact_groups=admins

#ym - c add-service - o PING - d www.auditory.ru - p use=generic-service - p check_command=check_ping

DIR='/var/nagios/hdtp/'

NAGIOS_ETC_DIR='/etc/nagios'

HOSTS_CFG='${NAGIOS_ETC_DIR}/objects/hosts. cfg'

CACHE='/var/hdtp-search/new-hosts. cache'

mkdir - p /var/hdtp-search/

function save2cache {

addhost=`echo "ym - c add-host - o $1 - p use=linux-server - p contact_groups=admins"`

echo $addhost;

echo $addhost >> $CACHE

echo "$2" | while read service; do

addservice=`echo "ym - c add-service - o $service - d $1 - p use=generic-service - p check_command=check_nodata"`

echo $addservice; echo $addservice >> $CACHE

done

}

function check_new {

ls $DIR | while read host; do

check_exist=`grep $host $HOSTS_CFG| wc - l`

if ["$host"! = "cmd_file"] && [$check_exist == 0]; then

host_data=`cat $DIR$host | awk - F "; " '{

srv_list [$3] = $3;

} END {

for (name in srv_list)

if (srv_list [name]! ="") print srv_list [name];

}'`

save2cache $host "$host_data"

fi

done

}

check_new

read - n1 - p "Do you want make all cmd [Y|N]?"

echo ""

case $REPLY in

n | N)

echo "You didn't want to proceed. "

;;

y | Y)

echo "Start make. "

#/bin/bash $CACHE

cat $CACHE

;;

esac

rm $CACHE

exit 0

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