PDA

Просмотр полной версии : VK status changer public =P

svesve
21.10.2009, 10:24
Подкину все продавцам какашечку )))

Статус чейнджер давно есть в паблике
в accounts.txt акки вида мыло:пасс
в status.txt – кладем статусы,каждый статус с новой строки

Для работы с AntiCaptcha нужны либа
Скачать (http://slil.ru/28105399) и положить в C:\Perl\lib

Источник тут (http://uasc.org.ua/2009/09/vkontakte-status-changer/) (uasc.org.ua)

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Cookies;
use threads;
use Fcntl ':flock';
use threads::shared;
use AntiCaptcha;

my @ACCOUNTS:shared = &fopen('путь к файлу accounts.txt');
my @STATUS:shared = &fopen('путь к файлу status.txt');
my $threads = scalar(@ACCOUNTS)>15?15:scalar(@ACCOUNTS);
my @trl = ();

$|=1;
my $ac = AntiCaptcha->new('antigate.com', 'ваш ключ на АС');

$trl[$_] = threads->create(\&main)
for 0..$threads-1; $_->join for @trl;
foreach (<*.dat>) {
unlink;
}
exit(0);

sub main {
my ($ua,$ck) = &browser;
while (@ACCOUNTS) {
my $acc; {
lock(@ACCOUNTS);
$acc = shift @ACCOUNTS;
} my ($email,$pass) = split(':',$acc);
($email,$pass) = split(';',$acc) if (!$email);
my $page = $ua->get('http://vkontakte.ru/index.php')->as_string;
$page .= $ua->post('http://vkontakte.ru/login.php?op=slogin&nonenone=1',['s'=>'nonenone'])->as_string;
$page .= $ua->post('http://vkontakte.ru/login.php',['op'=>'a_login_attempt'])->as_string;
if ($page =~ /"captcha_sid":"(.+?)"/i) {
$page = $ua->get('http://vkontakte.ru/captcha.php?s=1&sid='.$1)->content;
open FILE,'>'.$1.'.jpg';
binmode FILE;
print FILE $page;
close FILE;
my $id = $ac->Recognize($1.'.jpg');
my $answ = undef;
until($answ = $ac->GetStatus($id))
{
sleep 5;
}
$page .= $ua->post('http://vkontakte.ru/login.php',['op'=>'a_login_attempt','captcha_sid'=>$1,'captcha_key'=>$answ])->as_string;
} else{
$page .= $ua->post('http://login.vk.com/?act=login',['email'=>$email,'pass'=>$pass,'expire'=>'1','vk'=>''])->as_string;
}
my ($s) = $page =~ /'s' value='(.+?)'/i;
$ua->post('http://vkontakte.ru/login.php?op=slogin&redirect=1', [ 's' => $s ] )->as_string;
$page = $ua->get('http://vkontakte.ru/profile.php')->as_string;
if (length($page)>=20000) {
my $id = '0';
$id = $1 if ($page =~ /"\/id(\d+)"/i);
my ($hash) = $page =~ /id='activityhash' value='(.+?)'/i;
$page = $ua->post('http://vkontakte.ru/profile.php', [ 'setactivity' => $STATUS[rand @STATUS], 'activityhash'=>$hash ] )->as_string;
if ($page =~ /"captcha_sid":"(.+?)"/i) {
$page = $ua->get('http://vkontakte.ru/captcha.php?s=1&sid='.$1)->content;
open FILE,'>'.$1.'.jpg';
binmode FILE;
print FILE $page;
close FILE;
my $id = $ac->Recognize($1.'.jpg');
my $answ = undef;
until($answ = $ac->GetStatus($id))
{
sleep 5;
}
$page = $ua->post('http://vkontakte.ru/activation.php', [ 'setactivity' => $STATUS[rand @STATUS], 'activityhash'=>$hash, 'captcha_sid'=>$1, 'captcha_key'=>$answ ] )->as_string;

}
print ' + '.($id eq'0'?$acc:'id'.$id).": changed!\n";
}else{
print ' - '.$acc.": bad acc!\n";
}
}
}

sub browser {
my $ua = new LWP::UserAgent;$ua->agent('Mozilla/5.0 (Windows; U; Windows NT 6.0; en-US; rv:1.9.1.1) Gecko/20090715 Firefox/3.5.1');
my $cookie_jar = HTTP::Cookies->new(file => "./".rand(1).".dat", autosave => 1);
$cookie_jar->clear();
$ua->cookie_jar($cookie_jar);
$ua->parse_head(0);
$ua->timeout(10);
return $ua, $cookie_jar;
}

sub fopen {
open(F, "<", $_[0]) || die " - [ $_[0] ] $!$/";
chomp(my @list = <F>);
close F;
return @list;
}
brainy
21.10.2009, 11:41
кому надо тот прикрутит АС.
а кому нужен недоделанный скрипт? без анти-капчи он абсолютно бесполезен, капча выскакивает на 3-5 акке...
если уж на то пошло, и "кому надо тот прикрутит"... то "кому надо, тот сам и напишет полностью"
Solker
21.10.2009, 11:44
Неужели это кто то продает.
Хотя нет, неужели это кто то покупает.
svesve
21.10.2009, 12:03
а кому нужен недоделанный скрипт? без анти-капчи он абсолютно бесполезен, капча выскакивает на 3-5 акке...
если уж на то пошло, и "кому надо тот прикрутит"... то "кому надо, тот сам и напишет полностью"


Вообщето и без АС все прекрасно летает...
Перед использование акки прочекайте и используйте только валид.

Обновил первый пост теперь с АС.

З.Ы. с любыми претензиями можете идти сами знаете куда ;)
wildshaman
21.10.2009, 12:11
Неужели это кто то продает.
Хотя нет, неужели это кто то покупает.
Просто ты не понимаешь, во сколько десятков раз оно за стуик окупается ;)
IT Security
21.10.2009, 14:19
Кто то продает, и многие покупают.

