WWW.DISSERS.RU

БЕСПЛАТНАЯ ЭЛЕКТРОННАЯ БИБЛИОТЕКА

   Добро пожаловать!

Pages:     | 1 |   ...   | 4 | 5 || 7 |

«Perl для системного администрирования Дэвид Я. Бланк-Эделъман Canlm /iCj Lx Lx '/ Дэвид Н. Бланк-Эдельман Perl для системного ...»

-- [ Страница 6 ] --

Впрочем, спам это очень неприятная вещь. Лучше перейдем к более приятной теме, например, к взаимодействию пользователей средства ми электронной почты.

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

ролучение почты • Все можно хранить и отслеживать, в отличие от разговоров в кори дорах.

• Электронная почта асинхронна;

системный администратор может читать почту и отвечать на нее в более спокойные вечерние часы.

• По желанию, это может быть индивидуальная, групповая или ши роковещательная рассылка. Если 14 человек пишут об одном и том же (скажем, об одних и тех же сообщениях спамеров), есть возмож ность ответить им всем одновременно, когда проблема будет решена.

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

Все это веские причины использовать электронную почту для связи по вопросам поддержки. Однако есть у электронной почты и недостатки:

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

• Пользователи могут и будут писать в сообщениях все что угодно.

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

Возможно, вы даже не поймете, зачем нужно было такое сообще ние. Это приводит к головоломке, о которой стоит поговорить в дан ном разделе.

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

