Спам листы
Хакер, номер #022, стр. 022-044-1
CuTTer (cutter@xakep.ru) http://www.lovecity.ru
Спам... У некоторых при этом слове возникают неприятные ощущения, рвотная реакция - фу, какая гадость, уберите ЭТО!!! =) Тихо, спокойно, не нервничать. Я не собираюсь грузить про то, что получать спам на твою родную почту противно. Я не буду тебе рассказывать, как от него избавляться, какие программы тебе для этого нужны - все данные об этом ты мог уже давно узнать из этого журнала (Х#8 99 "Все о СПАМе").
Моя задача поведать тебе о том, как собрать этот самый заветный спам лист. И не надо посылать меня в Харьковский Университет Искусств (читай аббревиатуру :)). Не хочу я туда... Не так уж и плох этот спам - польза от него большая, особенно если у тебя есть сайт, который нужно более или менее раскрутить. На первых порах к этому методу приходит очень много людей, так что не пугайся, если после рассылки спама тебе начнут приходить письма гневного содержания. Я так делал, и меня посылали куда подальше за это. У нас спам вроде ни под какую статью не подпадает, так что сильно не пугайся. А может быть тебе это и не надо, просто перелистни страницу журнала и перейди к чтению другой статьи.
Снова perl
Расскажу я тебе о программе, которая выдирает заветные e-mail'ы из html файлов. "ОТСТОЙ!", - закричат многие. Нет, ничего подобного, не будет никаких описаний готовеньких программ, которых и так прилично в Интернете. Они, конечно, выдерут всю нужную информацию, но это не по-кулхацкерски. Как ты наверное догадался, мы будем писать опять свою программу, а язык программирования будет... Perl! Да, именно он, и не надо кидать в мое лицо тухлые огрызки помидоров. Поверь, на C это написать намного гиморнее.
Основы Перла ты уже должен знать - Х об этом писал еще в 8-м номере. Правда, в программе по сбору mail'ов встретятся незнакомые тебе команды (если ты недавно знаком с perl coding`ом), но я постараюсь как можно лучше объяснить их. Для начала тебе нужно собрать как можно больше HTML файлов. Для этого полезь на какие-нибудь форумы, гостевые книги, там обычно скапливаются очень большие базы mail адресов пользователей. Для совсем ленивых есть программы, которые соединяются с новостными конференциями и выкачивают все e-mail'ы. Круто? Да, мне тоже нравиться. Но возвращаемся к нашей программе. Что она будет делать и как работать? Во-первых, тебе нужно создать две директории, по умолчанию это должен быть каталог data и base. В первой директории должны лежать HTML файлы, в которых хранятся e-mail'ы, а второй папке будет находиться собственно наш спам лист. Названия директорий и имя файла с базой находятся в файле mailcut.cfg. Поменяй в конфиге имена директорий и файла, если тебя они не устраивают.
Спаминг
Главный модуль находится в программе mailcut.pl, именно она и вырезает mail'ы из HTML файлов. Ты запускаешь ее, она считывает директорию data и записывает полученную информацию в файл mail.txt, который находится в каталоге base. Теперь разберем код программы:
#!/usr/bin/perl
# Параметры
##################
open (PARAM, "mailcut.cfg"); # Открываем файл с конфигом
