BHG CSF Connector

Hi Guys
CSF Connector is a script that you can work with csf easily
Just run it you can these choose :
1- Install CSF [HELP]
2- Add IP To Safe List";
3- Remove IP From Safe List";
4- Add IP To Deny List";
5- Remove IP From Deny List";
6- Stop CSF";
7- Start CSF";
8- Restart CSF";
9- Update CSF";
10- UNINSTALL CSF";
11- Exit";



#!/usr/bin/perl
#Black Hat Group CSF Connector
#It's Ganna Help you to install and use CSF easy
#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 ....
#www.Black-HG.Org   | Our Forum : www.Black-HG.Org/cc/
#IRANIAN HACKERS
#########################################################################
system(($^O eq 'MSWin32') ? 'cls' : 'clear');  # or system("clear");
print "\n\n\n\t\t Welcome To #BHG CSF Connector";
print "\n\n\t\t Code By G3n3Rall\n\n";
sleep(3);
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
MENU:;
print"\n\t Black Hat Group Security Center : www.black-hg.org\n\n";
print "\n\t\t What Do you want to do ?";
sleep(2);
print "\n\n\t\t 1- Install CSF [HELP]";
print "\n\t\t 2- Add IP To Safe List";
print "\n\t\t 3- Remove IP From Safe List";
print "\n\t\t 4- Add IP To Deny List";
print "\n\t\t 5- Remove IP From Deny List";
print "\n\t\t 6- Stop CSF";
print "\n\t\t 7- Start CSF";
print "\n\t\t 8- Restart CSF";
print "\n\t\t 9- Update CSF";
print "\n\t\t 10- UNINSTALL CSF";
print "\n\n\t\t 11- Exit";
print "\n\n\n\t Choose:";
$Menu = <STDIN>;
chomp ($Menu);
###############################################################################
if ($Menu == 11) {
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print"\nExit\n";
exit;
}
###############################################################################
if ($Menu == 1 ) {
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print"\n\n\tHELP FOR DOWNLOAD AND  INSTALL CSFL";
sleep(2);
print"\n\n\t Frist Download CSF \n";
sleep(2);
print"\n\t From This Link http://www.configserver.com/free/csf.tgz /csf.tgz";
print"\n\t Example : wget http://www.configserver.com/free/csf.tgz /csf.tgz";
sleep(2);
print"\n\t Then Extract File : tar -xzf csf.tgz";
sleep(2);
print"\n\t After That If you Want remove file : rm -fv csf.tgz";
sleep(2);
print"\n\t Go to csf floder that you extracted : cd csf";
sleep(2);
print"\n\t Set Permission : chmod 777 install.sh";
sleep(2);
print"\n\t And Install : sh install.sh";
sleep(2);
print"\n\t For Testing CSF ...";
print"\n\t perl /etc/csf/csftest.pl";
sleep(2);
print "\n\n\n\t\t FINISH ;)";
sleep(3);
Choose2:;
print "\n\n\t What Do you want to do now ?";
print"\n\t 1- Go To Menu";
print"\n\t 2- Exit";
print"\n\n\t\t Choose:";
$Choose2=<STDIN>;
chomp ($Choose2);
if ($Choose2 == 1){
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print"\n\t\t ok ";
sleep(3);
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
goto MENU;
}
if ($Choose2 == 2){
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print"\nExit\n";
exit;
}
if ($Choose2 =! 1 || 2){
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print"\n\t\tInvalid ID";
goto Choose2;
}

}
###############################################################################
if ($Menu == 2) {
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print "\n\t\t Enter IP:";
$IP =<STDIN>;
print "\n\t\tPlease Wait\n";
system("csf -a $IP");
print "\n\n\t\tDone\n";
sleep(2);
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
goto MENU;
}
###############################################################################
if ($Menu == 3){
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print "\n\t\t Enter IP:";
$IP2 =<STDIN>;
print "\n\t\tPlease Wait\n";
system("csf -ar $IP2");
print "\n\n\t\tDone\n";
sleep(2);
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
goto MENU;
}
###############################################################################
if ($Menu == 4){
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print "\n\t\t Enter IP:";
$IP3 =<STDIN>;
print "\n\t\tPlease Wait\n";
system("csf -d $IP3");
print "\n\n\t\tDone\n";
sleep(2);
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
goto MENU;
}

##############################################################################
if ($Menu == 5){
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print "\n\t\t Enter IP:";
$IP4 =<STDIN>;
print "\n\t\tPlease Wait\n";
system("csf -dr $IP4");
print "\n\n\t\tDone\n";
sleep(2);
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
goto MENU;
}
###############################################################################
if ($Menu == 6){
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print"\n\t\t Stoping CSF\n";
system("csf -f");
print "\n\n\t\t Stoped\n";
sleep(2);
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
goto MENU;
}
###############################################################################
if ($Menu == 7){
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print"\n\t\t Starting CSF\n";
system("csf -s");
print "\n\n\t\t Start\n";
sleep(2);
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
goto MENU;
}
###############################################################################
if ($Menu == 8){
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print"\n\t\t Restarting CSF\n";
system("csf -r");
print "\n\n\t\t Restarted\n";
sleep(2);
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
goto MENU;
}
###############################################################################
if ($Menu == 9){
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print"\n\t\t Updating CSF\n";
system("csf -u");
print "\n\n\t\t Updated\n";
sleep(2);
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
goto MENU;
}
###############################################################################
if ($Menu == 10){
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print"\n\t\t Uninstalling CSF Please Wait...\n";
print"\n";
system("sh /etc/csf/uninstall.sh");
print"\n";
sleep(2);
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
goto MENU;
}
###############################################################################
if ($Menu =! 1 || 2 || 3 || 4 || 5 || 6 || 7 || 8 || 9 || 10 || 11) {
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print"\n";
syswrite STDOUT, "\n\t\t INVALID ID \n";
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.