[Perl] DH Secret Finder 0.8

# !usr/bin/perl
# DH Secret Finder 0.8
# (C) Doddy Hackman 2016
# Credits for the arrays : 
# Dirs : directory-list-2.3-small.txt - Copyright 2007 James Fisher
# Files : Based in wfuzz-1.4
# Link for Files : https://raw.githubusercontent.com/tuwid/darkc0de-old-stuff/master/wfuzz-1.4/wordlists/common.txt
# Shells : Based in https://github.com/bhavyanshu/Shell-Finder

use LWP::UserAgent;
use Getopt::Long;
use Color::Output;
Color::Output::Init;

GetOptions(
	"panels"   => \$panels,
	"domains"   => \$domains,
    "dirs"  => \$dirs,
    "files"   => \$files,
    "shells"   => \$shells,
	"url=s"   => \$url,
    "savefile=s"  => \$savefile,
    "verbose"  => \$verbose
);

head();

if ($panels) {
	if($panels && $url) {
		search($url,"panel");
	} else {
		sintax();
	}	
}
elsif ($domains) {
	if($domains && $url) {
		search($url,"domain");
	} else {
		sintax();
	}
}
elsif ($dirs) {
	if($dirs && $url) {
		search($url,"dir");
	} else {
		sintax();
	}
}
elsif ($files) {
	if($files && $url) {
		search($url,"file");
	} else {
		sintax();
	}
}
elsif ($shells) {
	if($shells && $url) {
		search($url,"shell");
	} else {
		sintax();
	}
}
else {
    sintax();
}

copyright();

# Functions

sub search {
	my ($url,$type) = @_;
	
	my $wordlist = "";
	my $name = "";
	
	if($type eq "panel") {
		$wordlist = "wordlists/panels.txt";
		$name = "Panels";
	} elsif($type eq "domain") {
		$wordlist = "wordlists/domains.txt";
		$name = "Domains";
	} elsif($type eq "dir") {
		$wordlist = "wordlists/directories.txt";
		$name = "Directories";
	} elsif($type eq "file") {
		$wordlist = "wordlists/files.txt";
		$name = "Files";
	} elsif($type eq "shell") {
		$wordlist = "wordlists/shells.txt";
		$name = "Shells";
	} else {
		$wordlist = "wordlists/panels.txt";
		$name = "Panels";
	}
	
	my $cantidad = 0;
	
	if(-f $wordlist) {
		printear_titulo("[+] Loading Wordlist ...\n");
		my @wordlist = load_wordlist($wordlist);
		printear("\n[+] Wordlist Loaded : ");
		print int(@wordlist)." lines\n";
		printear_logo("\n[+] Searching $name in $url ...\n\n");
		for my $line(@wordlist) {
			chomp $line;
			my $link = "";
			if($type eq "domain") {
				$link = $line.".".$url;
			} else {
				$link = $url."/".$line;
			}
			if(check_page($link)) {
				if($verbose) {
					printear("[+] Checking ");
					printear_logo("$link : ");
					printear_azul("OK\n");
				} else {
					printear_azul("[+] Link : $link\n");
				}
				$cantidad++;
				if($savefile) {
					savefile($savefile,"[+] Link : $link");
				}
			} else {
				if($verbose) {
					printear("[+] Checking ");
					printear_logo("$link : ");
					printear_rojo("FAIL\n");
				}
			}
		}
		printear("\n[+] $name Found : ");
		print "$cantidad\n";
		if($cantidad eq "0") {
			printear("\n[-] $name not found\n");
		}
		if($savefile) {
			printear_logo("\n[+] Logs $savefile saved\n");
		}
		printear_titulo("\n[+] Finished\n");
	} else {
		printear_rojo("\n[-] Wordlist not exists");
	}
}

# More Functions

sub check_page {
	my $url = shift;
	my $nave = LWP::UserAgent->new(ssl_opts => {verify_hostname => 0,SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE});
	$nave->agent("Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:25.0) Gecko/20100101 Firefox/25.0");
	$nave->timeout(10);	
	my $code = $nave->get($url);
	if ($code->is_success) {
		return 1;
	} else {
		return 0;
	}
}

sub load_wordlist {
    my @result;
    my @words;
    open( FILE, $_[0] );
    @words = <FILE>;
    close FILE;
    for (@words) {
        push( @result, $_ );
    }
    return (@result);
}

sub savefile {
	my ($filename,$text) = @_;
	open( SAVE, ">>" . $filename );
	print SAVE $text . "\n";
	close SAVE;
}

sub printear {
    cprint( "\x036" . $_[0] . "\x030" );
}

sub printear_logo {
    cprint( "\x037" . $_[0] . "\x030" );
}

sub printear_titulo {
    cprint( "\x0310" . $_[0] . "\x030" );
}

sub printear_rojo {
    cprint( "\x035" . $_[0] . "\x030" );
}

sub printear_azul {
    cprint( "\x033" . $_[0] . "\x030" );
}

sub sintax {
    printear("[+] Sintax : ");
    print "perl $0 <option> <value>\n";
    printear("\n[+] Options : \n\n");
    print "-panel -url <url> : Find panel administration in the URL\n";
    print "-domain -url <url> : Find domains in the URL\n";
    print "-dirs -url <url> : Find directories in the URL\n";
    print "-files -url <url> : Find files in the URL\n";
	print "-shells -url <url> : Find shells in the URL\n";
	print "-savefile <filename> : Save results\n";
    printear("\n[+] Example : ");
    print "perl secret_finder.pl -shells http://localhost/ -savefile results.txt\n";
    copyright();
}

sub head {
    printear_logo("\n-- == DH Secret Finder 0.8 == --\n\n\n");
}

sub copyright {
    printear_logo("\n\n-- == (C) Doddy Hackman 2016 == --\n\n");
    exit(1);
}

#The End ?