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

[ICQ Hool]

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

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

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

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

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

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

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

[EST a1ien]

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

[ICQ Hool]

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

[sms_spam]

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


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

[ICQ Hool]

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

[Adv]

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

[ICQ Hool]

Adv, не считаю этот траф белым,
чесно этот траф вполне идёт как траф под знакомства, позволю себе оставить тут рефку - fotocash.ru (http://fotocash.ru/?ref=775256207)
сливаю туда еще трафбэк...

[1ce666]

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

[BaxTep]

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

[>.:!FrE!:.<]

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

[DVD_RW]

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

[>.:!FrE!:.<]

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

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

[>.:!FrE!:.<]

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

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

[DVD_RW]

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

[ICQ Hool]

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

[nilux]

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

[ICQ Hool]

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

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


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

[code_one]

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

[nonamez]

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

[[dei]]

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

[code_one]

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

[[dei]]

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

[code_one]

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

[>.:!FrE!:.<]

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

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

[>.:!FrE!:.<]

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

#!/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]

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

[PiTeRoff]

Этот контакт уже высушен и вы... скоко можно )))
Не соглашусь.Еще не "высушен".

[focusnik]

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

[*DeViL*]

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

[ICQ Hool]

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

[mad_xakep]

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