УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > SЕО/Финансовые задачи/Социальные сети > Социальные сети
VK status changer public =P

Страница 1 из 3

Опции темы

Поиск в этой теме

Опции просмотра

VK status changer public =P

21.10.2009, 10:24

svesve

Постоянный

Регистрация: 15.06.2007

Сообщений: 527

Провел на форуме:
1734541

Репутация: 214

VK status changer public =P

Подкину все продавцам какашечку )))

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

Для работы с AntiCaptcha нужны либа
Скачать и положить в C:\Perl\lib

Источник тут (uasc.org.ua)

PHP код:


		
			
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; 

}

Последний раз редактировалось svesve; 24.10.2009 в 20:52.. Причина: добавил АС

21.10.2009, 11:41

brainy

Участник форума

Регистрация: 21.08.2009

Сообщений: 131

Провел на форуме:
2058728

Репутация: 60

Цитата:

кому надо тот прикрутит АС.

а кому нужен недоделанный скрипт? без анти-капчи он абсолютно бесполезен, капча выскакивает на 3-5 акке...
если уж на то пошло, и "кому надо тот прикрутит"... то "кому надо, тот сам и напишет полностью"

21.10.2009, 11:44

Solker

Участник форума

Регистрация: 04.05.2006

Сообщений: 161

Провел на форуме:
389768

Репутация: 158

Неужели это кто то продает.
Хотя нет, неужели это кто то покупает.

21.10.2009, 12:03

svesve

Постоянный

Регистрация: 15.06.2007

Сообщений: 527

Провел на форуме:
1734541

Репутация: 214

Цитата:

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

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

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

З.Ы. с любыми претензиями можете идти сами знаете куда

21.10.2009, 12:11

wildshaman

Постоянный

Регистрация: 16.04.2008

Сообщений: 889

Провел на форуме:
12942062

Репутация: 1550

Отправить сообщение для wildshaman с помощью ICQ

Цитата:

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

Неужели это кто то продает.
Хотя нет, неужели это кто то покупает.

Просто ты не понимаешь, во сколько десятков раз оно за стуик окупается

21.10.2009, 14:19

IT Security

Новичок

Регистрация: 23.08.2009

Сообщений: 6

Провел на форуме:
235115

Репутация: 3

Отправить сообщение для IT Security с помощью ICQ

Кто то продает, и многие покупают.

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

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

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

icq 71711117

21.10.2009, 14:28

svesve

Постоянный

Регистрация: 15.06.2007

Сообщений: 527

Провел на форуме:
1734541

Репутация: 214

По желанию любой у кого руки прямые может переписать для себя )))
каркас есть, главное желание )))

21.10.2009, 14:41

Skam48

Новичок

Регистрация: 17.09.2009

Сообщений: 0

Провел на форуме:
130461

Репутация: 0

спасибо!!!

21.10.2009, 15:42

spamerok

Новичок

Регистрация: 30.08.2009

Сообщений: 1

Провел на форуме:
60418

Репутация: 0

Отправить сообщение для spamerok с помощью ICQ

классно-классно-классно!!!

#10

21.10.2009, 16:01

~~Tombik~~

Banned

Регистрация: 21.12.2008

Сообщений: 413

Провел на форуме:
4991305

Репутация: 352

херень, без антикапчи, имхо, толку ноль, тем более, сегодня уже не актуально.

Страница 1 из 3

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
VK status changer by Scotty	Скотти	Покупка, продажа, услуги в Соц. Сетях	11	06.01.2010 01:07
Разбираем матрицу: QR-код и чем его «едят» (C#).	c0n Difesa	С/С++, C#, Delphi, .NET, Asm	17	18.11.2009 19:53
Методы API Вконтакте	SoulReaver	Социальные сети	0	12.08.2009 15:46
ВКонтакте "счастливый фермер"	ЖенькО	Социальные сети	309	22.07.2009 11:35

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход