Форум АНТИЧАТ - Выжмем немного трафа с vkontakte

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- Черные методы раскрутки (https://forum.antichat.xyz/forumdisplay.php?f=118)

- - Выжмем немного трафа с vkontakte (https://forum.antichat.xyz/showthread.php?t=96440)

Выжмем немного трафа с vkontakte

Выжмем немного трафа с vkontakte

Думаю что америку не открыл, но до этого никто про это не писал.
Расскажу на примере получения мужского трафа.
Смысл в том чтобы вас добавляли в друзья, смотрели вашу страницу и тыкали на вашу интересную ссылку в инфо.
Делать мы это будем с помощью одной интересной функции "Предложения" - http://vkontakte.ru/matches.php?act=search .
Замечаем что после согласия на одно предложение приходит следущее.

1)Создаём женскую анкету с фотографией похожей на реального человека, а не порнозвезды из Германии. Очень полезно если у вас будет большой рейтинг, но покупать его ради этого не стоит. Страницу естественно должны видеть все пользователи.

2)Качаем кликер - AvK - на самом деле этот кликер предназначен для игры Lineage
Кликать можно спокойно каждую секунду...
Кликер работает в активном окне т.е вам нужен либо дед либо вы можете этим заниматься за своим компом пока спите ибо кликер кликает там где находится курсор.
Есть некоторые нбансы: у пользователей бывает очень длинное предложение или очень высокий аватар который смещает кнопочку "Да" по которой мы кликаем. В кликере можно поставить обновление страницы например через каждые 2мин, кто не знает это кнопка F5 помоему везде.

3) Самый главной пункт. пишем в статусе: Я добавила новое видео(фото) на свой сайт.

4)Ваша фантазия... :D

P.S стого не судите может всё это геморой и чушь но трафик с этого получить можно и где-нибудь он да сконвертится.
Много видел таких анкет...

Имхо бред. Проще написать скрип который будет добавлять друзей

EST a1ien, помоему такой уже есть но не у всех... =)

вот кликер очень полезная вещь, и не только
--------

фаер ругается на вирус, заливай чистый кликер

sms_spam, изначально был чистый, название я написал, не могу сходу найти,
не суть, у меня hidrag на компе или как-то так он называется...

И какой трафик думаете можно нагнать таким белым методом?

Adv, не считаю этот траф белым,
чесно этот траф вполне идёт как траф под знакомства, позволю себе оставить тут рефку - fotocash.ru
сливаю туда еще трафбэк...

Бред какой то!

Такой трафф очень плохо конвертится...по крайней мере у меня=)но все же лучше, чем ничего...под кинотрафф пойдет

Кликер чистый дайте:)

http://www.google.ru/search?hl=ru&newwindow=1&q=%D1%81%D0%BA%D0%B0%D1%8 7%D0%B0%D1%82%D1%8C+AvK&btnG=%D0%9F%D0%BE%D0%B8%D1 %81%D0%BA&lr=&aq=f&oq=

Цитата:

Сообщение от ICQ Hool

ыы))
http://www.virustotal.com/ru/analisis/3f924dd8a1acdf23e6d9c68b694dbcb3

Цитата:

Сообщение от >DVD_RW<

http://www.google.ru/search?hl=ru&newwindow=1&q=%D1%81%D0%BA%D0%B0%D1%8 7%D0%B0%D1%82%D1%8C+AvK&btnG=%D0%9F%D0%BE%D0%B8%D1 %81%D0%BA&lr=&aq=f&oq=

Ты запарил...в каждой бочке затычка...Не строй из себя умника, а лутше промолчи и не набивай себе посты...

Цитата:

Сообщение от >.:!FrE!:.<

Ты запарил...в каждой бочке затычка...Не строй из себя умника, а лутше промолчи и не набивай себе посты...

я не строю из себя умника - напиши в асе... я всё объясню :p я не набиваю посты - я флудер :eek:

чуть позже выложу скрипт на перле... пока не разберусь на сколько он эффективен,
но естественно эффективней чем кликер =))
Там же ведь еще какое-то ограничение сделали по кол-ву соглашений в какой-то интервал.
со скриптом можно работать в одновременно N-ом кол-ве акков с параметрами типа город, пол, возраст что позволит как-то сортировать траф если это кому-то необходимо.

ICQ Hool, я могу быть не прав, но по-моему есть ещё максимальное кол-во согласий по моему около 300.

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;

Чтото не фурычит скрипт, постоянно ерор выдает. С чем это может быть связанно?

эрор какого типа?

о ебать этож мой скрипт)))

При запуске логинится нормально потом пишет:
Use of unitialized valie $m in concatenaation (.) or string at c:\stript.pl line 58.
.error

Только что запускал все пашет, это у тя чето с аком может быть

Врятли, пробовал с нескольких, одна и таже ошибка.

Цитата:

Сообщение от code_one

При запуске логинится нормально потом пишет:
Use of unitialized valie $m in concatenaation (.) or string at c:\stript.pl line 58.
.error

