Бомба в мыле

CuTTer (icutter@mail.ru)

Хакер, номер #019, стр. 019-042-1

Все пользуются электронной почтой (конечно, кто сидит в Интернете). Обычно ею пользуются, чтобы с кем-то переговариваться, отсылать файлы, получать новости (я открыл тебе великую тайну), :) но некоторые любят использовать мыло в военных целях (например, я): забомбить почту надоедливому ламеру или просто над кем-нибудь поиздеваться. Обычно для этого используют уже готовые mailbomber'ы. Конечно, что сложного? Выбрал e-mail жертвы, SMTP сервер, количество писем и, наконец, настрочил само содержание письма, что-то вроде такого: Hello MazaFucka. Все зависит от твоей фантазии, но все равно все письма будут одинакового плана, а это совсем не клево.

Однажды мой корефан поспорил с одной чувихой, что она должна получить сто писем разного содержания. Если он сделает это, то получит три шоколадки (девочки-шоколадки - это хорошо :). Он обратился ко мне за помощью, так как пользовался Kaboom`ом, QuickFyre`ом и прочей лабудой вместо написания собственной тулзы. Я же написал программу на Perl'е, которая работала не у меня дома на компе, а на серваке, из-за чего скорость отправки писем была... не детская, короче. Правда, вместо ста писем я отправил несколько тысяч :-)). Ничего страшного - зато она проспорила. А письма были такие:

Привет, Понка. Это сообщения № 1. Читай следующее.

Привет, Понка. Это сообщения № 2. Читай следующее.

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

Чтобы помнили

Как я говорил, мой mailbomber перланутый. Для этого, чтобы прога нормально работала, тебе понадобится сервер на *inux платформе, который поддерживает Perl, и на нем установлена программа sendmail. Она обычно находится здесь: /usr/sbin/sendmail, но может быть такое: /usr/bin/sendmail или /usr/lib/sendmail. Вначале напишем программу, которая просто отошлет тебе на почту просто сообщение: Здравствуй, мой сладенький.

Назовем нашу программу mail.cgi. Для удобства ты сможешь ее вызывать из своего браузера. Например, так: http://www.mailhack.ru/cgi-bin/mail.cgi. Теперь напишем сам код программы, а я буду объяснять каждую строчку. Ееhhfdgijsd Наверное, ты уже знаешь, что проги на перле начинаются со строки #!/usr/local/bin/perl. Вот код:

#!/usr/local/bin/perl

$mailprog = '/usr/sbin/sendmail'; # Расположение программы sendmail на сервере

$mail = 'test@mail.ru'; # Присваиваем переменной $mail почту для проверки

# Этой переменной присвой свой e-mail

$from = 'abracadbra@los.ru'; # От кого будет письмо

open (MAIL, "|$mailprog -t"); # Запускаем программу sendmail

print MAIL "Content-Type: text/plain; charset=windows-1251\n"; # Выводим заголовок

print MAIL "Subject: Привет от Васи!\n"; # Здесь выводим сабж письма (придумай свой)

print MAIL "To: $mail\n"; # Говорим, кому шлем

print MAIL "From: $from\n\n"; # Говорим, от кого письмо

# Теперь должно идти само письмо

print MAIL " Здравствуй, мой сладенький.\n"; # Вот само сообщение