В чем отличие? Ну во первых скорость, как быстро этот скрипт поменяет 10 000 статусов? )

Насколько я вижу он не распознает пол и ставить статус под мужской и женский таргетинг - уже нельзя. А половой таргетинг очень эффективно влияет на конверт ;)

Мой VK Status Changer, ведет лог и его попросту помжно использовать как чекер аккаунтов, причем по скорости вздернет многие чекеры.


icq 71711117
svesve
21.10.2009, 14:28
По желанию любой у кого руки прямые может переписать для себя )))
каркас есть, главное желание )))
Skam48
21.10.2009, 14:41
спасибо!!!
spamerok
21.10.2009, 15:42
классно-классно-классно!!!
Tombik
21.10.2009, 16:01
херень, без антикапчи, имхо, толку ноль, тем более, сегодня уже не актуально.
svesve
21.10.2009, 16:14
херень, без антикапчи, имхо, толку ноль, тем более, сегодня уже не актуально.


парни вы вообще читаете что написано??

my $ac = AntiCaptcha->new('antigate.com', 'ваш ключ на АС');
IT Security
21.10.2009, 16:24
Tombik, почему неактуально? Актуально имхо.
Tombik
21.10.2009, 16:25
Tombik, почему неактуально? Актуально имхо.
имею ввиду то, что сегодня вк изменили что-то, поэтому этот скрипт не актуален.
svesve
21.10.2009, 16:46
имею ввиду то, что сегодня вк изменили что-то, поэтому этот скрипт не актуален.
Все актуально и все пашет.
IT Security
21.10.2009, 17:10
Мой пашет, все ок. :)
atix
21.10.2009, 17:36
Пашет нормально этот скрипт...Ну а насчет актуальности хз

Что то снять можно:)
gluke
22.10.2009, 04:36
Пашет то пашет, вот только кирилица в статусе отображается как
?4??4??4??4??4??4??1?-
Кто нибудь в курсе в чем косяк?
Pir4tt
22.10.2009, 10:35
Пашет то пашет, вот только кирилица в статусе отображается как

Кто нибудь в курсе в чем косяк?


Текст перед подстановкой в статус надо в уникод переводить:)
jkSeyv
08.11.2009, 00:44
Всем для тех, кто пользуется прогой :)

Новые изменения на сайте, возможно произошли вчера ночью, когда отключали сайт
смотрите акк http://DELETED

думаю успели, сообщение было не для паблика :)
Артик
08.11.2009, 22:16
ТС ты идиот!!!!!
Накрыл тему с концами...
svesve
08.11.2009, 22:39
ТС ты идиот!!!!!
Накрыл тему с концами...

Скрипт даааавным давно в паблике,не вижу никакой "ТЕМЫ"

З.Ы. Свободен быдло (с)