Date: Sat, 28 Sep 1996 12:27:35 -0400 (EOT) From: Special User To: systems@example.com Subject: [Req. #9531] printer help something is wrong and I have know idea what (что-то случилось, и я не имею понятия, что именно) Если бы пользователь не упомянул слово «принтер» в теме сообщения, не было бы никаких указаний на то, с чего начать, и нам, вероятно, пришлось бы думать, что и впрямь случилось нечто ужасное. Конечно, это самый крайний случай. Чаще вы будете получать примерно такую почту:

From: Another user Subject: [Req #14563] broken macine To: systems@example.com Date: Wed, 11 Mar 1998 10:59:42 -0500 (EST) С машиной krakatoa.example.com происходит что-то не то 334 Глава 8. Электронная почта Пользователи посылают подобные письма, лишенные содержания, йе со зла. Мне кажется, что корень всех бед в полном несоответствии представлений о компьютерной среде у пользователей и системных ад министраторов.

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

Для пользователя вопрос «С какой машиной проблемы?» кажется странным. Они говорят об одном компьютере, о том, на котором рабо тают сейчас. Неужели это не очевидно? Системному администратору столь же странной кажется просьба «помогите с принтером»;

в конце концов, он следит за многими принтерами.

Также обстоит дело и со спецификой проблемы. Системные админист раторы всего мира каждый день скрежещут зубами, получая почту, в которой сказано: «Мой компьютер не работает, не могли бы вы помочь мне?». Они знают, что «не работает» может относиться к множеству симптомов, у каждого из которых есть свои причины. Для пользовате ля, столкнувшегося с тремя зависаниями компьютера за неделю, сло ва «не работает» выглядят вполне конкретными.

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

Что ж, если применить Perl, может быть и нет. Perl наверняка помо жет увеличить количество нормальной почты и поучаствовать в про цессе поддержки. Один из первых шагов системного администратора выяснить местоположение: «Где случилась проблема? С каким прин тером? С каким компьютером?». И так далее.

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

Программа suss применяет очень простой алгоритм для разгадывания имени узла (обычно, поиск в хэше для каждого слова из сообщения).

Сначала изучается тема сообщения, затем его тело и, наконец, выпол няется поиск по заголовкам Received:. Вот упрощенная версия, считы вающая файл /etc /hosts, чтобы определить имена узлов:

use Mail:.-Internet;

$localdomain = ".example.com";

и считываем файл /etc/hosts open(HOSTS, "/etc/hosts") or die "He могу открыть файл узлов\п";

while(defined($_ = )){ next if /"и/;

я пропускаем комментарии next if /"$/;

# пропускаем пустые строки next if /monitor/i;

ff пример вводящего в заблуждение узла И выделяем первое имя узла и переводим его в нижний регистр Smachine = lc((split)[1]);

$machine =" s/\Q$localdomain\E$//oi;

и удаляем имя домена $machines{$machine}++ unless $machines{$machine};

и анализируем сообщение Smessage = new Mail: : Internet \*STDIN;

$message->head->unf old( ) ;

# проверяем тему сообщения my Ssubject = $message->head->get( 'Subject');

Ssubject =' s/[.,;

?]//g;

for (split(/\s+/, Ssubject)) { if (exists $machines{lc $_}) { print "subject: $_\n";

$found++;

exit if $found;

ft проверяем тело сообщения chomp(my @body = @{$message->body()});

my $body = join(" ",@body);

tt удаляем знаки пунктуации Sbody =" s/["\w\s]/ /g;

@body{split(' ', lc $body)} = ();

for (keys %body) { if (exists SmachinesUc $_}) { print "body: $_\n";

$found++;

336 Глава 8. Электронная почта exit if $found;

Я последняя надежда: проверяем последнюю строку Received: $ received = (reverse $message->head->get(' Received' ) [ ] )0;

$received =" s/\Q$localdomain\E//g;

for (split(/\s+/,$received)) { if (exists $machines{lc $_}) { print "received: $_\n";

Несколько комментариев к программе:

• Простота проверки становится проблемой, когда мы сталкиваемся с вполне приемлемыми именами узлов, подобных monitor. Если имена узлов, являющиеся обычными словами, могут появиться в сообщениях, вам придется либо специально их обработать, как бы ло сделано с next if /monitor/i, либо придумать более сложную схе му анализа, что предпочтительнее.

• Мы используем срез хэша (@body{...}), чтобы ускорить поиск по телу сообщения. За один шаг из сообщения выделяются все уникальные слова. Чтобы разобраться с этой конструкцией, можно прочитать ее изнутри. Во-первых, split () возвращает из сообщения список всех «слов» (в нижнем регистре). Эти слова используются как ключи для хэша %body. Поскольку имена ключей в хэше повторяться не мо гут, он будет содержать только уникальные слова из тела сообще ния. Именно подобные возможности делают программирование на Perl приятным.

Теперь применим эту программу. Вот два настоящих сообщения в службу поддержки:

Received: from strontium.example.com (strontium.example.com [192.168.1.114]) by mailhub.example.com (8.8.4/8.7.3) with ESMTP id RAA for ;

Thu, 27 Mar 1997 17:07:44 -0500 (EST) From: User Person Received: (user@localhost) by strontiura.example.com (8.8,4/8.6.4) id RAA for systems;

Thu, 27 Mar 1997 17:07:41 -0500 (EST) Message-Id : <1 99703272207. RAA10500@st rontium. example. com> Subject: [Req «11509] Monitor To: systems@example.com Date: Thu, 27 Mar 1997 17:07:40 -0500 (EST) Hi, My monitor is flickering a little bit and it is tiresome when working with it to much.

Is it possible to fix it or changing the monitor?

Получение почты Thanks.

User.

Received: from example.com (user2@example.com [192.168.1.7]) by mailhost.example.com (8.8.4/8.7.3) with SMTP id SAA for ;

Thu, 27 Mar 1997 18:34:54 -0500 (EST) Date: Thu, 27 Mar 1997 18:34:54 -0500 (EST) From: Another User To: systems@example.com Subject: [Req #11510] problems with two computers Message-Id: In Jenolen (in room 292), there is a piece of a disk stuck in it. In intrepid, there is a disk with no cover (or whatever you call that silver thing) stuck in it. We tried to turn off intrepid, but it wouldn't work. We (the proctor on duty and I) tried to get the disk piece out, but it didn't work. The proctor in charge decided to put signs on them saying 'out of order' AnotherUser После запуска программы для этих двух сообщений мы получили:

received: strontium и:

body: jenolen body: intrepid Оба узла были найдены верно и для этого понадобился лишь неболь шой отрывок простого кода. Шагнем дальше и предположим, что по ступило такое письмо:

Received: from [192.168.1.118] (buggypeak.example.com [192.168.1.118]) by mailhost.example.com (8.8.6/8.8.6) with SMTP id JAA for ;

Tue, 4 Aug 1998 09:07:15 -0400 (EDT) Message-Id: Date: Tue, 4 Aug 1998 09:07:16 - To: systems@example.com From: user@example.com (Nice User) Subject: [Req #15746] printer Could someone please persuade my printer to behave and print like a nice printer should? Thanks much :) -Nice User.

Пользователь, должно быть, не знает, что вы «пасете стадо» из принтеров. Но можно применить Perl и чуть-чуть наблюдательности, т 338 Глава 8. Электронная почта чтобы сделать умные догадки. Пользователи стараются печатать ц принтерах, расположенных ближе всего к тому компьютеру, за кот^ рым в данный момент работают. Если бы можно было определить ма шину, с которой отправлена почта, вероятно, удалось бы вычислить и принтер. Существует много способов получить информацию о связи компьютер-принтер, например, из отдельного файла, из поля в базе данных узлов, о которой упоминалось в главе 5, или даже из службы каталогов LDAP. Вот простой пример, в котором используется простая база данных компьютеров и связанных с ними принтеров:

use Mail:

-.Internet;

use DB_File;

$localdomain = ".example.com";

# printdb - это файл Berkeley OB. Ключи - имена узлов, значения - принтеры Sprintdb = "printdb";

(t анализируем сообщение Smessage = new Mail:.'Internet VSTDIN;

$message->head->unf old( ) ;

ft проверяем тему сообщения my Ssubject = $message->head->get(' Subject');

if ($subject =" /print(er|ing)?/i){ # ищем машину-отправителя (ситаем, что используется формат заголовков Sendmail) Sreceived = (reverse $message->head->get(' Received ' ) 0 ;

)[] ($host) = Sreceived =" /"from \S+ \((?:\S+@)?(\S+)\Q$localdomain\E \[/;

tie %printdb, "DB_File",$printdb or die "Невозможно подключиться к базе данных $printdb:$!\n";

print "Проблема на машине $host может быть связана с принтером ".

$printdb{$host>. ",\п";

untie %printdb;

Если в теме сообщения упоминаются слова «печать», «принтер» «напечатать», мы выделяем имя узла из заголовка Received:. Для по лучения этой информации можно применить одно регулярное выра жение, т. к. известен формат, используемый для заголовков Received в нашей сети. Зная имя узла, нетрудно найти связанный с ним тер в базе данных Berkeley DB. Конечный результат выглядит так:

Проблема на машине buggypeak может быть связана с принтером hiroshige.

инф°Рмация ° М°ДУЛЯХ из этой главы Потратив время на изучение структуры своего окружения, вы найдете разные способы получать больше пользы от почты, доставленной в службу поддержки. Приведенные в этом разделе примеры невелики и созданы для того, чтобы заставить вас задуматься о возможностях.

Как еще могут помочь программы, читающие почту (возможно, это почта, отправленная другими программами)? Perl предоставляет мно го способов проанализировать почту, рассмотреть ее в широком кон тексте и затем использовать найденную информацию.

Информация о модулях из этой главы Идентификатор Модуль Версия на CPAN CNANDOR Mac::Glue 0. Win32 : : OLE (входит в состав ActiveState Perl) JDB 1. GBARR Mail : : Mailer (можно найти в MailTools) 1. T e x t : : W r a p (можно найти в Text-Tabs+Wrap, MUIR 98. также распространяется с Perl) 10: : Socket (можно найти в 10, кроме того, рас- GBARR 1. пространяется с Perl) Mail : : Internet (можно найти в MailTools) GBARR 1. Mail : : Header (можно найти в MailTools) GBARR 1. Mail: : Folder: :Mbox (можно найти в Mail: : Folder) KJOHNSON 0. Socket (распространяется с Perl) BerkeleyDB PMQS 0. Net: :Telnet JROGERS 3. OB_File (распространяется с Perl) PMQS 1. Рекомендуемая дополнительная литература «Advanced Perl Programming», Sriram Srinivasan (O'Reilly, 1997)- в книге есть хороший раздел о программировании серверов.

«Effective Perl Programming», Joseph Hall, Randal Schwartz (Addison Wesley, 1998) - полезная книга, в которой можно найти множество идиом Perl.

http://www.cauce.org/ - сайт от Coalition Against Unsolicited Email (ко алиция против непрошеной почты). Существует много сайтов, по священных борьбе со спамом;

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

340 Глава 8. Электронная лсх, http://www.eudora.com/developers/scripting.html - содержит цию по Eudora и ссылки на другие источники по AppleScri.pt.

http://www.microsoft.com и http://msdn.microsoft.com - содержат и формацию по «MAPI», «active messaging» и «CDO». Названия это" технологии уже менялись дважды, так что я не решаюсь привест точную ссылку. На сайтах Microsoft содержится масса полезной информации (особенно в разделе про библиотеки MSDN) по этим те мам, но она постоянно перемещается с места на место.

«Perl Cookbook», Tom Christiansen, Nathan Torkington (O'Reilly, 199g) В этой книге также рассматриваются вопросы программирования серверов.

«RFC821.-Simple Mail Transfer Protocol», J. Postel, 1982.

«RFC822:Standard for the format of ARPA Internet text messages», D. Crocker, 1982.

«RFC954:NICNAME/WHOIS», K. Harrenstien, M. Stahl, E. Feinler, 1985.

• Текстовые журналы • Двоичные журналы • Данные с состоянием и без • Проблемы с пространством на диске • Анализ журналов • Информация о модулях из этой главы • Рекомендуемая дополнительная информация Журналы Если бы эта книга не была посвящена системному администрирова нию, то было бы странно уделять файлам журналов целую главу. Но у системных администраторов особые отношения с журналами. Как доктор Дулитл, который мог говорить с животными, системные адми нистраторы должны уметь общаться с огромным «зоопарком» про граммного и аппаратного обеспечения. Большая часть этого общения проходит через журналы, так что необходимо быть «лингвистом», раз бирающимся в журналах. В этом очень сильно может помочь Perl.

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

Текстовые журналы Журналы бывают разных типов, следовательно, нам нужно использо вать различные подходы к их обработке. Самые распространенные журналы - полностью состоящие из строк текста. Популярные сервер ные пакеты, такие как Apache (веб), INN (новости Usenet) и Sendmail (электронная почта) записывают в журналы огромное количество текста. Большая часть журналов на Unix-машинах выглядит одинако во, потому что все они создаются одной и той же программой, извест ной под именем syslog. Файлы, созданные syslog, можно считать обыч ными текстовыми файлами.

Вот простая программа на Perl, ищущая слово «error» в текстовом файле журнала:

342 Глава 9. ЖурнаЛь, ' open(LOG,"logfile") or die "Невозможно открыть журнал:$!\п";

while(){ print if /\berror\b/i;

} close(LOG);

Тем, кто хорошо знает Perl, вероятно не терпится сократить ее до од.

ной строки. Пожалуйста:

perl -ne 'print if /\berror\b/i' logfile Двоичные журналы Иногда не просто писать программы, имеющие дело с журналами.

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

Рассмотрим несколько подходов к работе с такими файлами. Ниже приведены два различных примера двоичных журналов: файл wtmp в Unix и журналы событий NT/2000.

В главе 3 «Учетные записи пользователей» мы упоминали о регистра ции пользователей для работы на машине с Unix. В большинстве Unix систем регистрация в системе и завершение работы с ней регистриру ются в файле wtmp. Если нужно узнать о «привычках» пользователя относительно регистрации (например, на какой машине он обычно ре гистрируется?), то необходимо обратиться к этому файлу.

В NT/2000 журналы событий играют более обобщенную роль. Они ис пользуются для регистрации практически всех событий, происходя щих на машине, включая регистрацию работы пользователей, сообще ния операционной системы, события системы безопасности и т. д. Их роль аналогична роли службы syslog в Unix.

Использование unpackQ В Perl существует функция u n p a c k ( ), специально созданная для анали за двоичных данных и структур. Давайте посмотрим, как ее можно ис пользовать для работы с файлами wtmp. Формат wtmp отличается в различных системах Unix. В следующем примере мы будем иметь дел° с файлами wtmp из SunOS 4.1.4 и Digital Unix 4.0, поскольку они Д°с' таточно просты. Вот как выглядит текстовое представление первЫ трех записей в файле wtmp из SunOS 4.1.4:

0000000 ~ \0 \0 \0 \0 \0 \0 \0 г е b о о t \0 \ 0000020 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \ /;

4console\Oroot 0000040, 0000060 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \ двоичные журналы 0000100 \0 \0 \0 \0, / ;

203 с о n s о 1 е \ 0000120 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \ 0000140 \0 \0 \0 \0 \0 \0 \0 \0, / < Если вы еще не знакомы со структурой этого файла, подобный «ASCII дамп» (так он называется) данных выглядит как некий полуслучай ный мусор. Как же нам разобраться со структурой этого файла?

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

достаточно разоб раться с частью, определяющей формат файла.

Все программы операционной системы, читающие и пишущие в файл wtmp, берут определение файла из одного коротенького включаемого файла С, который скорее всего расположен в /usr/'include/utmp.h. Ин тересующая нас часть файла начинается с определения структуры данных С, которая будет использоваться для хранения информации.

Если мы поищем struct utmp {, то найдем нужную нам часть. Строки, следующие за struct utmp {, определяют каждое поле этой структуры.

Каждая из этих строк сопровождается комментарием в стиле /* text */.

Чтобы почувствовать, насколько могут отличаться две различные вер сии wtmp, сравним отрывки из utmp.h для двух операционных систем:

SunOS 4.1.4:

struct utmp { char ut_line[8];

tty name / char user id */ ut_name[8];

char ut_host[16];

host name, if remote */ long ut_time;

time on */ Digital Unix 4.0:

struct utmp { char ut_user[32];

/• User login name */ /etc/inittab id- IDENT_LEN in init */ char ut_id[14];

/ device name (console, Inxx) */ char ut_line[32];

h type of entry */ short ut_type;

/' process id */ pid_t ut_pid;

/< struct exit_status { /* Process termination status */ short e_termination;

/* Process exit status */ short e_exit;

/* The exit status of a process } ut exit;

marked as DEAD_PROCESS.

*/ time_t ut_time;

/* time entry was made */ char ut_host[64];

/* host name same as MAXHOSTNAMELEN */ 344 Глава 9. Журналы В этих файлах есть все, что требуется для написания функции unpack() которая в качестве первого аргумента принимает шаблон формата дан!

ных и с помощью этого шаблона определяет, как разобрать двоичны» (обычно) данные, переданные во втором аргументе. u n p a c k ( ) разобьет данные так, как это указано, и вернет список, каждый элемент кото рого соответствует элементу шаблона.

Давайте построим шаблон по кусочкам, принимая за основу структуру на С из файла utmp.h в SunOS. Многие буквы разрешается использо вать в шаблонах и здесь рассказывается именно о них, но вообще-то вы должны обратиться к разделу pack() из руководства perl func за подроб ными разъяснениями. Создание шаблонов - не всегда простое заня тие;

периодически компиляторы С дополняют поля структуры для то го, чтобы выровнять их по требуемой границе памяти. Команда pstruct, входящая в состав Perl, часто помогает справиться с подобны ми особенностями.

С нашим форматом данных таких сложностей не возникает. Посмот рите на анализ файла utmp.h (табл. 9.1).

Таблица 9.1. Преобразование кода на С из utmp.h в шаблон unpackf ) Код на С Шаблон unpack() Буква шаблона/повтор char ut_line[8];

Строка ASCII (дополнена пробелами) длиной 8 байт Строка ASCII (дополнена пробелами) char ut_name[8];

длиной 8 байт Строка ASCII (дополнена пробелами) char ut_host[16];

A длиной 16 байт «Длинное» целое значение со знаком long ut_time;

(может и не совпадать с размером значе ния «long» на конкретной машине) Шаблоны созданы, теперь используем их в настоящей программе:

# шаблон, который мы собираемся передать unpack() Stemplate = "А8 А8 А16 1";

ft используем pack(), чтобы определить размер (в байтах) каждой записи $recordsize = length(pack($template, О));

ft открываем файл open(WTMP,"/var/adm/wtmp") or die "Невозможно открыть wtmp:$!\n";

ft считываем его по одной записи while (read(WTMP,Srecord, $recordsize)) { # распаковываем, используя шаблон ($tty,$name,$host,$time)=unpack($template,Srecord);

ft специальным образом обрабатываем записи с двоичным нулем (см. ниже) if ($name and substr($name,0,1) ne "\0"){ print "$tty:$name:$host:", двоись' журналы scalar localtime($time), "\п";

else { print "$tty:(logout):(logout):", scalar localtime($time),"\n";

и закрываем файл close(WTMP);

Вот как выглядит вывод этой маленькой программы:

~:reboot::Mon Nov 17 15:24:30 :0:dnb::0:Mon Nov 17 15:35:08 ttyp8:user:host.mcs.anl.go:Mon Nov 17 18:09:49 ttyp6:dnb:limbo-114.ccs.ne:Mon Nov 17 19:03:44 ttyp6:(logout):(logout):Mon Nov 17 19:26:26 ttyp1:dnb:traal-22.ccs.neu:Mon Nov 17 23:47:18 ttypl:(logout):(logout):Tue Nov 18 00:39:51 Приведем пару комментариев:

• В SunOS завершение работы с терминалов определенного типа от мечается символом с кодом 0 в первой позиции, поэтому:

if (Sname and substr($name,1,1) ne "\0"){ • read() принимает в качестве третьего аргумента количество байт, которые нужно прочесть. Вместо того чтобы жестко определить размер записи как «32», мы воспользовались удобным свойством функции p a c k ( ). Если этой функции передать пустой список, то она возвращает пустую или заполненную пробелами строку размером, совпадающим с размером записи. Это позволяет передать функции pack() произвольный шаблон и узнать ее размер:

Srecordsize = length(pack($template,()));

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

dnb ttyp6 traal-22.ccs.neu Mon Nov 17 23:47 - 00:39 (00:52) drib ttyp! traal-22. ccs. neu Mon Nov 17 23:47 - 00:39 (00:52) dnb ttyp6 limbo-114.ccs.ne Mon Nov 17 19:03 - 19:26 (00:22) user ttypS host.ncs.anl.go Mon Nov 17 18:09 - crash (27+11:50) dnb :0 :0 Mon Nov 17 15:35 - 17:35 (4+02:00) reboot " Mon Nov 17 15: 346 Глава 9. Журналы Мы свободно можем вызывать программы, такие как last из Perl. Эт программа выводит все уникальные имена пользователей, найденные в текущем файле wimp:

и местоположение команды last Slastexec = "/usr/ucb/last";

open(LAST,"Slastexecl") or die "Невозможно запустить $lastexec:$l\n";

while(){ $user = (split)[0];

print "$user"."\n" unless exists $seen{$user};

$seen{$user}='';

} close(LAST) or die "Невозможно правильно закрыть канал:$!\п";

Так зачем же применять этот метод, если unpack() делает все, что нам нужно? Из-за переносимости. Мы уже продемонстрировали, что фор мат файла wtmp ъ различных операционных системах отличается. Ко всему прочему, производитель может изменить формат wtmp, а это приведет к тому, что шаблоном unpack() в его существующем виде нельзя будет пользоваться.

Но вы можете рассчитывать на то, что команда last, читающая дан ный формат, будет присутствовать на вашей системе, независимо от каких-либо изменений формата. В случае применения метода unpackQ придется создать и поддерживать различные строки шаблонов для каждого формата файла wtmp, который планируется использовать. Самый большой недостаток такого метода по сравнению с unpack() это увеличение сложности анализа полей, выполняемого в программе.

В случае с unpack() все необходимые поля извлекаются автоматически.

При использовании last можно столкнуться с данными, которые слож но разобрать при помощи split () или регулярных выражений:

user console Wed Oct 14 20:35 - 20:37 (00:01) user pts/12 208.243.191.21 Wed Oct 14 09:19 - 18:12 (08:53) user pts/17 208.243.191.21 Tue Oct 13 13:36 - 17:09 (03:33) reboot system boot Tue Oct 6 14: На первый взгляд, не легко разобраться с полями, но любая програм ма, анализирующая подобный вывод, должна уметь правильно обра" батывать пропуски в первой и четвертой строках. Можно по-прежнеМУ использовать unpack(), чтобы разделить эти данные, так как поля в нем имеют фиксированную ширину, но это не всегда возможно.

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

348 Глава 9. Журналы %type = (1 => "ERROR", 2 => "WARNING", 4 => "INFORMATION", 8 => "AUDIT_SUCCESS", 16 => "AUDIT_FAILURE");

# если это значение установлено, мы также получаем полный текст и каждого сообщения при каждом вызове Read() $Win32: :EventLog: :GetMessageText = 1;

# открываем журнал событий System $log = new Win32: :Eventl_og( "System") or die "Невозможно открыть системный журнал :$"Е\п";

ft читаем его по одной записи, начиная с первой while ($log->Read((EVENTLOG_SEQUENTIAL_READ|EVENTLOG_FORWARDS_READ), 1,$entry)){ print scalar localtime($entry->{TimeGenerated}). " ";

print $entry->{Computer}."[". ($entry->{EventID} & Oxffff)."] ";

print $entry->{Source}. " : ". $type{$entry->{EventType} } ;

print $entry->{Message};

В NT/2000 существуют также утилиты, работающие из командной строки, такие как tost, выводящие события из журнала в текстовом виде. Позже мы посмотрим на эти утилиты в действии.

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

Вот отрывок журнала веб-сервера Apache. В каждой строке представ лен запрос к веб-серверу:

esnet-118.dynamic.rpi.edu - - [13/Dec/1998:00:04:20 -0500] "GET home/u1/tux/ tuxedo05.gif HTTP/1.0" 200 18666 ppp-206-170-3-49.okld03.pacbell.net - - [13/Dec/ 1998:00:04:21 -0500] "GET home/u2/news.htm HTTP/1.0" 200 6748 ts007d39.ftl-fl.concentric.net - - [13/Dec/1998:00:04:22 0500] "GET home/u1/bgc.jpg HTTP/1.1" 304 А вот несколько строк из журнала демона принтера:

Аид 14 12:58:46 warhol printer: cover/door open ibie с состоянием и без Аид 14 12:58:58 warhol printer: error cleared 14 17:16:26 warhol printer: offline or intervention needed Аид 14 17:16:43 warhol printer: error cleared Аид 15 20:40:45 warhol printer: paper out Аид Аид 15 20:40:48 warhol printer: error cleared В обоих случаях каждая строка из журнала не зависит от других строк журнала. Можно найти шаблоны или сгруппировать вместе строки, собирая статистику, но в этих данных нет ничего, что связывало бы между собой записи из журнала.

Теперь давайте рассмотрим несколько подправленных записей из журнала sendmail:

Dec 13 05:28:27 mailhub sendmail[26690]: FAA26690:

from=, size=643, class=0, pri=30643, nrcpts=1, msgid=<199812131032.CAA22824@has.a.godcomplex.com>, proto=ESMTP, relay=user@has.a.godcomplex.com [216.32.32.176] Dec 13 05:29:13 mailhub sendmail[26695]: FAA26695:

from=, size=9600, class=0, pri=39600, nrcpts=1, msgid=<199812131029.FAA15005@host.ccs.neu.edu>, proto=ESMTP, relay=root@host.ccs.neu.edu [129.10.116. 69] Dec 13 05:29:15 mailhub sendmail[26691]: FAA26690: to=, delay=00:00:02, xdelay=00:00:01, mailer=local, stat=Sent Dec 13 05:29:19 mailhub sendmail[26696]: FAA26695: to="|IFS=' '&&exec /usr/ bin/procmail -f-||exit 75 tfuser", ctladdr=user (6603/104), delay=00:00:06, xdelay=00:00:06, mailer=prog, stat=Sent В отличие от предыдущих примеров, на этот раз между строчками файла существует определенная связь, которая наглядно показана на рис. 9.2.

"Dec 13 05:28:27 mailhub sendmail[26690]: РАА26690:

from=, size=643, class=0, pri=30643, nrcpts=l, msgid=, proto=ESMTP, relay=user@has.a.godcomplex.com [216.32.32.176] ••Dec 13 05:29:13 mailhub sendmail [26695] : PAA26695:

from=, size=9600, class=0,pri= nrcpts=l,msgid=<199812131092.FAA15005@host.ccs.neu.edu>, proto=ESMTP, relay=root8host.ccs.neu.edu [129.10.116.69] «•Dec 13 05:29:15 mailhub sendmail [26691] : FAA26690:

to=, delay=00:00:02, xdelay=00:00:01, mailer=local, stat=Sent ••Dec 13 05:29:29 mailhub sendmail [26696] : FAA26695: to="IIFS=' '&&exec /usr/bin/procmail -f-llexit 75 #user", ctladdr=user pri=30643, nrcpts=l, (6603/104), delay=00:00:06, xdelay=00:00:06, mailer=prog, sCat=Sent э ис. 9.2. Связанные записи из журнала sendmail 350 Глава 9. Журналы Каждая строка имеет как минимум одну парную запись, в которой указаны источник и получатель каждого сообщения. Когда сообщение попадает в систему, ему присваивается уникальный идентификатор выделенный на рисунке жирным шрифтом, нужный для «опознания» этого сообщения. Идентификатор сообщения позволяет нам связать соответствующие строки из журнала, определяя существование или «состояние» сообщения между записями в журнале.

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

В более сложных журналах могут существовать и другие особенности.

Вот выдержки из журнала почтового сервера, находящегося в режиме отладки. Имена и IP-адреса изменены во избежание недоразумений:

Jan 14 15:53:45 mailhub popper[20243]: Debugging turned on Jan 14 15:53:45 mailhub popper[20243]: (v2.53) Servicing request from "client" at 129.X.X.X Jan 14 15:53:45 mailhub popper[20243]: +OK QPOP (version 2.53) at mailhub starting.

Jan 14 15:53:45 mailhub popper[20243]: Received: "USER username" Jan 14 15:53:45 mailhub popper[20243]: +OK Password required for username.

Jan 14 15:53:45 mailhub popper[20243]: Received: "pass xxxxxxxxx" Jan 14 15:53:45 mailhub popper[20243]: +OK username has 1 message ( octets).

Jan 14 15:53:46 mailhub popper[20243]: Received: "LIST" Jan 14 15:53:46 mailhub popper[20243]: +OK 1 messages (26627 octets) Jan 14 15:53:46 mailhub popper[20243]: Received: "RETR 1" Jan 14 15:53:46 mailhub popper[20243]: +OK 26627 octets Jan 14 15:53:56 mailhub popper[20243]: Received: "DELE 1" Jan 14 15:53:56 mailhub popper[20243]: Deleting message 1 at offset 0 of length Jan 14 15:53:56 mailhub popper[20243]: +OK Message 1 has been deleted.

Jan 14 15:53:56 mailhub popper[20243]: Received: "QUIT" Jan 14 15:53:56 mailhub popper[20243]: +OK Pop server at mailhub signing off Jan 14 15:53:56 mailhub popper[20243]: (v2.53) Ending request from "user" at (client) 129.X.X.X Можно увидеть не только установление соединения («Servicing reQ' uest from...») и рассоединения («Ending request from...»), но и подроо" ную информацию о том, что происходило в промежутке.

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

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

Проблемы с пространством на диске Недостаток программ, ведущих полезные и подробные журналы, за ключается в том, что для хранения этих данных нужно место на дис ке. Это касается всех трех операционных систем, рассмотренных в данной книге: Unix, MacOS и Windows NT/2000. Среди них, вероятно, в NT/2000 это вызывает меньше всего проблем, потому что централь ный механизм ведения журналов имеет встроенную поддержку авто матического отсечения. В MacOS центрального механизма ведения журналов нет, зато можно запустить несколько серверов, которые с удовольствием выведут в журналы достаточно данных, чтобы запол нить пространство на диске, дай им только такую возможность.

Обычно задача поддержания приемлемого размера для журналов ло жится на плечи системного администратора. Большинство производи телей Unix предоставляют некий механизм управления размерами журналов вместе с операционной системой, но он часто обслуживает только определенный набор журналов на машине. Как только на ма шине появляется новая служба, ведущая свой отдельный журнал, воз никает необходимость подправить (или даже отбросить) использу емый механизм.

Ротация журналов Распространенное решение проблемы с дисковым пространством - ро тация журналов. (Необычное решение мы рассмотрим позже в этом разделе). По истечении определенного времени или после того, как бу дет достигнут определенный размер файла, текущий журнал будет пе реименован, например, в logfile.O. Последующая запись будет произво диться в пустой файл. В следующий раз процесс повторяется, но сперва резервный файл (logfile.O) переименовывается (например в logfile.J).

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

Этот метод позволяет отвести под журналы приемлемое конечное дис ковое пространство. Обратите внимание на способ ротации журналов и функции Perl, необходимые для выполнения каждого шага (табл. 9.2).

352 Глава 9. Журналы logfile logfile.

ротащ logfile logfile.0 logfile. РОТ81КЙП V logfile. 0 logfile^ logfile. logfile УДАЛЕНИЕ!

logfile. 0 logfile^ logfile. 2 logfile.Z logfile |ро poraawra |ротии*,„ | logfile. 0 logfile. 1 logfile. 2 logfile.Z logfile. n logfile Puc. 9.3. Наглядное представление ротации журналов. Таблица 9.2. Способ ротации журналов из Perl t Perl Процесс Переименуйте старые журналы, renameO или &File: :Copy: :move() если пере присвоив им следующий номер. носить файлы с одной файловой системы на другую.

k i l l ( ) для программ, принимающих сиг Если необходимо, сообщите про налы, system() или ' (обратные кавычки), цессу, создающему файл журна если необходимо вызвать для этого другую ла, о необходимости закрыть те кущий файл и приостановить за- программу.

пись до тех пор, пока она не будет разрешена.

Скопируйте или переместите & F i l e : : Copy для копирования, renameO, что файлы журналов, которые сейчас бы переименовать (или &File: :Copy: :move() использовались, в другой файл. при перемещении с одной файловой систе мы на другую).

Если необходимо, урежьте теку- truncate() или open (FILE, "> filename").

щий файл журнала.

Если необходимо, пошлите сиг- Шаг 2 из этой таблицы.

нал процессу о необходимости приостановить запись в журнал.

с При желании сожмите или обра- system () или обратные кавычки для заПУ ка программы сжатия или другого прог ботайте скопированный файл.

раммного кода, выполняющего обработку а копии stat(), чтобы выяснить размер файла и Д Удалите самые старые ты, u n l i n k ( ) для удаления файлов.

файлов.

Проблемы с пространством на диске На эту тему существует много вариаций. Все, кому не лень, писали собственные сценарии для ротации журналов. Так что не удивитель но, что такой модуль существует. Рассмотрим модуль Logfile:: Rotate Пола Гэмпа (Paul Gampe).

L o g f i l e : : Rotate использует объектно-ориентированный подход для соз дания нового экземпляра объекта для журнала и для выполнения ме тодов этого экземпляра. Сначала мы создаем новый экземпляр с задан ными параметрами (табл. 9.3).

Таблица 9.3. Параметры Logfile::Rotate Параметр Назначение Имя файла журнала для ротации File Count (необязательный, по умолча- Число хранимых копий файлов нию: 7) Gzip (необязательный, по умолчанию: Полный путь к программе сжатия gzip путь, найденный при сборке Perl) Signal Код, выполняемый после завершения ротации, как в шаге 5 (табл. 9.2) Вот небольшой пример программы, в которой используются эти пара метры:

use Logfile::Rotate;

Slogfile = new Logfile::Rotate( File => "/var/adm/log/syslog", Count => 5, Gzip => "/usr/local/bin/gzip", Signal => sub { open PID, "/etc/syslog.pid" or die "Невозможно открыть р!й-файл:$!\п";

chomp($pid = );

close PID;

# сначала надо проверить допустимость kill 'HUP', $pid;

В результате выполнения этого фрагмента программы указанный журнал будет заблокирован и будет подготовлен модуль для ротации данного журнала. После того как этот объект создан, сама ротация журнала не представляет никакого труда:

$logfile->rotate();

undef $logfile;

354 Глава 9. Журналы Строка undef нужна для того, чтобы убедиться, что файл журнала бу дет разблокирован после ротации (он заблокирован до тех пор, пока существует объект журнала).

Как говорится в документации, если с модулем работает привилегиро ванный пользователь (например, пользователь root), необходимо кое что учитывать. Во-первых, Logf lie:: Rotate прибегает к системному вы зову для запуска программы gzip, что является потенциальной дырой в безопасности. Во-вторых, подпрограмма Signal должна быть реали зована «оборонительным» способом. В предыдущем примере мы не проверяли, что идентификатор процесса, полученный из /etc/sys log.pid, действительно является идентификатором процесса для syslog.

Лучше было бы использовать таблицу процессов, о чем мы говорили в главе 4 «Действия пользователей», перед тем как посылать сигнал че рез kill(). Более подробно советы по «защищенному» программирова нию приведены в главе 1 «Введение».

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

Вот обычный сценарий: выполняется отладка сервера, который выво дит целый поток данных в журнал. Нас интересует только малая часть всех этих данных, вероятно, только те строки, которые выводятся сер вером после выполнения определенных тестов на определенном кли енте. Если сохранять в журнале весь вывод, как обычно, это быстро за полнит жесткий диск. Ротация журналов с нужной частотой при та ком количестве выводимых данных замедлит работу сервера. Что же делать?

Я написал программу bigbuffy для решения этой головоломки, приме нив совершенно незамысловатый подход, bigbuffy считывает построч но поступающие на вход данные. Эти строки сохраняются в кольцевом буфере определенного размера. Когда буфер заполняется, он начинает вновь заполняться с вершины. Этот процесс чтения-записи продолжа ется до тех пор, пока bigbuffy не получит сигнал от пользователя. По лучив сигнал, программа сбрасывает текущее содержимое буфера в файл и возвращается в свой нормальный цикл. На диске же остается лишь «окошко» в потоке данных из журнала, в котором показаны только те данные, которые нужны.

bigbuffy можно использовать в паре с программой наблюдения за службой (подобной тем, которые можно найти в главе 5 «Службы име TCP/IP»). Как только наблюдающая программа (монитор) замечав проблему, она может послать сигнал bigbuffy сбросить содержимое 6У фера на диск. Теперь у нас есть выдержка из журнала, относящая Проблемы с пространством на диске как раз к нужной проблеме (считаем, что буфер достаточно велик и мо нитор вовремя ее заметил).

Вот упрощенная версия bigbuffy. Этот код длиннее примеров из преды дущей главы, но он не очень сложный. Мы будем его использовать в качестве трамплина для разрешения некоторых важных вопросов, та ких как блокировка ввода и безопасность:

Sbuffsize = 200;

ft размер кольцевого буфера по умолчанию (в строчках) use Getopt::Long;

# анализируем параметры GetOptions("buffsize=i" => \$buffsize, "dumpfile=s" => \$dumpfile);

# устанавливаем обработчик сигнала и инициализируем счетчик &setup;

# простой цикл прочитать строку - сохранить строку while (<>){ П помещаем строку в структуру данных. Заметьте, мы делаем # это сначала, даже если получаем сигнал. Лучше записать it лишнюю строчку, чем потерять строку данных, если в П процессе сброса данных что-то пойдет не так.

$buffer[$whatline] = $_;

# куда деть следующую строку?

($whatline %= $buffsize)++;

it если получаем сигнал, сбрасываем текущий буфер if (Sdumpnow) { &dodump();

sub setup { die "ИСПОЛЬЗОВАНИЕ: $0 [--buffsize=] —dumpfile=" unless (length($dumpfile));

$SIG{'USR1'} = \&dumpnow;

tt устанавливаем обработчик сигнала Swhatline = 1;

tt начальная строка кольцевого буфера tt простой обработчик сигнала, который просто устанавливает флаг tt исключения, см. perlipc(1) sub dumpnow { Sdumpnow = 1;

# сбрасываем кольцевой буфер в файл, дописывая его, если он уже # существует sub dodump{ my($line);

n счетчик строк 356 Глава 9. Журналы my($exists);

# флаг, существует ли уже файл?

my(§firststat,(9>secondstat);

# для хранения вывода Istats Sdumpnow = 0;

tt сбрасываем флаг и обработчик сигнала $SIG{'USR1'} = \&durnpnow;

if (-e Sdumpfile and (! -f $dumpfile or -1 $dumpfile)) { warn "ПРЕДУПРЕЖДЕНИЕ: файл для сброса данных существует и не является обычным текстовым файлом, пропускаем сброс данных. \п";

return undef;

и необходимо принять специальные меры предосторожности при и дописывании. Следующий набор операторов "if" выполняет # несколько проверок при открытии файла для дописывания if (-e Sdumpfile) { Sexists = 1;

unless(@firststat = Istat Sdumpfile) { warn "Невозможно выяснить состояние Sdumpfile, пропускаем сброс данных. \n";

return undef;

} if ($firststat[3] != 1) { warn "Sdumpfile - жесткая ссылка, пропускаем сброс данных. \n" return undef;

unless (open(DUMPFILE, "»$dumpfile")){ warn "Невозможно открыть Sdumpfile для дописывания, пропускаем сброс данных. \п";

return undef;

} if (Sexists) { unless (@secondstat = Istat DUMPFILE){ warn "Невозможно выяснить состояние открытого файла Sdumpfile, пропускаем сброс данных. \п";

return undef;

} if ($firststat[0] != $secondstat[0] or # проверяем номер устройства $firststat[1] != $secondstat[1] or » проверяем inode $firststat[7] != $secondstat[7]) 8 проверяем размеры { warn "ПРОБЛЕМА БЕЗОПАСНОСТИ: Istats не совпадают, пропускаем сброс данных. \п";

return undef;

Sline = Swhatline;

print DUMPFILE "-". scalar(localtime). f-"x50). "\n";

do { (Проблемы с пространством на диске № если буфер не полный last unless (defined $buffer[$line]);

print DUMPFILE $buffer[$line];

$line = ($line == $buffsize) ? 1 : $line+1;

} while ($line != $whatline);

close(DUMPFILE);

ft проталкиваем активный буфер, чтобы не повторять данные # при последующем сбросе их в файл Swhatline = 1;

Sbuffer = ();

return 1;

Подобная программа может найти несколько интересных применений.

Блокировка ввода в программах обработки журналов Я уже говорил, что это упрощенная версия программы bigbuffy. С уп рощением реализации, в особенности на различных платформах, свя зана неприятная особенность этой версии: во время сброса данных на диск она не может продолжать считывать ввод. Во время сброса буфе ра программе, посылающей свой вывод bigbuffy, операционная систе ма может дать указание приостановить операции, пока не будет очи щен ее буфер вывода. К счастью, сброс данных происходит быстро и окно, в котором это может произойти, будет очень маленьким, но это все равно неприятно.

Вот два возможных решения этой проблемы:

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

• Переписать bigbuffy, чтобы разделить чтение и запись при сбросе данных в файл. Самая простая версия этого подхода предполагает, что несколько строк записываются в файл каждый раз после про чтения новой строки. Это может оказаться не простым делом, если журнал «разорван» и не поступает постоянным потоком. Вряд ли кому-то захочется ждать новую строку вывода для того, чтобы мож но было сбросить буфер на диск. Так что придется использовать тайм-ауты или некий механизм внутренних часов, чтобы справить ся с этой проблемой.

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

358 Глава 9. Журналы Безопаснось в программах, обрабатывающих журналы Вы могли заметить, что в bigbuffy операциям открытия файлов выводя и записи в них уделяется внимания больше, чем обычно. Это примеп защищенного (оборонительного) стиля программирования, о котором упоминалось уже в разделе «Ротация журналов». Если эта программа предназначена для отладки сервера, почти наверняка она будет запу щена привилегированным пользователем. Очень важно продумать все ситуации, которые могут привести к тому, что программой кто-то зло употребит.

Например, представьте ситуацию, когда файл, в который выводятся данные, был злонамеренно заменен ссылкой на другой файл. Если на ивно открыть и записать данные в этот файл, можно обнаружить, что мы перезаписали какой-нибудь важный файл, например /etc/passwd.

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

• Мы проверяем, существует ли файл, в который выводятся данные.

Если да, мы выполняем lstat(), чтобы получить о нем информацию.

• Открываем файл в режиме дозаписи.

• Перед тем как собственно записать в него данные, мы выполняем lstat() для открытого файлового дескриптора и проверяем, тот же это файл, что мы ожидаем, или нет. Если это другой файл (т.е. кто то заменил его ссылкой прямо перед открытием), мы не записываем в него данные и выводим соответствующее предупреждение. Этот шаг позволяет избежать состояния перехвата, о котором говори лось в главе 1.

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

Подобные «уловки» необходимы в большинстве Unix-систем, посколь ку первоначально Unix создавался без особой заботы о безопасности.

Брешь в безопасности, связанная с символическими ссылками, не яв ляется проблемой в NT4, т. к. они являются малоиспользуемой частью подсистемы POSIX, не проблема это и в MacOS, поскольку тут не сТ шествует понятия «привилегированный пользователь». Справедливости ради отметим, что и в NT, и в MacOS существуют собствен ные слабости в системе защиты. Кроме того, очень много усилий и времени было потрачено на то, чтобы «укрепить» различные дистрибутивы (например, OpenBSD).

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

Мы рассмотрим несколько подходов, которые можно использовать для анализа журналов из Perl, начиная от самого простого и постепен но продвигаясь к более сложному.

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

Чтение-подсчет потока Самый простой подход - обычное «считывание и подсчет». Мы читаем поток данных из журнала, ищем интересующие нас данные и увеличи ваем значение счетчика, когда их находим. Вот простой пример, под считывающий, сколько раз перегружалась машина, в котором исполь зован файл wtmpx из Solaris 2.б: # шаблон для wtmpx из Solaris 2.6, подробности смотрите в П документации по pack() Stemplate = "А32 А4 А32 1 s s2 x2 12 1 x20 s A257 x";

# определяем размер записи $recordsize = length(pack($template,()));

П открываем файл open(WTMP,"/var/adm/wtmpx") or die "Невозможно открыть wtmpx:$!\n";

# считываем по одной записи while (read(WTMP,$record,$recordsize)) { ($ut_user,$ut_id,$ut_line,$ut_pid,$ut_type,$ut_e_termination, $ut_e_exit,$tv_sec,$tv_usec,$ut_session,$ut_syslen, $ut_host)= unpack($template,$record);

if ($ut_line eq "system boot"){ print "rebooted ".scalar localtime($tv_sec)."\n";

$reboots++;

wtmpx - это файл, использующий расширенную версию формата u/wtmp.

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

360 ^ Глава 9. ЖурналЬ| ' close(WTMP);

print "Общее число перезагрузок: $reboots\n";

Расширим этот подход и рассмотрим пример сбора статистики при по мощи Event Log из Windows NT. Как говорилось раньше, механизм ве дения журналов в NT хорошо разработан и довольно сложен. Эта сложность несколько пугает начинающих программистов на Perl. Для получения основной информации из журналов мы будем использовать некоторые подпрограммы из модулей для Win32.

Программы в NT и компоненты операционной системы записывают свои действия, регистрируя «события» в одном из журналов событий.

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

В отличие от Unix, само описание события, т. е. сообщение, не хранит ся вместе с записью о событии. Вместо этого в журнал помещается идентификатор EventlD. Этот идентификатор содержит ссылку на оп ределенное сообщение, хранящееся в библиотеке (.dll). Получить сооб щение по идентификатору не просто. Этот процесс требует поиска нужной библиотеки в реестре и ее загрузки вручную. К счастью, этот процесс в текущей версии модуля Win32:: EventLog выполняется автома тически (ищите $Win32:: EventLog:: GetMessageText в первом примере с ис пользованием Win32:: Eventlog).

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

Первый наш шаг - загрузить модуль Win32:: EventLog, обеспечивающий связь между Perl и программами для работы с журналами событий в Win32. Затем мы инициализируем хэш-таблицу, которая будет ис пользоваться для хранения результатов вызовов программ чтения журналов. Обычно Perl заботится об этом за нас, но иногда стоит доба вить подобный код ради тех, кто будет впоследствии читать програм му. Наконец, мы определяем небольшой список типов событий, кото рый позже будет использоваться для печати статистики:

use Win32::EventLog;

my %event=('Length',NULL, 'RecordNumber',NULL, 'TimeGenerated', NULL, 'TimeWritten',NULL, днализ журналов 'EventlD'.NULL, 'EventType',NULL, 'Category',NULL, 'ClosingRecordNumber',NULL, 'Source',NULL, 'Computer',NULL, 'Strings',NULL, 'Data',NULL,);

# частичный список типов событий, то есть тип 1 -- "Error", П 2 -- "Warning" и т. д.

@types = ("","Error","Warning","","Information");

Наш следующий шаг - открытие журнала событий System. Open() по мещает дескриптор EventLog в $EventLog, который можно использо вать для соединения с этим журналом:

Win32::EventLog;

:Open($EventLog,'System','') or die "Невозможно открыть журнал System:$~E\n";

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

$EventLog->Win32:;

EventLog;

:GetNumber($numevents);

$EventLog->Win32::EventLog::Get01dest($oldestevent);

Эта информация указывается в первом операторе Read(), позициониру ющем нас прямо перед первой записью. Это эквивалентно переходу в начало файла при помощи функции seek():

$EventLog->Win32::EventLog;

:Read((EVENTLOG_SEEK_READ EVENTLOG_FORWARDS_READ), Snumevents + Soldestevent, Sevent);

Теперь в простом цикле прочитываем все записи. Флаг EVENTLOG_SEQ UENTIAL_READ говорит: «Продолжайте читать с позиции после последней прочитанной записи». Флаг EVENTLOG_FORWARDS_READ перемещает нас вперед в хронологическом порядке. Третий аргумент Read() — смеще ние, в данном случае равное 0, потому что мы продолжаем с той же по зиции, на которой остановились. Считывая каждую запись, мы запи сываем в хэш-таблицу счетчиков ее источник (Source) и тип события (EventType).

# обходим в цикле все события, записывая количество различных tf источников (Source) и типов событий (EventTypes) for ($i=0;

$i<$numevents;

$i++) { Вот еще один пример, когда программы для работы с журналом событий в Win32 гибче, чем обычно. Наша программа может дойти до конца журна ла и затем читать журнал в обратном порядке, если это по какой-то причи не необходимо.

362 _ Глава 9. Журналы $EventLog->Read((EVENTLOG_SEQUENTIAL_READ | EVENTLOG_FORWARDS_READ), О, $event);

$source{$event->{Source}}++;

$types{$event->{EventType}}++;

П выводим полученные результаты print "-->Event Log Source Totals:\n";

for (sort keys %source) { print "$_: $source{$_}\n";

} print "-"x30, "\n";

print "-->Event Log Type Totals:\n";

for (sort keys %types) { print "$types[$_]: $types{$_}\n";

} print "-"x30, "\n";

print "Total number of events: $numevents\n" Мои результаты выглядят так:

--> Event Log Source Totals:

Application Popup: BROWSER: DCOM: Dhcp: EventLog: Mouclass: «Workstation: Print: Rdr: RemoteAccess: SNMP: Serial: Service Control Manager: Sparrow: Srv: msbusmou: msi8042: msinport: mssermou: qic117: --> Event Log Type Totals:

Error: Warning: Information: Total number of events: Как я и обещал, вот пример кода, полагающегося на Zasi-подобнУ* программу для вывода содержимого журнала событий. В нем использУ днализ журналов ется программа ЕШитр Джеспера Лоритсена (Jesper Lauritsen), кото рую можно загрузить с http://www.ibt.ku.dk/jesper/JespersNTtools.htm.

ЕШитр похожа на DumpEl из NT Resource Kit:

Seldump = 'c:\bin\eldump';

ft путь к ElDump ft выводим поля данных, разделяя их тильдой (~), и без полного # текста сообщения (быстрее) $dumpflags = '-1 system -с " -М';

open(ELDUMP, "Seldump $dumpflags|") or die "Невозможно запустить $eldump:$!\n";

print STDERR "Считываем системный журнал.";

while(){ ($date, $time, Ssource, $type, Scategory, $event, $user, {computer) = splitC");

$$type{$source}++;

print STDERR ".";

} print STDERR "done.\n";

Close(ELDUMP);

# для каждого типа события выводим источники и количество ft событий foreach $type (qw(Error Warning Information AuditSuccess AuditFailure)){ print "-" x 65, "\n";

print uc($type)."s by source:\n";

for (sort keys %$type){ print "$_ ($$type{$_})\n";

print "-" x 65, "\n";

Вот выдержка из получаемых данных:

ERRORS by source:

BROWSER (8) Cdrom (2) DCOM (15) Dhcp (2524) Disk (1) EventLog (5) RemoteAccess (30) Serial (24) Service Control Manager (100) Sparrow (2) atapi (2) i8042prt (4) WARNINGS by source:

364 Глава 9. Журналы BROWSER (80) Cdrom (22) Dhcp (76) Print (8) Srv (82) Вариация на тему предыдущего примера Простая вариация предыдущего подхода включает в себя многократ ный обход данных. Иногда это необходимо в случае с данными боль шого объема и ситуаций, когда сначала приходится просмотреть все данные, чтобы отличить интересные данные от неинтересных. В плане реализации это означает, что после первого обхода данных надо:

• Перейти обратно к началу потока данных (который может быть файлом) при помощи seek( )или API-вызова.

или • Закрыть и вновь открыть дескриптор файла. Зачастую это единст венный выбор, когда читаются данные из вывода программы, по добной last.

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

Один из первых вопросов, который приходит на ум, - «был ли получен доступ и к другим учетным записям с той же машины?». Найти пол ный ответ на такой кажущийся простым вопрос может оказаться сложнее, чем кажется. Давайте попробуем решить эту проблему. При веденный ниже отрывок кода для SunOS принимает в качестве первого аргумента имя пользователя и необязательное регулярное выражение в качестве второго, чтобы отфильтровать узлы, которые мы хотим про игнорировать:

Stemplate = "А8 А8 А16 1";

# для SunOS 4.1.x Srecordsize = length(pack($template,()));

($user,$ignore) = @ARGV;

print "-- ищем узлы, с которых регистрировался пользователь $user --\n";

open(WTMP,"/var/adm/wtmp") or die "Невозможно открыть wtmp:$!\n";

while (read(WTMP,$record,Srecordsize)) { ( ($tty,$name,$host,$time)=unpack($template,$record);

if ($user eq $name){ next if (defined $ignore and $host =" /$ignore/o);

if (length(Shost) > 2 and !exists $contacts{$host}){ $connect = localtime($time);

$contacts{$host}=$time;

write;

диализ журналов _ print "-- ищем другие соединения с этих узлов --\п";

die "Невозможно перейти в начало wtmp:$!\n" unless (seek(WTMP,0,0));

while (read(WTMP,$record,$recordsize)) { ($tty, $name, $host, $time)=unpack($template, $record);

ft если это запись не о завершении работы с системой и нас # интересует этот узел и это соединение установлено для ft *другой* учетной записи, тогда записываем эти данные if (substr($name, 1, 1) ne "\0" and exists $contacts{$host} and $name ne $user){ Sconnect = localtime($time);

write;

close(WTMP);

ft вот формат вывода, вероятно, его потребуется скорректировать # в зависимости от шаблона format STDOUT = @«««« @««««««« $name, $host, Sconnect Сначала программа просматривает файл wtmp в поисках записей о ре гистрации в системе пользователей под «скомпрометированным» име нем. По мере нахождения таких записей пополняется хэш, в который записываются имена всех узлов, где регистрировался пользователь под этим именем. Затем программа возвращается к началу файла и просматривает его заново, выполняя на этот раз поиск записей о соеди нениях с узлов из списка, и выводит совпадения по мере их появле ния. Не составит труда изменить эту программу так, чтобы она про сматривала все файлы из каталога, в котором хранятся файлы рота ции журнала wtmp.

Единственная проблема этой программы - ее «узкая специализация».

Она будет искать только точное совпадение имен узлов. Если зло умышленник регистрировался в системе, используя динамический ад рес, получаемый от провайдера (что бывает часто), то очень велика ве роятность, что имена узлов будут отличаться при каждом соединении.

Тем не менее, даже неполные решения, подобные этому, очень сильно помогают.

Помимо простоты, у рассмотренного нами подхода есть еще преиму щества: он быстрее и требует меньших затрат памяти по сравнению с другими методами. Он лучше всего справляется с журналами, в кото рых регистрируются данные без поддержки состояния, о которых мы 366 Глава 9. Журналы говорили раньше в этой главе. Но иногда, особенно при работе с дан ными с состоянием, необходимо использовать другие методы.

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

Для начала приведем простой пример: скажем, у нас есть журнал FTP сервера и требуется узнать, какие файлы скачивались чаще других.

Вот несколько строк из журнала FTP-сервера wu-ftpd:

Sun Dec 27 05-18:57 1998 1 nic.funet.fi 11868 /net/ftp.funet.fi/CPAN/ MIRRORING.FROM a _ о a cpan@perl.org ftp 0 * Sun Dec 27 05:52:28 1998 25 kju.hc.congress.ccc.de 269273 /CPAN/doc/FAQs/FAQ/ PerlFAQ.html a _ о a mozilla® ftp 0 * Sun Dec 27 06:15:04 1998 1 rising-sun.media.mit.edu 11868 /СРАМ/ MIRRORING.FROM b _ о a root@rising-sun.media.mit. edu ftp 0 * Sun Dec 27 06:15:05 1998 1 rising-sun.media.mit.edu 35993 /CPAN/RECENT.html b оа root@rising-sun.media,mit.edu ftp 0 * А вот список полей, из которых состоят приведенные выше строки (все подробности о каждом поле ищите в страницах руководста xferlog(S) сервера wu-ftpd).

Номер поля Имя поля current-time (текущее время) О transfer-time (время передачи, в секундах) 2 remote-host (удаленный узел) filesize (размер файла) filename (имя файла) transfer-type (тип передачи) special-action-flag (специальный флаг) direction (направление) access-mode (режим доступа) username (имя пользователя) service-name (имя службы) authentication-method (меод аутентификации) authenticated-user-id (идентификатор аутентифицированяого пользователя).

Анализ журналов Вот пример программы, сообщающей о том, какие файлы передава ;

лись чаще других:

- $xferlog = "/Var/adm/log/xferlog";

open(XFERI_OG, Sxferlog) or die "Невозможно открыть $xferlog:$!\n";

while (){ $files{(split)[8]}++;

} close(XFERLOG);

for (sort {$files{$b} <=> $files{$a}||$a crop $b} keys %files){ print "$_:$files{$_}\n";

} Мы считываем каждую строку файла, используя имя файла в качестве ключа хэша, и увеличиваем значение для этого ключа. Имя файла вы деляется из каждой строки журнала при помощи индекса массива, ссылающегося на определенный элемент списка, возвращенного функцией splitQ:

$files{(split)[8]}++;

Вы могли заметить, что элемент, на который мы ссылаемся (8), отли чается от 8-го поля из списка полей xferlog, приведенного выше. Это печальные последствия того, что в оригинальном файле отсутствуют разделители полей. Мы разбиваем строки из журнала по пробелам (что является значением по умолчанию для split()), так что дата раз бивается на пять отдельных элементов списка.

В этом примере применяется искусный прием - сортировку значений выполняет анонимная функция sort:

for (sort {$files{$b} <=> $files{$a}|]$a cmp $b} keys %files){ Обратите внимание, что переменные $а и $b в первой части расположе ны не в алфавитном порядке. Это приводит к тому, что sort выводит элементы в обратном порядке, т. е. первыми отображаются самые «по пулярные» файлы. Вторая часть анонимной функции sort (| |$a cmp $b) гарантирует, что файлы с одинаковой популярностью будут перечис лены в отсортированном порядке.

Для того чтобы этот сценарий подсчитывал только некоторые файлы и каталоги, можно задать регулярное выражение в качестве первого ар гумента для сценария. Например, если добавить next unless /$ARGV[0]/o;

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

368 Глава 9. Журналы Давайте посмотрим на другой пример подхода «прочитал-запомнил» в котором используется программа «поиска брешей» из предыдущего раздела. В предыдущем примере выводилась информация только об успешной регистрации с сайтов злоумышленника. Узнать о неудав шихся попытках мы не можем. Чтобы получить такую информацию мы рассмотрим другой файл журнала.

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

Время, потраченное на получение навыков работы с регулярны ми выражениями, окупится с лихвой и не раз. Регулярные вы ражения лучше всего изучать по книге Джеффри Фридла (Jef frey Friedl) «Mastering Regular Expressions» (Волшебство регу лярных выражений) (O'Reilly).

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

Журнал, который сейчас больше всего нам пригодится, - это журнал, сгенерированный через syslog инструментом tcpwrappers, который предоставляет программы и библиотеки, позволяющие контролиро вать доступ к сетевым службам. Любую сетевую службу, например tel net, можно настроить так, чтобы все сетевые соединения для нее обра батывались сначала программой tcpwrappers. После того как соедине ние будет установлено, программа tcpwrappers регистрирует попытку соединения через syslog и затем либо передает соединение настоящей службе, либо предпринимает некоторые действия (например, разры вает соединение). Решение, разрешить ли данное соединение, основы вается на нескольких правилах, введенных пользователем (например» разрешать лишь для некоторых исходящих узлов), tcpwrappers также может принять меры предосторожности и послать запрос к DNS-серве ру, чтобы убедиться, что соединение устанавливается оттуда, откуДа Анализ журналов ожидается. Кроме того, программу можно настроить так, чтобы в жур нале регистрировалось имя пользователя, устанавливающего соедине ние (через протокол идентификации, описанный в RFC931), если это возможно. Более подробное описание tcpwrappers можно найти в кни ге Симеона Гарфинкеля (Simson Garfinkel) и Джина Спаффорда (Gene Spafford) «Practical Unix & Internet Security» (Unix в практическом использовании и межсетевая безопасность ) (O'Reilly).

Мы же просто добавим несколько строк к предыдущей программе, в ко торых просматривается журнал tcpwrappers (в данном случае tcpdlog) для поиска соединений с подозрительных узлов, найденных нами в wtmp. Если добавить этот код в конец предыдущего примера, # местоположение журнала tcpd Stcpdlog = "Д/ar/log/tcpd/tcpdlog";

Shostlen = 16;

# максимальная длина имени узла в файле wtmp print "-- просматриваем tcpdlog --\n";

open(TCPDLOG, $tcpdlog) or die "Невозможно прочитать $tcpdlog:$!\n";

while(){ next if ! /connect from /;

# нас беспокоят только соединения ($connecto,$connectf rom) = /(.+):\s+connect from\s-K.+)/;

Sconnectfrom =" s/~.+@//;

# tcpwrappers может регистрировать имя узла целиком, а не # только первые N символов, как некоторые журналы wtmp. В # результате необходимо усечь имя узла до той же длины, что # и в wtmp файле, если мы собираемся искать имя узла в хэше $cormectfrom = substr($connectf rom, 0, Shostlen);

print if (exists $contacts{$connectfrom} and $connectfrom Г /$ignore/o);

то мы получим данные, подобные этим:

-- ищем узлы, с которых регистрировался пользователь - user host. ccs. neu Fri Apr 3 13:41: -- ищем другие соединения с этих узлов - user2 host. ccs. neu Thu Oct 9 17:06: user2 host. ccs. neu Thu Oct 9 17:44: user2 host. ccs. neu Fri Oct 10 22:00: user2 host. ccs. neu Wed Oct 15 07:32: user2 host. ccs. neu Wed Oct 22 16:24: -- просматриваем tcpdlog - Jan 12 13:16:29 host2 in. rshd[866] : connect from user4@host.ccs.neu.edu Jan 13 14:38:54 hosts in. rlogind[4761] : connect from user5@host.ccs.neu.edu Jan 15 14:30:17 host4 in. ftpd[18799] : connect from user6@host.ccs.neu.edu Jan 16 19:48:19 hosts in. ftpd[5131] : connect from user7@host.ccs.neu.edu Читатели могли обратить внимание, что в приведенных выше резуль татах были замечены соединения, устанавливаемые в различное вре 370 Глава 9. Журналы мя. В файле wtmp были зарегистрированы соединения, установленные в период с 3 апреля по 22 октября, тогда как tcpwrappers показывает только январские соединения. Разница в датах говорит о том, что файлы wtmp и файлы tcpwrappers имеют различную скорость ротации.

Необходимо учитывать такие детали, если вы пишете программу, ко торая полагается на то, что файлы журналов относятся к одному и то му же периоду времени.

В качестве последнего и более сложного примера, демонстрирующего подход «прочитал-запомнил», рассмотрим задачу, требующую объеди нения данных с состоянием и без него. Для того чтобы получить более полную картину действий на сервере wu-ftpd, можно установить соот ветствие между информацией о регистрации в системе из файла wtmp и информацией о передаче файлов, записанной в файле xferlog сервера wu-ftpd. Было бы здорово увидеть, когда начался сеанс работы с FTP сервером, когда он закончился и какие файлы передавались в течение этого сеанса.

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

Thu Mar 12 18:14:30 1998-Thu Mar 12 18:14:38 1998 pitpc.ccs.neu.ed -> /home/dnb/makemod Sat Mar 14 23:28:08 1998-Sat Mar 14 23:28:56 1998 traal-22.ccs.neu <- /home/dnb/.emacs Sat Mar 14 23:14:05 1998-Sat Mar 14 23:34:28 1998 traal-22.ccs.neu <- /home/dnb/lib/emacs19/cperl-mode.el <- /home/dnb/lib/emacs19/filladapt.el Wed Mar 25 21:21:15 1998-Wed Mar 25 21:36:15 1998 traal-22.ccs.neu (no transfers in xferlog) Получить такие данные не очень просто, поскольку приходится доба вить данные без информации о состоянии в журнал данных с информа цией о состоянии. В журнале xferlog приводится только время, когда была совершена передача файла, и узел, участвующий в этой предаче.

В журнале wtmp приводится информация о соединениях и завери16' нии соединений других узлов с сервером. Давайте посмотрим, как объединить эти два типа данных при помощи подхода «прочитал-за помнил». В этой программе мы определим некоторые переменные, а затем вызовем подпрограммы для выполнения каждой задачи :

П для преобразования дата ->время-в-1)п1х (количество секунд с начала эпохи) use Time::Local;

Sxferlog = "/var/log/xferlog";

ft местоположение журнала передачи файлов Анализ журналов •-<;

$wtmp = "/var/adm/wtmp";

tt местоположение wtmp Stemplate = "A8 A8 A16 1";

ft шаблон для wtmp в SunOS 4.1. $recordsize = length(pack($template, О));

# размер каждой записи в wtmp Shostlen = 16;

# максимальная длина имени узла в wtmp Я карта соответствий имени месяца с номером %month = qw{Jan 0 Feb 1 Mar 2 Apr 3 May 4 Jun 5 Jul Aug 7 Sep 8 Oct 9 Nov 10 Dec 11};

&ScanXferlog;

# просматриваем журнал передачи файлов &ScanWtmp;

# просматриваем журнал wtmp SShowTransfers;

tt приводим в соответствие и выводим информацию о передачах Теперь рассмотрим процедуру, читающую журнал xferlog:

tt просматриваем журнал передачи файлов сервера wu-ftpd и # заполняем структуру данных %transfers sub ScanXferlog { local ($sec,$min, $hours, $mday, $mon,$year);

my($time, $rhost, Sfname, Sdirection) ;

print STDERR "Просматриваю Sxferlog... ";

open(XFERLOG,$xferlog) or die "Невозможно открыть $xferlog:$!\n";

while (){ tt используем срез массива для выбора нужных полей ($mon, $mday, $time, $year, $rhost, $fname, Sdirection) = # добавляем к имени файла направление передачи, # 1 - это передача на сервер $fname = (Sdirection eq 'i' ? "-> " : "<- "). Sfname;

# преобразуем время передачи к формату времени в Unix ($hours,$min,$sec) = splitC : ',$time);

Sunixdate = timelocal($sec, $min, $hours, $mday, $month{$mon}, $year);

tt помещаем данные в хэш списка списков:

push(@{$transfers{substr($rhost,0,$hostlen)}}, [Sunixdate, Sfname]);

} close(XFERLOG);

print STDERR "Готово. \n";

} Строка pushQ, вероятно, заслуживает объяснения. В этой строке фор мируется хэш списка списков, выглядящий примерно так:

$transfers{hostname} = ([timel, filename!], [time2, filename2], [time3, filenames]...) 372 Глава 9. Журналы Ключами хэша %transfers являются имена узлов, инициирующих пе редачи файлов. При создании каждой записи мы укорачиваем имя уз ла до максимальной длины, допустимой в wtmp.

Для каждого узла мы сохраняем список пар, состоящих из времени передачи файла и его имени. Время сохраняется в «секундах, прошед ших с начала эпохи» для упрощения дальнейшего сравнения. Под программа timelocal() из модуля Time: : Local помогает выполнить пре образование времени к этому стандарту. Поскольку мы просматрива ем журнал передачи файлов, записанный в хронологическом порядке, список пар тоже строится в хронологическом порядке, а это нам при годится позже.

Теперь перейдем к просмотру wtmp :

и просматриваем файл wtmp и заполняем структуру ©sessions ft информацией о ftp-сеансах sub ScanWtmp { my($record,$tty,$name,$host,$time,%connections);

print STOERR "Просматриваю $wtmp...\n";

open(WTMP,$wtmp) or die "Невозможно открыть $wtmp:$!\n";

while (read(WTMP,$record,$recordsize)) { it если запись начинается не с ftp, даже не пытаемся ее и разбирать (unpack). ЗАМЕЧАНИЕ: мы получаем зависимость от ft формата wtmp в обмен на скорость next if (substr($record,0,3) ne "ftp");

($tty,$name,$host,$time)=unpack($template,$record);

ft если мы находим запись об открытии соединения, мы ft создаем хэш списка списков. Список списков позже и будет использован в качестве стэка.

if ($name and substr($name,0,1) ne "\0"){ push(@{$connections{$tty}},[$host,$time]);

} # если мы находим запись о закрытии соединения, пытаемся ft найти ей пару в записях об открытии соединений, ft найденных раньше else { unless (exists $connections{$tty}){ warn "Найдено только завершение соединения с $tty." • scalar localtime($time)."\n";

next;

Число секунд, прошедших с некоторого момента времени. Например, «эп° ха» в большинстве Unix-систем - это 00:00:00 по Гринвичу (GMT) 1 января 1970 года.

диализ журналов tt будем использовать предыдущую запись об открытии # соединения и эту запись о закрытии соединения в # качестве записи об одном сеансе. Чтобы сделать # это, мы создаем список списков, где каждый список # имеет вид (hostname, login, logout) push(@sessions, [@{snift @{$connections{$tty}}}, $time]);

tt если для этого терминала больше нет соединений в # стэке, удаляем запись из хэша delete $connections{$tty} unless (@{$connections{$tty}});

close(WTMP);

print STDERR "Готово. \n";

} Давайте посмотрим, что происходит в этой программе. Мы считываем по одной записи из файла wtmp. Если эта запись начинается с ftp, мы знаем, что это сеанс FTP. Как говорится в комментарии, строка кода, в которой принимается это решение, явно привязана к формату записи в wtmp. Будь поле tty не первым полем записи, эта проверка не срабо тала бы. Однако возможность узнать, что строка не представляет для нас интереса, не выполняя для этого unpack( ), того стоит.

Когда мы находим строчку, начинающуюся с ftp, мы разбиваем ее, чтобы выяснить, относится она к открытию FTP-соединения или к закрытию. Если это открытие соединения, то мы записываем его в %connections, структуру данных, хранящую сводку по открытым со единениям. Как и %transfers из предыдущей подпрограммы, это хэш списка списков, на этот раз его ключами являются терминалы для каждого соединения. Каждое значение этого хэша - это набор пар, представляющих имя узла, установившего соединение, и время уста новки соединения.

Зачем нужна такая сложная структура данных для слежения за от крытием соединений? К сожалению, в wtmp нет простых пар строк «открытие-закрытие открытие-закрытие открытие-закрытие». На пример, посмотрим на строки из wtmp (их выводила наша первая в этой главе программа, работающая с wtmp):

ftpd1833:dnb:ganges.ccs.neu.e:Fri Mar 27 14:04:47 ttyp7: (logout): (logout) :Fri Mar 27 14:05:11 ftpd1833:dnb:hotdiggitydog-he:Fri Mar 27 14:05:20 ftpd1833:(logout):(logout):Fri Mar 27 14:06:20 ftpd1833: (logout): (logout). -Fri Mar 27 14:06:43 Обратите внимание на две записи об открытии ГТР-соединения на од ном и том же терминале (1-я и 3-я строчки). Если бы мы сохраняли по 374 Глава 9. Журналы одному соединению для терминала в простом хэше, то потеряли бы ин формацию о первом соединении, встретив второе.

Вместо этого мы в качестве стека используем список списков, ключа ми которого являются терминалы из %connections. Когда встречается запись об открытии соединения, пара (host, login-time) помещается в стек для этого терминала. Каждый раз, когда встречается информа ция о закрытии соединения с этого терминала, одна из записей об от крытии соединения «выбрасывается» из стека и вся информация о се ансе целиком сохраняется в другой структуре данных. Для этого в программе есть такая строка:

push(©sessions,[@{shift @{$connections{$tty}}},$time]);

Давайте разберемся с этой строкой «изнутри», чтобы все прояснить.

Выделенная жирным часть строки возвращает ссылку на стек/список открытых соединений для данного терминала:

push(@sessions,[§{shift @{$connections{$tty}}},$time]);

Эта часть выбрасывает из стека ссылку на первое соединение:

push(@sessions,[§{shift @{$connections{$tty}}},$time]);

Мы разыменовываем ее, чтобы получить сам список (host, login-time) для соединения. Если поместить эту пару в начало другого списка, за канчивающегося временем соединения, Perl интерполирует пары для соединения, и мы получим один список из трех элементов. Теперь у нас есть группа (host, login-time, logout-time):

push(@sessions,[©{shift @{$connections{$tty}}},$time]);

Теперь, когда у нас есть все составляющие (узел, начало соединения и конец соединения) для сеанса FTP в одном списке, можно добавить ссылку на этот список в список ©sessions, который будет использо ваться позже:

push(@sessions, [©{shift ie>{$connections{$tty}}},$time]);

Благодаря одной очень насыщенной строке у нас есть список сеансов.

Чтобы завершить работу в подпрограмме &ScanWtmp, необходимо прове рить, пуст ли стэк для каждого терминала, т. е. проверить, что не оста лось больше записей об открытии соединения. Если это так, можно удалить эту запись из хэша;

мы знаем, что соединение завершилось:

delete $connections{$tty} unless (@{$connections($tty}});

Настало время поставить в соответствие два различных набора ных. Эта задача ложится на плечи подпрограммы &ShowTransfers.

каждого сеанса она выводит список из трех элементов, относящихся к соединению, и файлы, переданные во время этого сеанса.

диализ журналов tt обходим в цикле журнал соединений, ставя в соответствие tt сеансы с передачами файлов sub ShowTransfers { local($session);

foreach $session (@sessions){ П выводим время соединения print scalar localtime($$session[1]). "-".

:

scalar localtime($$session[2]).

" $$session[0]\n";

# ищем все файлы, переданные в этом сеансе и выводим их print &FindFiles(@{$session}), "\n";

Вот самая сложная часть, в которой приходится решать, передавались ли файлы в течение сеанса связи:

# возвращает все файлы, переданные в течение данного сеанса sub FindFiles{ my($rhost, Slogin, $logout) = @_;

my (Stransfer, ©found);

tt простой случай, передачи файлов не было unless (exists $transfers{$rhost}){ return "\t(no transfers in xferlog)\n";

tt простой случай, первая запись о передаче файлов записала # после регистрации if ($transfers{$rhost}->[0]->[0] > $logout){ return "\t(no transfers in xferlog)\n";

# ищем файлы, переданные во время сеанса foreach Stransfer (@{$transfers{$rhost}}){ tt если передача до регистрации next if ($$transfer[0] < Slogin);

tt если передача после регистрации last if ($$transfer[0] > Slogout);

tt если мы уже использовали эту запись next unless (defined $$transfer[1]);

push(@found, "\f'.$$transfer[1]. "\n");

undef $$transfer[i];

376 Глава 9. Журналы (Sttfound > -1 ? @found : "\t(no transfers in xferlog)\n") Первым делом можно исключить простые случаи. Если мы не нашли записей о передаче файлов, выполненной этим узлом, или если первая передача произошла после завершения интересующего нас сеанса, это означает, что в течение данного сеанса файлы не передавались.

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

;

. * '-4 ;

• Последняя проверка перед тем, как решить, засчитывать ли запись о передаче файла, выглядит несколько странно:

# если мы уже использовали эту запись next unless (defined $$transfer[1]);

Если два анонимных сеанса с одного и того же узла происходят в одно и то же время, то нет никакого шанса выяснить, к какому из них отно сится запись о передаче этого файла. Ни в одном из журналов просто не существует информации, которая могла бы нам в этом помочь. Луч шее, что можно тут сделать, - определить правило и придерживаться его. Здесь правило такое: «Приписывать передачу первому возможному соединению». Эта проверка и последующий undef проводят его в жизнь.

Если последняя проверка пройдена, мы объявляем о победе и добавля ем имя файла к списку файлов, переданных в течение этого сеанса.

После этого выводим информацию о сеансах и выполненных переда чах файлов.

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

Черные ящики В мире Perl часто случается так, что когда вы пытаетесь написать что^ то широко используемое, кто-то другой публикует свое решение это задачи раньше. Это дает возможность просто передать свои данные уже готовый модуль и получить результаты, не задумываясь о том.

как выполняется данная задача. Это часто назвают «подходом черног ящика».

диализ журналов Один такой пример - это пакет SyslogScan Рольфа Харольда Нельсона (Rolf Harold Nelson). Раньше мы уже отмечали, что анализ почтового журнала sendmail может оказаться непростой задачей из-за информа ции о состоянии. Часто со строкой связана одна или несколько родст венных строк, перемешанных с другими строками в этом же журнале.

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

Этот пакет позволяет найти в журнале определенные адреса и предос тавляет некоторую статистику по найденным сообщениям.

Пакет SyslogScan объектно-ориентированный, так что первым делом нужно загрузить модуль и создать новый экземпляр объекта:

use SyslogScan::DeliveryIterator;

# список почтовых журналов syslog $maillogs = ["/var/log/mail/maillog"];

Siterator = new SyslogScan::DeliveryIterator(syslogList => Smaillogs);

Метод new модуля SyslogScan: :DeliveryIterator возвращает итератор (iterator), т. е. указатель в файле, двигающийся от одной строки о дос тавке сообщения к другой. Применяя итератор, мы избавляемся от не обходимости просматривать файл в поисках всех строк, относящихся к конкретному сообщению. Если вызвать метод n e x t ( ) для этого итера тора, он вернет нас обратно к объекту доставки. Этот объект хранит информацию о доставке, прежде распределенную по нескольким стро кам в журнале. Например, следующий код:

while ($delivery = $iterator -> next()){ print $delivery->{Sender}." -> ".

(",",@{$delivery->{ReceiverList}}),"\n";

позволяет получить такую информацию:

root@host.ccs.neu.edu -> user1§cse.scu.edu owner-freebsd-java-digest@freebsd.org -> user2@ccs.neu.edu root@host.ccs.neu.edu -> user3@ccs.neu.edu Можно сделать еще лучше. Если передать итератор из SyslogScan мето ду new модуля SyslogScan: :Summary, new примет весь вывод метода next итератора и вернет итоговый объект. Этот объект содержит итоговую информацию по всем доставкам сообщений, которые только может вернуть итератор.

Но SyslogScan переносит эту функциональность на другой уровень. Ес ли передать последний объект методу new из SyslogScan: : ByGroup, мы по лучим объект bygroup, в котором вся информация сгруппирована по 378 _ Глава 9. ЖурнаЛЬ| доменам и приводится статистика по этим группам. Вот как применя ется то, о чем мы только что говорили:

use SyslogScan: :DeliveryIterator;

use SyslogScan:

-.Summary;

use SyslogScan: :ByGroup;

use SyslogScan: : Usage;

t местоположение maillog Smaillogs = ["/var/log/mail/maillog"];

и получаем для этого файла итератор literator = new SyslogScan: :DeliveryIterator(syslogi_ist => Smaillogs);

# передаем итератор в :: Summary, получаем объект summary (сводка) $summary = new SyslogScan: :Summary($iterator);

# передаем сводку в ::ByGroup и получаем объект stats-by-group П (статистика по группам) $bygroup = new SyslogScan: :ByGroup($surnmary);

# выводим содержимое этого объекта foreach $group (sort keys %$bygroup){ ($bmesg,$bbytes)=@{$bygroup->{$group}-> {groupUsage}->getBroadcastVolume()K ($smesg,$sbytes)=@{$bygroup->{$group}-> {groupUsage} ->getSendVolume()};

($rmesg,$rbytes)=@{$bygroup->{$group}-> {groupUsage} ->getReceiveVolume( ) } ;

($rmesg,$rbytes)=@{$bygroup->{$group}-> {groupUsage} ->getReceiveVolume()};

write;

format STDOUTJTOP = Name Bmesg BByytes Smesg SBytes Rmesg Rbytes format STDOUT = @<«««««««« $g roup, $bmesg, Sbbytes,$smesg,$sbytes,Srmesg,$ rbytes Результат представляет собой подробный отчет по количеству шир° ковещательных, отправленных и полученных сообщений и их размер в байтах. Вот отрывок из получаемых результатов:

Hame Bmesg BByytes Smesg SBytes Rmesg Rbytes getreminded.com 1 3420 1 3420 О О gillette.com 1 984 1 984 4 диализ журналов 3 gis.net 10830 10830 1 1 1245 globalserve. net globe.com 0 0 0 Положительная сторона такого подхода в том, что можно сделать мно гое благодаря тяжелой работе, проделанной автором модуля или сце нария, не прикладывая больших усилий со своей стороны. Отрица тельная сторона - необходимость во всем полагаться на код автора. В нем могут быть ошибки или может использоваться подход, не устра ивающий вас. Всегда стоит сначала ознакомиться с программой, прежде чем «дать ей зеленую улицу» у себя на сайте.

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

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

Существует по крайней мере два способа использования баз данных из Perl. Первый из них я называю методом «только Perl». В этом случае все действия осуществляются в Perl или в библиотеках, тесно связан ных с Perl. Во втором применяются модули, например из семейства DBI, позволяющие сделать Perl клиентом баз данных, таких как MySQL, Oracle или MS-SQL. Рассмотрим оба подхода для обработки и анализа журналов.

Использование баз данных, встроенных вРег!

До тех пор пока данных не слишком много, можно применять только Perl. В качестве примера мы будем использовать расширенную версию вездесущего «искателя брешей в системе безопасности». До сих пор наша программа имела дело с соединениями только на одной машине.

Как поступить, если захочется узнать о регистрации злоумышленни ков и на других наших машинах?

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

В качестве «формата баз данных для Perl» я выбрал формат Berkeley DB. Я беру «формат баз данных для Perl» в кавычки потому, что хоть поддержка DB встроена в Perl, сами библиотеки DB необходимо дос Глава 9. Журналы тать в другом месте (http://www.sleepycat.com) и установить их до того как поддержка Perl будет скомпилирована. Ниже приведено сравне ние между различными поддерживаемыми форматами баз данных (табл. 9.4).

Таблица 9.4. Сравнение поддерживаемых в Perl форматов баз данных Поддерж- Поддерж- Поддерж- Ограничения Название Независи на размеры ка в Unix ка в мость от по ка в ключей или NT/2000 MacOS рядка байтов значений «старый» Нет 1К Нет ' Нет Да dbm «новый» dbm Да 4К Нет Нет Да 1К (по умолча- Нет Sdbm Нет Да Да нию) Gdbm Нет Нет Нет а Да Да» Нет DB Да Да Да Да а Может потребоваться отдельно загрузить сами библиотеки баз данных.

b Библиотеку и модуль необходимо загрузить из сети (http://www.roth.net).

Мне нравится формат Berkeley-DB, поскольку он может обрабатывать большие объемы данных и не зависит от порядка байт. Независимость от порядка байт особенно важна для программы, которую мы собира емся рассмотреть, т. к. мы будем считывать и записывать данные в один и тот же файл с различных машин, у которых может быть раз личная архитектура.

Начнем с заполнения базы данных. В целях простоты и переносимости мы остановим свой выбор на программе last, чтобы не использовать ип pack() для различных файлов wtmp. Вот программа, за которой следу ют объяснения:

use DB_File;

use FreezeThaw qw(freeze thaw);

use Sys:'.Hostname;

(t чтобы получить текущее имя узла use Fcntl;

ft для определения 0_CREAT и 0_RDWR # ищем исполняемый файл для программы last (-х "/bin/last" and Slastex = "/bin/last") or -, (-x "/usr/ucb/last" and Slastex = "/usr/ucb/last");

Suserdb = "userdata";

tt файл базы данных пользователей Sconnectdb = "connectdata";

# файл базы данных соединений $thishost = &hostname;

ope'n(LAST, "$lastex|") or die "Невозможно запустить программу Slastex:$!\n";

Диализ журналов # считываем каждую строку вывода last while (){ next if /~reboot\s/ or /~shutdown\s/ or /~ftp\s/ or /"wtmp\s/;

($user,$tty,$host,$day,$mon,$date,$time) = split;

next if $tty =" /~:0/ or $tty =" /~console$/;

next if (length($host) < 4);

$when = $mon." ",$date." ",$time;

tt сохраняем каждую запись в хэше списка списков push(@{$users{$user}}, [$thishost,$host,$when]);

push(@{$connects{$host}}, [$thishost,$user,$when]);

closed-AST) ;

# создаем файл базы данных (для чтения и записи);

если он не # существует, смотрите сноску в тексте re: $DB_BTREE tie %userdb, "DB_File",$userdb,0_CREAT|0_RDWR, 0600, $DB_BTREE or die "Невозможно открыть базу данных Suserdb для чтения/записи:$!\п" П обходим в цикле пользователей и сохраняем информацию в базе П данных при помощи freeze foreach $user (keys %users){ if (exists $userdb{$user}){ (Suserinfo) = thaw($userdb{$user});

push(@{$userinfo},@{$users{$user}});

$userdb{$user}=freeze Suserinfo;

} else { Suserdb {$user}=f reeze $users{$user};

untie %userdb;

# делаем то же самое для соединений tie %connectdb, "DB_File",$connectdb,0_CREAT|0_RDWR, 0600, $DB_BTREE or die "Невозможно открыть базу данных Sconnectdb для чтения/записи :$!\п" foreach $connect (keys %connects){ if (exists $connectdb{$connect}){ (Sconnectinfo) = thaw($connectdb{$connect});

push(@{$connectinfo},@{$connects{$connect}});

$connectdb{$connect}=f reeze($connectinfo);

}.

else { $connectdb{$connect}=f reeze($connects{$connect});

untie %connectdb;

382 _ Глава 9. Журналы Программа принимает вывод команды last и делает следующее:

1. Отфильтровывает бесполезные строки.

2. Сохраняет вывод в двух хэшах списка списков, структура данных которых выглядит так:

$users{username} = [[current host, connecting host, connect time], [current host, connecting host, connect time] $connects{host} = [[current host, usernamel, connect time], [current host, username2, connect time], 3. Помещает структуру данных в память и пытается добавить ее в ба зу данных.

Этот последний шаг самый интересный, поэтому рассмотрим его под робно. Мы связываем хэши %userdb и %connectdb с файлами баз данных. Это позволяет легко обращаться к хэшам, в то время как Perl «за сце ной» обрабатывает сохранение и получение данных из файлов базы данных. Но в хэшах хранятся только простые строки. Как преобразо вать наш «хэш списка списков» в одно значение?

Модуль FreezeThaw Ильи Захаревича используется для хранения слож ной структуры данных в одном скалярном значении, которое можно применять в качестве значения хэша. FreezeThaw принимает произ вольную структуру данных Perl и представляет ее в виде строки. Су ществуют и другие модули, подобные этому, самые распространенные из которых Data: : Dumper Гурусами Сарати (Gurusamy Sarathy) (входит в состав Perl) и Storable Рафаэля Манфреди (Raphael Manfredi). Fre ezeThaw обеспечивает наиболее компактное представление сложной структуры данных, поэтому он и используется здесь. Каждый из этих модулей имеет свои плюсы, так что внимательно изучите возможности всех трех, если вам нужно будет решать задачу, подобную нашей.

В программе мы проверяем, существует ли запись для этого пользова теля или узла. Если нет, мы просто «замораживаем» структуру ДаН' ных в строку и сохраняем эту строку в базе данных при помощи свя занного хэша. Если существует, мы «размораживаем» существуюШУ Обычно в случае применения DB_File нет необходимости использовать Ф°Р му хранения BTREE, но в этой программе, возможно, пойадобится храни очень длинные значения. Такие значения приводят к повреждению Да а ных, если применяется метод хранения DB_HASH из версии 1.85, тогда # метод хранения BTREE, похоже, справляется с дроблением. В последя версиях библиотек DB может и не быть этой ошибки.

диализ журналов структуру данных из базы данных в память, добавляем наши данные, вновь ее «замораживаем» и сохраняем.

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

Подходящее время для заполнения подобной базы данных - сразу после операции ротации журналов wtmp.

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

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

use DB_File;

use FreezeThaw qw(freeze thaw);

use Fcntl;

# принимаем имя пользователя и узлы, которые мы игнорируем, в П командной строке ($user,$ignore) = @ARGV;

# файлы баз данных, которые мы используем $userdb ="userdata";

$connectdb ="connectdata";

tie %userdb, "DB_File",$userdb,0_RDONLY,666,$DB_BTREE or die "Невозможно открыть базу данных Suserdb для чтения:$!\п";

tie %connectdb, "DB_File",$connectdb,0_RDONLY,666,$DB_BTREE or die "Невозможно открыть базу данных $connectdb для чтения:$!\п";

Мы загрузили нужные нам модули, получили необходимые данные, установили несколько переменных и связали их с файлами базы дан ных. Теперь пришло время немного поработать:

П можно выходить, если этот пользователь не устанавливал # соединений unless (exists $userdb{$user}){ print "Этот пользователь не регистрировался.,\п";

untie %userdb;

untie %connectdb;

exit;

384 Глава 9. Журналы > (Suserinfo) = thaw($userdb{$user});

print "— first host contacts from $user --\n";

foreach Scontact (@{$userinfo}){ next if (defined Signore and $contact->[1] =" /$ignore/o);

print $contact->[1]. " -> ". $contact->[0].

" on ".$contact->[2]."\n";

$otherhosts{$contact->[1]}='';

Вот как работает этот код: если мы видели этого пользователя, то вос производим в памяти записи о его соединениях при помощи thaw().

Для каждого контакта мы проверяем, нужно ли игнорировать соедине ния с этого узла. Если нет, то выводим информацию об этом соединении и записываем узел, с которого оно было установлено, в хэш %otherhosts.

Здесь хэш применяется как простой способ собрать список уникаль ных узлов из всех записей о соединениях. Теперь, когда у нас есть спи сок узлов, с которых мог зарегистрироваться злоумышленник, необ ходимо выяснить, какие еще пользователи регистрировались с этих подозрительных узлов.

Найти эту информацию будет не сложно, потому что когда мы записы вали, какие пользователи регистрировались на каких машинах, мы также записывали и обратное (т. е. на каких машинах регистрирова лись какие пользователи) в другом файле базы данных. Теперь мы смотрим на записи, соответствующие найденным на предыдущем ша ге узлам. Если этот узел не надо игнорировать и с него было зарегист рировано соединение, мы собираем список пользователей, регистриро вавшихся на этом узле, при помощи хэша %userseen:

print "-- other connects from source machines --\n";

foreach $host (keys %otherhosts){ next if (defined Signore and $host =~ /$ignore/o);

next unless (exists $connectdb{$host});

(Sconnectinfo) = thaw($connectdb{$host});

foreach $connect (@{$connectinfo}){ next if (defined Signore and $connect->[0] =" /$ignore/o);

$userseen{$connect->[1]}='';

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

foreach $user (sort keys %userseen){ диализ журналов next unless (exists $userdb{$user});

(Suserinfo) = thaw($userdb{$user});

foreach Scontact (@{$userinfo}){ next if (defined Signore and $contact->[1] =" /$ignore/o);

write if (exists $otherhosts{$contact->[1]});

Нам осталось только подмести сцену и уйти домой:

untie %userdb;

untie %connectdb;

format STDOUT = @«««« @<««««««« -> (§><««««««« on @<««'««« $user. " : ", $contact->[1], $contact->[0], $contact->[2] Вот как выглядит вывод этой программы (опять же, имена пользовате лей и машин изменены):

-- first host contacts from baduser - badhostl.exampl -> machine1.ccs.neu.edu on Jan 18 09: badhost2.exampl -> machine2.ccs.neu.edu on Jan 19 11: -- other connects from source machines - baduser2: badhostl.exampl -> machine2.ccs. neu.e on Dec 15 13: baduser2: badhost2. exampl -> machine2.ccs. neu.e on Dec 11 12: baduserS: badhostl.exampl -> machine1.ccs.neu.ed on Jul 13 16: baduser4: badhostl.exampl -> machine1.ccs.neu.ed on Jun 9 11: baduser: badhostl.exampl -> machine1.ccs.neu.ed on Jan 18 09: baduser: badhost2. exampl -> machine2.ccs. neu.e on Jan 19 11: Эта программа хороша в качестве примера, но она не масштабируется дальше, чем на небольшую группу машин. Для каждого последующе го вызова программы необходимо прочитать запись из базы данных, «растопить» (thaw()) ее в памяти, добавить новые данные, снова их «заморозить» (freeze()) и сохранить опять в базе данных. Это может потребовать больших затрат процессорного времени и памяти. Потен циально весь процесс происходит для каждого пользователя и соеди нения, так что все замедляется очень быстро.

Использование баз данных SQL Теперь рассмотрим один из способов обращения с очень большими на борами данных. Вам может потребоваться загрузить данные в более сложную базу данных SQL (коммерческую или нет) и запрашивать из нее информацию, используя SQL. Тем, кто не знаком с SQL, я рекомен дую ознакомиться с приложением D «Пятнадцатиминутное руководст во по SQL», перед тем как смотреть на этот пример.

386 Глава 9. Журналы Заполнить базу данных можно так:

use DBI;

use Sys: : Hostname;

$db = "dnb";

8 имя используемой базы данных 8 ищем местоположение last (-х "/bin/last" and $lastex = "/bin/last") or (-x "/usr/ucb/last" and Slastex = "/usr/ucb/last");

8 подсоединяемся к базе данных Sybase как пользователь "dnb", 8 указывая пароль в командной строке $dbh = DBI->connect('dbi:Sybase: ', 'dnb 1,$ARGV[0]);

die "Невозможно соединиться: $DBI: : errstr\n" unless (defined $dbh);

и переходим на базу данных, которую мы будем использовать $dbh->do("use $db") or die "Невозможно перейти к $db: ".$dbh->errstr. "\n";

ft создаем таблицу lastinfo, если ее еще не существует unless ($dbh->selectrow_array( q{SELECT name from sysobjects WHERE name="lastinfo"})){ $dbh->do(q{create table lastinfo (username char(8), localhost char(40), otherhost varchar(75), when char(18))}) or die "Невозможно создать таблицу lastinfo: ".$dbh->errstr. "\n";

Sthishost = &hostname;

$sth = $dbh->prepare( qq{INSERT INTO lastinfo(username, localhost, otherhost.when) VALUES (?, ' Sthishost, ?, ?)}) or die "Невозможно подготовить запрос insert: ".$dbh->errstr."\n";

open(LAST, "$lastex|") or die "Невозможно выполнить программу $lastex:$!\r> while (){ next if /~reboot\s/ or /~shutdown\s/ or /~ftp\s/ or /"wtmp\s/;

($user,$tty,$host,$day,$mon,$date, Stime) = split;

next if $tty =" /~:0/ or $tty =" /"consoles/;

next if (length(Shost) < 4);

Swhen = Smon." ",$date." ".Stime;

$sth->execute($user, $host, Swhen);

диализ журналов close(LAST);

$dbh->disconnect;

Эта программа создает таблицу lastinfo с полями username, localhost, otherhost и when. Мы обходим в цикле вывод команды last, добавляя настоящие записи в таблицу.

Теперь можно использовать базу данных по назначению. Вот набор простеньких SQL-запросов, которые легко можно выполнить из Perl при помощи интерфейсов DBI или ODBC, о которых мы говорили в главе 7 «Администрирование баз данных SQL»:

-- сколько всего записей в таблице?

select count (*) from lastinfo;

-- сколько пользователей было зарегистрировано?

select count (distinct username) from lastinfo;

-- сколько различных узлов устанавливали соединение с нашими машинами?

select count (distinct otherhost) from lastinfo;

-- на каких локальных машинах регистрировался пользователь "dnb"?

select distinct localhost from lastinfo where username = "dnb";

localhost hostl host Эти примеры должны помочь читателю прочувствовать, как можно «исследовать» данные, когда они хранятся в настоящей базе данных.

Каждый из этих запросов требует для выполнения лишь около секун ды. Базы данных могут быть быстрым, мощным инструментом для системного администрирования.

Анализ журналов - бесконечная тема для разговора. К счастью, эта глава снабдила вас кое-какими инструментами и некоторым вдохнове нием.

388 Глава 9. Журналы Информация о модулях из этой главы Модуль Идентификатор Версия на CPAN Win32: : EventLog (распространяется с ActivePerl) 0.062 ~ PAULG Logfile: : Rotate 1. Getopt : : Long (распространяется с Perl) 2. Time : : Local (распространяется с Perl) 1. SyslogScan RHNELSON 0. PMQS DB_File (распространяется с Perl) 1. ILYAZ FreezeThaw 0. Sys : : Hostname (распространяется с Perl) Fcntl (распространяется с Perl) 1. TIMB DBI 1. Рекомендуемая дополнительная информация «Essential System Administration», (2nd Edition), Eleen Frisch (O'Re illy, 1995). А книге есть хорошее, краткое введение в syslog.

http://www.heysoft.de/index.htm - домашняя страница Франка Хэйне (Frank Heyne) - человека, предоставляющего программное обеспе чение для анализа журнала событий в Win32. Также здесь есть хо роший список часто задаваемых вопросов по Event Log.

http://www.le-berre.com/ - домашняя страница Филиппа Ле Бера (Phi lippe Le Berre);

содержит отличный отчет по использованию W i n 3 2 : :

EventLog и других пакетов для Win32.

«Managing NT Event Logs with Perl for Win32», Bob Wells, Windows NT Magazine, February/March 1998.

«Practical Unix & Internet Security», (2nd Edition), Simson Garfinkel, Gene Spafford (O'Reilly, 1996). Еще одно хорошее (и несколько бо лее подробное) введение в syslog, также содержит информацию по tcpwrappers.

«Windows NT Event Logging», James D. Murray (O'Reilly, 1998).

• Обращаем внимание на неожидан ные или несанкционированные изменения • Обращайте внимание на подозрительную активном • Протокол SNMP • Опасность на проводе • Предотвращение • подозрительных действий • Информация о моду лях из этой главы • Рекомендуемая дополнительная литература Безопасность и наблюдение за сетью Любой разговор о безопасности сопряжен с риском. Существует по крайней мере три ловушки, которые могут обречь на неудачу разговор о безопасности:

1. Под словом «безопасность» для разных людей скрываются различ ные вещи. Если вы придете на конференцию ученых, изучающих Древнюю Грецию и Рим, и спросите их о Риме, первый вдохновенно прочтет вам лекцию об акведуках (инфраструктура и снабжение), второй расскажет о Римской империи (идеология и политика), тре тий растолкует о римских легионах (армия), четвертый поведает о Сенате (администрация) и т. д. Необходимость иметь дело сразу с каждой гранью безопасности - это первая ловушка.

2. Люди думают, что что-то может быть безопасным, будь то програм ма, компьютер, сеть или что-либо еще. Мы не претендуем на то, чтобы показать, как сделать что-то безопасным;

но попробуем по мочь вам сделать что-то более безопасным или уж, в крайнем слу чае, поможем различать, когда что-нибудь является менее безопас ным. Безопасность это континуум.

3. Наконец, одна из самых серьезных ловушек в этом деле - специ фичность. Верно, что сущность безопасности часто заключается в деталях, но это постоянно меняющийся набор деталей. Факт, что вы залатали дыры А, В и С на своей системе, гарантирует только то 390 Глава 10. Безопасность и наблюдение за сетью (да и то не всегда), что именно эти дыры больше не будут источни ком проблем. Это никак не поможет, если будет найдена дыра D.

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

Один из хороших способов ввязаться в дискуссию об этих принципах выяснить, как безопасность проявляется в физическом мире. Как в ре альном, так и в виртуальном мире все сводится к опасениям. Будет ли то, чем я дорожу, повреждено, потеряно или обнаружено? Могу ли я сде лать что-то, чтобы предотвратить это? Происходит ли это прямо сейчас"} Если разобраться, как обходятся с этими опасениями в реальном мире, то можно уяснить, как справляться с ними и в нашей области. Один из способов разобраться с такими опасениями - придумать более надеж ный способ оградить пространство. В случае с физическим пространст вом мы используем конструкции, подобные банковским сейфам;

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

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

Обращаем внимание на неожиданные или несанкционированные изменения Хороший сторож замечает перемены. Он знает, когда что-то оказыв ется не на месте в вашем окружении. Если ценного мальтийского сокол заменят подделкой, сторож будет первым, кто должен это заметит • Точно так же пользователь хочет услышать рев сирены, если кто-то и менит или заменит основные файлы в системе. В большинстве случа эти изменения будут безвредными. Но когда кто-то впервые действ тельно нарушит безопасность вашей системы и начнет делать что-т° I. обращаем внимание на неожиданные или несанкционированные изменения файлами /bin/login, msgina.dll или Finder, то вы, заметив это, будете на столько счастливы, что простите все предыдущие ложные тревоги.

Изменения локальной файловой системы Файловые системы - это отличное место для начала исследований про грамм, следящих за изменениями. Мы собираемся исследовать способы проверки неизменности важных файлов, в частности, исполняемых файлов операционной системы или файлов, связанных с безопасностью (например /etc/passwd или msgina.dll). Изменения, внесенные в эти файлы без ведома администратора, часто являются признаками вмеша тельства злоумышленника. В сети существует ряд довольно сложных инструментов, которые устанавливают троянские версии важных фай лов и заметают следы. Это самые злобные изменения, которые можно об наружить. С другой стороны, иногда просто полезно знать, что важные файлы изменились (особенно если одну и ту же систему администриру ют несколько человек). Технологии, которые мы рассмотрим, будут одинаково хорошо работать в обоих случаях.

Самый простой способ выяснить, был ли файл изменен - использовать функции stat() и lstat(). Эти функции принимают имя файла или фай ловый дескриптор и возвращают массив с информацией об этом файле.

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

Использовать stat() или IstatQ очень просто:

@information = stat("filename");

Как сказано в главе 3 «Учетные записи пользователей», можно также применять модуль File: :Stat Тома Кристиансена, чтобы получить эту же информацию, используя объектно-ориентированный синтаксис.

Информация, возвращаемая функциями statQ и IstatQ, зависит от операционной системы, stat () и Istat () происходят от системных вызо вов в Unix, поэтому Perl-документация по этим функциям ссылается на значения, возвращаемые в Unix. Можно посмотреть (табл. 10.1). как эти значения соотносятся с тем, что возвращается функцией stat() в Windows NT/2000 и MacOS. В первых двух столбцах приведены поряд ковый номер поля и его описание для систем Unix.

392 Глава 10. Безопасность и наблюдение за сетью Таблица 10.1. Сравнение значений, возвращаемых функцией statf) № Описание поля в Unix Действительно в Действительно в MacOS NT/ Да (порядковый но- Да (но является vRef Num) 0 Номер устройства файловой системы мер диска) Нет (всегда 0) 1 Inode Да (но f ilelD/dirlD) Режим файла (тип и 2 Да (но 777 для каталогов и Да права) приложений, 666 для незаб локированных документов, 444 для заблокированных документов) Количество (жестких) Да (для NTFS) Нет (всегда 1) ссылок на файл Численный идентифи- Нет (всегда 0) 4 Нет (всегда 0) катор владельца файла Численный идентифи- Нет (всегда 0) 5 Нет (всегда 0) катор группы владель ца файла Идентификатор уст- Да (порядковый Нет (всегда null) ройства (только для номер диска) специальных файлов) Размер файла в байтах Да (но не включает Да (но возвращает только размер каких-либо размер данных) альтернативных потоков данных) Да (только эпоха начинается Время последнего дос- Да на 66 лет раньше, чем в Unix, тупа относительно на то есть 1/1/1904, и значение чала эпохи то же, что и для поля №9) а Да (только эпоха начинается 9 Время последней мо- Да 1/1/1904 и значение то же, дификации относи что и для поля №8) тельно начала эпохи 10 Время последнего из- Да (но время созда- Да (только эпоха начинается 1/1/1904, и это время созда менения inode относи- ния файла) тельно начала эпохи ния файла) Нет (всегда null) 11 Предпочтительный Да размер блока для ввода/вывода 12 Количество занятых Нет (всегда null) Да блоков Кроме того, эпоха в MacOS отсчитывается относительно локального ни, а не UTC. Так что если системные часы двух компьютеров с MacOS ей ЛОЛЛ- В хронизированы, но на одном из них используется временная зона на другом -0500, то значения, возвращаемые функцией time( ) на этих ко пьютерах, будут отличаться на три часа.

Обращаем внимание на неожиданные или несанкционированные изменения Для возвращения атрибутов, специфичных для операционной систе мы, в других He-Unix-версиях Perl помимо stat() и lstat() использу ются специальные функции. Рассказ о таких функциях, как Мас Perl: :GetFileInfo() и Win32: :FileSecurity: :Get(), можно найти в главе «Файловые системы».

После того как с помощью stat( ) для файла будут получены значения, на следующем шаге надо будет сравнить «интересные» значения с уже известными. Если они изменились, значит, изменилось и что-то в этом файле. Ниже приведена программа, которая генерирует строку значе ний lstat( ) и проверяет для файлов некоторые из этих значений. Мы на меренно исключили 8-е поле (время последнего доступа), потому что оно меняется при каждом прочтении файла.

Программа принимает либо аргумент -р filename, чтобы вывести зна чения IstatO для заданного файла, либо аргумент -с filename, чтобы проверить значения lstat( ) для всех файлов, перечисленных в filename.

use Getopt: :Std;

# используем это для создания более симпатичного вывода # позже в &printchanged() @statnames = qw(dev ino mode nlink uid gid rdev size mtime ctime blksize blocks);

getopt('p:c: ');

die "Использование: $0 [-p |-c ]\n" unless ($opt_p or $opt_c);

if ($opt_p){ die "Невозможно получить информацию о файле $opt_p:$!\n" unless (-e $opt_p);

print $opt_p, "|", joinC Г, (lstat($opt_p))[0..7,9..12]), "\n";

exit;

if ($opt_c){ open(CFILE,$opt_c) or die "Невозможно открыть файл $opt_c:$!\n";

while(){ chomp;

@savedstats = split( ' \ l ');

die "Неверное количество полей в строке, начинающейся с $savedstats[0]\n" unless ($#savedstats == 12);

(Scurrentstats = (lstat($savedstats[0]))[0..7, 9.. 12];

i # выводим измененные поля, только если что-то изменилось &printchanged(\@savedstats,\@currentstats) if ("@savedstats[1..13]" ne "@currentstats");

Глава 10. Безопасность и наблюдение за сетью close(CFILE);

# обходим в цикле списки атрибутов и выводим все изменения sub printchangedf my($saved,$current)= @>_;

it выводим имя файла после того, как выбрасываем его из # массива, прочитанного из файла print shift @{$saved}, ":\n";

for (my $i=0;

$i < $»{$saved} ;

$!++){ if ($saved->[$i] ne $current->[$i]){ print "\t".$statnames[$i]. " is now ".$current->[$i];

print " (should be ".$saved->[$i]. ")\n";

Для использования этой программы можно набрать checkfile -p /etc/ passwd » checksumfile. В файле checksumfile теперь будет храниться строка, которая выглядит так:

/etc/passwd | 1792 | 11427 | 33060 | 1 | 0 | 0 | 24959 | 607 | 921016509 | 921016509 | 8192 | Этот шаг нужно повторить для каждого файла, за которым мы наблю даем. Затем вызов сценария с аргументом checkfile -с checksumfile бу дет сообщать обо всех изменениях. Например, если я удалю один сим вол из /etc/passwd, сценарию это не понравится, и он выведет такое со общение:

/etc/passwd:

size is now 606 (should be 607) mtime is now 921020731 (should be 921016509) ctime is now 921020731 (should be 921016509) Перед тем как двигаться дальше, необходимо сказать об одном при еме, который мы применили в программе. В следующей строке пров6' ряется равенство двух списков (сделано это на скорую руку):

if ("@savedstats[1.. 12]" ne "@currentstats");

Perl автоматически преобразовывает список в строку, склеивая эле менты списка через пробел:

join(" ",@savedstats[1.. 12])) и затем уже сравнивает получившиеся строки. Этот прием хорошо Р ботает для коротких списков, в которых имеет значение порядок и к личество элементов. В большинстве других случаев необходимо & пбраЩаем внимание на неожиданные или несанкционированные изменения пользовать итеративный подход или хэши, как описано в списках час то задаваемых вопросов perlfaq, входящих в состав Perl. Теперь, когда вы выяснили атрибуты файлов, я вынужден вас огорчить.

Проверка того, что атрибуты файлов не изменились, - это хорошая идея, но не больше. Не представляет большого труда изменить файл, ос тавив неизменными такие атрибуты, как время доступа и модифика ции. В Perl даже есть функция u t i m e ( ), предназначенная для изменения времени доступа и модификации. Так что пришло время применить бо лее мощные инструменты.

Обнаружение изменений в данных - это одна из сильных сторон алго ритмов, известных как криптографические хэш-функции («message-di gest algorithms »). Вот как Рон Райвест (Ron Rivest) описывает алгоритм «RSA Data Security, Inc. MD5 Message-Digest Algorithm» в RFC1321:

Алгоритм на вводе принимает сообщение произвольной длины и созда ет подпись (message digest или fingerprint) длиной 128 бит. Считается, что просто невозможно создать два сообщения, у которых совпадали бы подписи;

также невозможно создать сообщение, подпись которого сов падала бы с заранее заданной.

Для нас это означает, что если применить к файлу алгоритм MD5, то он будет снабжен уникальной подписью. Если данные из этого файла из менятся, то независимо от того, насколько они незначительны, подпись файла тоже будет изменена. Самый простой способ воспользоваться этой чудесной возможностью из Perl - применить модуль D i g e s t : : MD5 из семейства модулей Digest.

Использовать модуль Digest: :MD5 просто. Нужно создать объект Digest:: MD5, добавить в него данные при помощи методов add О или addf ile(), а затем попросить модуль создать подпись.

Можно сделать нечто подобное для подсчета подписи MD5 для файла паролей в Unix:

use Digest:;

MD5 qw(md5);

$md5 = new Digest::MD5;

open(PASSWD,"/etc/passwd") or die "Невозможно открыть passwd:$!\n";

$md5->addfile(PASSWD);

close(PASSWD);

print $md5->hexdigest."\n";

В документации по Digest:: MD5 сказано, что для создания более ком пактных программ можно связывать несколько методов вместе. Так, предыдущую программу можно переписать:

Файлы perlfaql.pod, perlfaq2.pod... perlfaq[N].pod. - Примеч. науч.ред.

396 Глава 10. Безопасность и наблюдение за сеть use Digest: :MD5 qw(md5);

open(PASSWD, "/etc/passwd") or die "Невозможно открыть passwd:$!\n";

print Digest: :MD5->new->addfile(PASSWD)->hexdigest, "\n";

close(PASSWD);

Обе программы выводят следующее:

a6f905e6b45a65a7e03d0809448b501c Если в файл внести незначительные изменения, то вывод станет дру гим. Вот что получилось, когда я поменял местами всего два символа в файле паролей:

335679c4c97a3815230a4331a06df3e Теперь любые изменения становятся очевидными. Давайте расширим предыдущую программу проверки атрибутов и добавим к ней MD5:

use Getopt: :Std;

use Digest: :MD5 qw(md5);

@statnames = qw(dev ino mode nlink uid gid rdev size mtime ctime blksize blocks md5);

getopt('p:c: ');

die "Использование: $0 [-p |-c ]\n" unless ($opt_p or $opt_c);

if ($opt_p){ die "Невозможно получить информацию о файле $opt_p:$!\n" unless (-e $opt_p);

open(F, $opt_p) or die "Невозможно открыть $opt_p:$!\n";

Sdigest = Digest: :MD5->new->addfile(F)->hexdigest;

close(F);

print $opt_p, T'.JoinC Г, (lstat($opt_p))[0..7,9..12]), "I Sdigest", "\n";

exit;

if ($opt_c){ open(CFILE,$opt_c) or die "Невозможно открыть файл $opt_c:$!\n";

while (){ chomp;

@savedstats = split('\l');

die "Неверное количество полей в \'$savedstats[0]\' line.\n" unless ($#savedstats == 13);

0браидаем внимание на неожиданные или несанкционированные изменения @currentstats = (lstat($savedstats[0]))[0..7,9.. 12];

open(F, $savedstats[0]) or die "Невозможно открыть $opt_c:$!\n" push(@currentstats, Digest: :MD5->new->addfile(F)->hexdigest);

close(F);

&printchanged(\@savedstats,\@currentstats) if ("@savedstats[1..13]" ne "@currentstats");

} close(CFILE);

sub printchanged { my($saved,$current)= @_;

print shift @{$saved}, ":\n";

for (my $i=0;

$i <= $ft{$saved};

$i++){ if ($saved->[$i] ne $current->[$i]){ print " ".$statnames[$i]. " is now ".$current->[$i];

print " (".$saved->[$i].")\n";

Изменения сетевых служб Мы узнали, как обнаружить изменения в локальных файловых систе мах. Как насчет того, чтобы заметить изменения на других машинах или в службах, ими поддерживаемых? Мы уже видели способы запро са NIS и DNS в главе 5 «Службы имен TCP/IP». Не должна вызвать за труднений проверка изменений в повторяющихся запросах к этим службам. Например, можно притвориться вторичным сервером и за просить копию данных (т. е. выполнить зонную пересылку) с сервера для определенного домена, если, конечно, DNS-сервер настроен так, что позволит сделать это:

use Net::DNS;

и принимает два аргумента в командной строке: первый - сервер # имен, к которому посылается запрос, а второй - интересующий ft нас домен Sserver = new Net::DNS::Resolver;

$server->nameservers($ARGV[0]);

print STDERR "Выполняется передача...";

@zone = $server->axfr($ARGV[1]);

die $server->errorstring unless (defined @zone);

print STDERR "готово.\n";

398 Глава 10. Безопасность и наблюдение за сетью for $record (@zone){ $record->print;

Объединим эту идею с MD5. Вместо того чтобы получать информацию о зоне, давайте просто сгенерируем для нее подпись:

use Net: :DNS;

use FreezeThaw qw(freeze);

use Digest: :MD5 qw(md5);

Sserver = new Net: : DNS: : Resolve r;

$server->nameservers($ARGV[0] ) ;

print STDERR "Выполняется передача...";

teone = $server->axfr($ARGV[1]);

die $server->errorstring unless (defined @zone);

print STDERR "готово. \n";

$zone = join('',sort map(freeze($_),@zone));

print "MD5 fingerprint for this zone transfer is: ";

print Digest: :MD5->new->add($zone)->hexdigest, "\n";

MD5 работает со скалярными данными (сообщение), но не со структу рами типа списка кэшей, как @zone. Вот почему нужна такая строчка:

$zone = join('',sort map(f reeze($_),@zone));

Для преобразования каждой записи из структуры данных @zone в обычные строки воспользуемся модулем FreezeThaw, который мы уже видели в главе 9 «Журналы». Перед тем как записи будут склеены в одно большое скалярное значение, они будут отсортированы. Сорти ровка позволяет проигнорировать порядок, в котором возвращались записи при пересылке зоны.

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

Все, что мы видели до сих пор, не очень помогло нам преодолеть затрУД нения. Возможно, следует прояснить несколько вопросов:

• Что если кто-то подделает базу данных MD5 подписей и подстав действительные подписи под поддельные троянские файлы или и менения служб?

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

• Что если кто-то сделает что-нибудь с модулем MD5 на вашей системе?

Pages:     | 1 |   ...   | 4 | 5 || 7 |



© 2011 www.dissers.ru - «Бесплатная электронная библиотека»

Материалы этого сайта размещены для ознакомления, все права принадлежат их авторам.
Если Вы не согласны с тем, что Ваш материал размещён на этом сайте, пожалуйста, напишите нам, мы в течении 1-2 рабочих дней удалим его.