Rambler Spamer [perl]
многопоточный, для работы нужны акки рамблера
в maillist кидать мыла в которые будем спамить
в accounts акки рамблера
текст спама на свой измените
Код:
#! /usr/bin/perl
##########################Rambler Spamer (c)0ded by noname 2008-09
#####################################################icq:
use LWP::UserAgent;
use HTTP::Cookies;
use strict;
use utf8;
use threads;
use threads::shared;
my @hi=("<b>Внимание!</b> ","<b>Обратите внимание!</b>","<b>Обратите внимание! Идентификация вашего e-mail.</b>");
my @center=("Вас приветствует служба технической поддержки проекта «Яндекс.Почта».
Вы должны пройти процедуру активации вашего ящика. В противном случае ваш ящик будет удален. Это новая мера безопасности от компании Yandex.
<br><br>
Для активации отправьте с вашего телефона <b>бесплатное</b> смс сообщение с текстом: <font color=red>777101511</font> на номер: <font color=red>3858</font>
",
"Вас приветствует служба технической поддержки проекта «Яндекс.Почта».
Вы должны пройти процедуру активации вашего ящика. В противном случае ваш ящик будет удален. Это новая мера безопасности от компании Yandex.
<br><br>
Для активации отправьте с вашего телефона <b>бесплатное</b> смс сообщение с текстом: <font color=red> 777101511</font> на номер: <font color=red>3858</font>
",
);
my @by=("С уважением, служба безопасности Yandex.ru",
"С уважением, служба инфорационной безопасности",
"С уважением, администрация");
my @subject=('Идентификация E-MAIL',
'Mail.Идентификация',
'Идентифицируйте свой аккаунт',
'Идентификация почты.',
);
#open(LINKS,"links.txt");my @links=<LINKS>;
open(MAILLIST,"maillist.txt");my @mail:shared=<MAILLIST>;
open(LOGINLIST,"accounts.txt");my @login:shared=<LOGINLIST>;
open(PROXY,"proxylist.txt");my @plist:shared=<PROXY>;
my $potok=undef;
print "Enter count of threads: "; chomp( my $potok=<> );
my @trl;
for(0..$potok-1) {$trl[$_] = threads->create(\&sendmsg);}
for(@trl) { $_->join; }
sub sendmsg{
my $browser=LWP::UserAgent->new;
$browser->cookie_jar( HTTP::Cookies->new);
START:
my $randomsubj=rand($#subject);
my $subject=$subject[$randomsubj];
my $randomlogin=rand($#login);
my $xemail=$login[$randomlogin];
chomp($xemail);
my ($login,$password)=split(':',$xemail);
my $loginurl='http://id.rambler.ru/script/auth.cgi';
my $response=$browser->post($loginurl,[
"back" => "http%3A%2F%2Fmail.rambler.ru%2Fmail%2Fstartpage",
"url"=>"7",
"login" => $login,
"passw"=>$password,
"submit"=>'%D0%92%D0%BE%D0%B9%D1%82%D0%B8',
])->code;
if ($response == 302) { print "$xemail | Login OK! | Spam started\n"; } else { print "$xemail | Login FAILED! | Go to next account\n"; goto START;}
#####Send message#
#my $message2send=$hi[rand($#hi)] . "\n" . $center[rand($#center)] . "\n" . $links[rand($#links)] . "\n" . $by[rand($#by)];
my $message2send=$hi[rand($#hi)] . "<br>" . $center[rand($#center)] . "<br>" . $by[rand($#by)];
my $email=undef;
{lock(@mail); $email=shift @mail;}
chomp($email);
my $sendurl='http://mail.rambler.ru/mail/mail.cgi';
my $response=$browser->get($sendurl)->as_string;
my ($rkey)=$response=~m/request_key = "(.*?)";/ig;
$response=$browser->post($sendurl,[
"enc" => 'utf-8',
"mode" => "compose",
"do"=>"new",
"typeMailText"=>"html",
"attach"=>"",
"to"=>$email,
"cc"=>"",
"bcc"=>"",
"subject"=>$subject,
"text2"=>$message2send,
"save_sent"=>"on",
"text"=>"",
"request_key"=>$rkey,
"send"=>"send_js",
])->as_string;
open(LOG,">>log.txt");
print LOG "Message from $xemail to $email has been sent!\n";
close(LOG);
if($#mail>0){goto START;};
}
|
