Форум АНТИЧАТ - Показать сообщение отдельно - Выжмем немного трафа с vkontakte

nilux, неправ, только что смотрел на одном акке 6 000

держите скрипт, кликер ни к чему

PHP код:


		
			
#!/usr/bin/perl -w

###############################

# (c) [dei] 369-476-512

###############################



############ Config ###############

$email = 'xxxx@mail.ru';

$pass = '111';

$count = 100;



$city = 0;

$sex = 1;

$age = 0;

################################



use LWP::UserAgent;

use HTTP::Cookies;



my $ua = LWP::UserAgent->new;

$ua->agent('Opera/9.62 (Windows NT 6.0; U; ru) Presto/2.1.1');

$ua->cookie_jar(HTTP::Cookies->new(file => 'cookies.txt', autosave => 1));



sub login( $$ ) {

    my $em = $_[0];

    my $pa = $_[1];

     

    $em =~ s/@/%40/;

    my $req = HTTP::Request->new(POST=>'http://vkontakte.ru/login.php');

    $req->referer('http://vkontakte.ru/');

    $req->content_language('ru');

    $req->content_type('application/x-www-form-urlencoded');

    $req->content("email=$em&pass=$pa");

    my $result = $ua->request($req);

    

    if($result->code == 302) { return 1; }

}



sub myrand( $ ) {

    my $int='';

    for(my $i=1;$i<=$_[0];$i++) { $int .= int(rand(10)) }

    return $int;

}



sub accepts {

    my $req = HTTP::Request->new(GET=>'http://vkontakte.ru/matches.php?act=search');

    $req->referer('http://vkontakte.ru/groups.php?'.myrand(5));

    my $result = $ua->request($req);

        

    $result->content =~ /searchMatch\((\d+)\)/;

    my $m = $1;

    

    sleep(1);

    for(my $i=0;$i<$count;$i++) {

        $req = HTTP::Request->new(POST=>'http://vkontakte.ru/matches.php');

        $req->referer('http://vkontakte.ru/matches.php?act=search');

        $req->header('X-Requested-With: XMLHttpRequest');

        $req->content_type('application/x-www-form-urlencoded');

        $req->content('act=a_search&st=0&c='.$city.'&s='.$sex.'&y='.$age.'&id='.$m);

        $result = $ua->request($req);



        print '.';

        $|++;



        if(!($result->content =~ /searchMatch\((\d+)\)/)) { die "error\n"; }

        $m = $1;

    

        sleep(1);

    }

    print "\ndone\n";

}



if(!login($email,$pass)) { die "bad acc\n"; }

else { print "use $email\n"; }

&accepts;