VK status changer public =P

Discussion in 'Социальные сети' started by svesve, 21 Oct 2009.

  1. svesve

    svesve Elder - Старейшина

    Joined:
    15 Jun 2007
    Messages:
    574
    Likes Received:
    86
    Reputations:
    11
    Подкину все продавцам какашечку )))

    Статус чейнджер давно есть в паблике
    в 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 = $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; 
    }
     
    #1 svesve, 21 Oct 2009
    Last edited: 24 Oct 2009
  2. brainy

    brainy Member

    Joined:
    21 Aug 2009
    Messages:
    30
    Likes Received:
    44
    Reputations:
    4
    а кому нужен недоделанный скрипт? без анти-капчи он абсолютно бесполезен, капча выскакивает на 3-5 акке...
    если уж на то пошло, и "кому надо тот прикрутит"... то "кому надо, тот сам и напишет полностью"
     
  3. Solker

    Solker Elder - Старейшина

    Joined:
    4 May 2006
    Messages:
    175
    Likes Received:
    53
    Reputations:
    18
    Неужели это кто то продает.
    Хотя нет, неужели это кто то покупает.
     
  4. svesve

    svesve Elder - Старейшина

    Joined:
    15 Jun 2007
    Messages:
    574
    Likes Received:
    86
    Reputations:
    11

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

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

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

    wildshaman Elder - Старейшина

    Joined:
    16 Apr 2008
    Messages:
    477
    Likes Received:
    483
    Reputations:
    99
    Просто ты не понимаешь, во сколько десятков раз оно за стуик окупается ;)
     
  6. IT Security

    IT Security New Member

    Joined:
    23 Aug 2009
    Messages:
    0
    Likes Received:
    1
    Reputations:
    0
    Кто то продает, и многие покупают.

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

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

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


    icq 71711117
     
  7. svesve

    svesve Elder - Старейшина

    Joined:
    15 Jun 2007
    Messages:
    574
    Likes Received:
    86
    Reputations:
    11
    По желанию любой у кого руки прямые может переписать для себя )))
    каркас есть, главное желание )))
     
  8. Skam48

    Skam48 New Member

    Joined:
    17 Sep 2009
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    спасибо!!!
     
  9. spamerok

    spamerok New Member

    Joined:
    30 Aug 2009
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    классно-классно-классно!!!
     
  10. Tombik

    Tombik Banned

    Joined:
    21 Dec 2008
    Messages:
    18
    Likes Received:
    85
    Reputations:
    13
    херень, без антикапчи, имхо, толку ноль, тем более, сегодня уже не актуально.
     
  11. svesve

    svesve Elder - Старейшина

    Joined:
    15 Jun 2007
    Messages:
    574
    Likes Received:
    86
    Reputations:
    11

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

     
  12. IT Security

    IT Security New Member

    Joined:
    23 Aug 2009
    Messages:
    0
    Likes Received:
    1
    Reputations:
    0
    Tombik, почему неактуально? Актуально имхо.
     
  13. Tombik

    Tombik Banned

    Joined:
    21 Dec 2008
    Messages:
    18
    Likes Received:
    85
    Reputations:
    13
    имею ввиду то, что сегодня вк изменили что-то, поэтому этот скрипт не актуален.
     
  14. svesve

    svesve Elder - Старейшина

    Joined:
    15 Jun 2007
    Messages:
    574
    Likes Received:
    86
    Reputations:
    11
    Все актуально и все пашет.
     
  15. IT Security

    IT Security New Member

    Joined:
    23 Aug 2009
    Messages:
    0
    Likes Received:
    1
    Reputations:
    0
    Мой пашет, все ок. :)
     
  16. atix

    atix New Member

    Joined:
    11 Mar 2008
    Messages:
    13
    Likes Received:
    1
    Reputations:
    0
    Пашет нормально этот скрипт...Ну а насчет актуальности хз

    Что то снять можно:)
     
  17. gluke

    gluke Banned

    Joined:
    6 Jun 2008
    Messages:
    33
    Likes Received:
    40
    Reputations:
    1
    Пашет то пашет, вот только кирилица в статусе отображается как
    Кто нибудь в курсе в чем косяк?
     
  18. Pir4tt

    Pir4tt Elder - Старейшина

    Joined:
    3 Jan 2008
    Messages:
    73
    Likes Received:
    36
    Reputations:
    5

    Текст перед подстановкой в статус надо в уникод переводить:)
     
  19. jkSeyv

    jkSeyv Member

    Joined:
    19 Jan 2009
    Messages:
    0
    Likes Received:
    18
    Reputations:
    3
    Всем для тех, кто пользуется прогой :)

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

    думаю успели, сообщение было не для паблика :)
     
    #19 jkSeyv, 7 Nov 2009
    Last edited: 7 Nov 2009
  20. Артик

    Артик Elder - Старейшина

    Joined:
    13 Sep 2006
    Messages:
    0
    Likes Received:
    3
    Reputations:
    0
    ТС ты идиот!!!!!
    Накрыл тему с концами...