Черные методы раскрутки Rambler Spamer [perl]

многопоточный, для работы нужны акки рамблера
в maillist кидать мыла в которые будем спамить
в accounts акки рамблера
текст спама на свой измените

Code:

#! /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;};
 }
 

 

гуд, ещё бы сборщик мыл)

 

кстать какой бил примет подобное?

 

Чего то он нихрена не работает

 

Скачай интерпретатор перловский

 

Спасибо, только спам по мылам не оч актуален сейчас...

 

не знаю ) спамер на деде нашел