Тоже самое...

Вот нашол другой скрипт и тоже на перле :)

PHP код:


		
			
#!/usr/bin/perl



use warnings;

use strict;

use IO::Socket;



$|=1;



# конфиг ###########################



my ($email, $pass) = ('e-mail', 'pass'); # логин/пасс



my $sex   = 2; # ПОЛ. 0 - любой, 1 - женский, 2 - мужской

my $years = 0; # ВОЗРАСТ. 0 - до 18-ти, 1 - 18-26, 2 - от 27-ми



my $num = 20000;  # сколько человек пригласить



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



my ($answer, $stop) = (undef, 0);



my $socket = IO::Socket::INET->new('vkontakte.ru:80') || die "\nCan't Connect To Vkontakte.ru\n";



my $content = "email=$email&pass=$pass";



print $socket "POST /login.php HTTP/1.1\r\n"

              ."Host: vkontakte.ru\r\n"

              ."User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.8.1.20) Gecko/20081217 Firefox/2.0.0.20\r\n"

              ."Referer: http://vkontakte.ru/\r\n"

              ."Cookie: remixlang=0; remixchk=5\r\n"

              ."Connection: close\r\n"

              ."Content-Type: application/x-www-form-urlencoded\r\n"

              ."Content-Length: ". length ($content) ."\r\n\r\n"

              .$content;

              

              {

                local $/ = undef;

                $answer = <$socket>;

                close $socket

                

              }

              

              my @data = $answer =~ /remixmid=(\d+)

                                     .*

                                     remixpass=([a-f0-9]{32})

                                     .*

                                     remixsid=([a-f0-9]{56})/xs;





if (scalar @data == 3) {&log("[+] GET DATA FROM $email\n")} else {&log("[-] CAN'T GET DATA FROM $email\n"); exit }





while ($num > $stop) {





$socket = IO::Socket::INET->new('vkontakte.ru:80') || die "\nCan't Connect To Vkontakte.ru\n";



$content = "act=a_search&st=0&c=0&s=$sex&y=$years&id=0";



print $socket "POST /matches.php HTTP/1.1\r\n"

             ."Host: vkontakte.ru\r\n"

             ."User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.8.1.20) Gecko/20081217 Firefox/2.0.0.20\r\n"

             ."Content-Type: application/x-www-form-urlencoded\r\n"

             ."Connection: close\r\n"

             ."X-Requested-With: XMLHttpRequest\r\n"

             ."Referer: http://vkontakte.ru/matches.php?act=search\r\n"

             ."Cookie: remixlang=0; remixchk=5; remixmid=$data[0]; remixemail=$email; remixpass=$data[1]; remixsid=$data[2]\r\n"

             ."Pragma: no-cache\r\n"

             ."Content-Length: ". length ($content) ."\r\n\r\n"

             .$content;

             

              {

                local $/ = undef;

                $answer = <$socket>;

                close $socket

                

              }



my ($id) = $answer =~ m{href='id(\d+)'>};



next if !defined $id;



$content = "act=a_search&st=0&c=0&s=$sex&y=$years&id=$id";



$socket = IO::Socket::INET->new('vkontakte.ru:80') || die "\nCan't Connect To Vkontakte.ru\n";



print $socket "POST /matches.php HTTP/1.1\r\n"

             ."Host: vkontakte.ru\r\n"

             ."User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.8.1.20) Gecko/20081217 Firefox/2.0.0.20\r\n"

             ."Content-Type: application/x-www-form-urlencoded\r\n"

             ."Connection: close\r\n"

             ."X-Requested-With: XMLHttpRequest\r\n"

             ."Referer: http://vkontakte.ru/matches.php?act=search\r\n"

             ."Cookie: remixlang=0; remixchk=5; remixmid=$data[0]; remixemail=$email; remixpass=$data[1]; remixsid=$data[2]\r\n"

             ."Pragma: no-cache\r\n"

             ."Content-Length: ". length ($content) ."\r\n\r\n"

             .$content;



              {

                local $/ = undef;

                $answer = <$socket>;

                close $socket

                

              }

              

              if ($answer =~ m{200 OK}) {&log("[+] INVITE $id\n")} else {&log("[-] CAN'T INVITE $id\n")}



$stop++;

sleep 3;



}





sub log {

    open LOG, '>>', 'log.txt';

    print LOG $_[0];

    print $_[0];

    close LOG;    

}

Работает на ура:)

Этот контакт уже высушен и вы... скоко можно )))

Цитата:

Сообщение от Carnivore.Sys

Этот контакт уже высушен и вы... скоко можно )))

Не соглашусь.Еще не "высушен".

Всем привет! У меня скрипт неработает. В логе выдает ошибку: CAN'T GET DATA FROM «мыло для логина» В чем может быть дело?

Цитата:

Сообщение от focusnik

то же самое..

тема неактуальна, ввели капчу на предложения

капчу уже везде повводили... скоро до голсовой капчи еще доберутся