Perl для системного администрирования



              

Получение почты - часть 5


Fri, 7 August 1998 13:48:11 -0700 (EOT) To: <webadmin@example.com>

Subject: ***ADVERTISE VACATION RENTALS - $25/year*»* - http://www.example.coT Reply-To:

sample@whynot.net X-PMFLAGS: 10322341.10 X-UIDL: 10293287J92832.222

Comments: Authenticated Sender is <user122@whynot.net>

Message-Id: <77126959_36550609>

Мы рады представить вам новый веб-сайт http://www.example.com от Extreme Technologies, Inc.

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

Давайте критически оценим это сообщение. Во-первых, большинство его заголовков подозрительны. Как вы видели в предыдущем разделе этой главы, большинство заголовков (То:, From: и т. д.) передаются почтовой программе в разделе DATA передачи сообщения. Это единственный набор заголовков, которые трудно подделать и которые добавляются агентом передачи почты, когда сообщение проходит через почтовую систему.

В особенности нужно внимательно посмотреть на заголовки Received:.

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

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

use Mail::Header;

Sheader = new Mail-Header \*STDIN;

$header->unfold('Received1); received = $header->get('Received');




Содержание  Назад  Вперед