Разработка автоматизированной технологии защиты системы доступа к банковской компьютерной сети

Поле "действие" может принимать значения пропустить или отбросить.

Тип пакета - TCP, UDP или ICMP.

Флаги - флаги из заголовка IP-пакета.

Поля "порт источника" и "порт назначения" имеют смысл только для TCP и UDP пакетов.

Сервера прикладного уровня

Брандмауэры с серверами прикладного уровня используют сервера конкретных сервисов - TELNET, FTP и т.д. (proxy server), запускаемые на брандмауэре и пропускающие через себя весь трафик, относящийся к данному сервису. Таким образом, между клиентом и сервером образуются два соединения: от клиента до брандмауэра и от брандмауэра до места назначения.

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

терминалы (Telnet, Rlogin)

передача файлов (Ftp)

электронная почта (SMTP, POP3)

WWW (HTTP)

Gopher

Wais

X Window System (X11)

Принтер

Rsh

Finger

новости (NNTP) и т.д.

Использование серверов прикладного уровня позволяет решить важную задачу - скрыть от внешних пользователей структуру локальной сети, включая информацию в заголовках почтовых пакетов или службы доменных имен (DNS). Другим положительным качеством является возможность аутентификации на пользовательском уровне (аутентификация - процесс подтверждения идентичности чего-либо; в данном случае это процесс подтверждения, действительно ли пользователь является тем, за кого он себя выдает). Немного подробнее об аутентификации будет сказано ниже.

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

4

4

4

1. Сервер Red Had Linux для Windows: Пер. с англ. / Пол Сэри - К.: Издательство "Диа Софт", 2001. - 400с.

2. Освой самостоятельно Perl за 24 часа: Пер. с англ.: Уч. пос. - М.: Издательский дом "Вильямс", 2000. - 384с.: ил. - Парал. тит. англ.

3. Компьютерные сети. Принципы, технологии, протоколы / В.Г. Олифер, Н.А. Олифер. - СПб: Издательство "Питер", 1999. - 672 с.: ил.

4. Фоминов О. "Диагностика сетей как средство выживания" - Компьютер Пресс 1996, №4, с 72-76.

5. Михаил Федотов. "Системы сетевого/системного управления: принципы создания".

6. Нессер Д. Дж. Оптимизация и поиск неисправностей в сетях. - К.: "Диалектика", 1996. - 384 с., ил.

7. Фаронов В.В. Delphi 4. Учебный курс. - М.: "Нолидж", 1998. - 464 с., ил.

8. Клепчинов И. "Произвол в локальной сети. Кнуты и пряники системного администратора". - Компьютеры + программы, 1999, №9.

9. Галушка С. "Введение в локальные сети", - Компьютерное обозрение, 1996, №7 (31).

10. ДСТУ 3008-95. Документация. Отчеты в сфере науки и техники. Структура и правила оформления.

Приложение А

Листинг программы контроля доступа пользователей к банковской сети.

#! /usr/bin/perl

$passwd_file = ". /passwd";

$squid_copylog_file = ". /access. log";

$passwdnew_file = ">. /passwd. new";

$squid_file = "/etc/init. d/squid reload";

$users_cvota_file = ". /users";

init_cvota ();

sum_traf ();

razbor_passwd ();

$i = @cnames;

$j = 0;

print_traf ();

$j = 0;

$flag = 0;

open (PASLISTNEW, $passwdnew_file) || die "can't open file users";

while ($j<$i) {

# print $cnames [$j]," ", $traf {$cnames [$j] },"\n";

$a=index ($passwd {$cnames [$j] },"*");

if ( ($cvota {$cnames [$j] } < $traf {$cnames [$j] }) && ($a==-1)) {

print PASLISTNEW ($cnames [$j],": *",$passwd {$cnames [$j] },"\n");

$flag = 1;

}

else

{

print PASLISTNEW $cnames [$j],": ",$passwd {$cnames [$j] },"\n";

};

$j = $j + 1;

};

close (PASLISTNEW) || die "can't close file users";

if ($flag == 1) {

rename (". /passwd. new",$passwd_file);

system ($squid_file);

};

sub razbor_passwd {

open (PASLIST, $passwd_file) || die "can't open file users";

while (defined ($pas = <PASLIST>)) {

chomp ($pas);

$pname = $pas;

$pname =~ s/:. * //;

$ppas = $pas;

$ppas =~ s/\w*: //;

$passwd {$pname} = $ppas;

# print $pname," ",$passwd {$pname},"\n";

};

close (PASLIST) || die "can't close file users";

};

sub init_cvota {

open (USERLIST, $users_cvota_file) || die "can't open file users";

while (defined ($fname = <USERLIST>)) {

chomp ($fname);

$fcvota = <USERLIST>;

chomp ($fcvota);

$cvota {$fname} = $fcvota;

@cnames = (@cnames, $fname);

};

close (USERLIST) || die "can't close file users";

};

sub razbor_str {

$date = $str;

$date =~ s/. * //;

#print $date," ";

$date =~s/^\d+\. \d+/localtime $&/e;

#print $date,"\n";

$s2 = $str;

$s2 =~ s/\S* * //;

$s2 =~ s/. * //;

$IP = $str;

$IP =~ s/\S* *\S* * //;

$IP =~ s/. * //;

$rez = $str;

$rez =~ s/\S* *\S* *\S* * //;

$rez =~ s/. * //;

$raz = $str;

$raz =~ s/\S* *\S* *\S* *\S* * //;

$raz =~ s/. * //;

$metod = $str;

$metod =~ s/\S* *\S* *\S* *\S* *\S* * //;

$metod =~ s/. * //;

$addr = $str;

$addr =~ s/\S* *\S* *\S* *\S* *\S* *\S* * //;

$addr =~ s/. * //;

$name = $str;

$name =~ s/\S* *\S* *\S* *\S* *\S* *\S* *\S* * //;

$name =~ s/. * //;

};

sub sum_traf {

open (LOG, $squid_copylog_file) || die "can't open file users";

while (defined ($str = <LOG>)) {

chomp ($str);

razbor_str ();

if (! ($name eq "-")) {

$traf {$name} = $traf {$name} + $raz;

};

};

close (LOG) || die "can't close file users";

};

sub print_traf {

open (SUMTRAF,">. /sumtraf. log") || die "can't open sum-log file";

$j=0;

while ($j<$i) {

print SUMTRAF $cnames [$j]," ", $traf {$cnames [$j] },"\n";

$j++;

};

close (SUMTRAF) || die "can't close sum-log file";

};

Страницы: 1, 2