[PERL] Joomla Components Finder [Full]

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

# joomla components finder

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

#!/usr/bin/perl
use warnings;
use Switch;
require LWP::UserAgent;
#

sub exit_a {

    print "\nGabry9191 joomla components finder how to use it :
    
For some proxys ip use it -> http://gabry9191.altervista.org/Sources/22.txt
 
 perl joomla_component_finder.pl <website> <proxy_ip_and_port>
    
exemple for find directories :
 perl joomla_component_finder.pl www.exeple.it 111.111.111.111:80
 
\n\n";
    exit;

}

my $website = $ARGV[ 0 ] or exit_a;
my $pr = $ARGV[ 1 ] or exit_a;
my @dir = ('com_aardvertiser','com_abc','com_addressbook','com_adsmanager','com_alfurqan15x','com_annonces','com_archeryscores','com_articleman','com_autartimonial','com_beamospetition','com_beeheard','com_blogfactory','com_caddy','com_camp','com_ccinvoices','com_chronocontact','com_ckforms','com_clan','com_clanlist','com_community','com_connect','com_crowdsource','com_dateconverter','com_dcnews','com_delicious','com_djartgallery','com_djclassifieds','com_drawroot','com_elite_experts','com_eportfolio','com_equipment','com_event','com_eventcal','com_extcalendar','com_ezautos','com_Fabrik','com_flipwall','com_g2bridge','com_gadgetfactory','com_gamesbox','com_golfcourseguide','com_google','com_graphics','com_huruhelpdesk','com_idoblog','com_if_surfalert','com_img','com_iproperty','com_itarmory','com_jacomment','com_jcommunity','com_jeajaxeventcalendar','com_jeauto','com_jefaqpro','com_jejob','com_jepoll','com_jequoteform','com_jfuploader','com_jgen','com_jimtawl','com_jmarket','com_jnewsletter','com_jnewspaper','com_joltcard','com_jomestate','com_jomtube','com_joomdle','com_joomdocs','com_joomla-visites','com_joomradio','com_jphone','com_jpodium','com_jradio','com_jsjobs','com_jstore','com_jsubscription','com_jsupport','com_jtickets','com_konsultasi','com_lead','com_maianmedia','com_manager','com_markt','com_matamko','com_mmsblog','com_multimap','com_multiroot','com_myhome','com_mysms','com_neorecruit','com_newsfeeds','com_ninjamonials','com_noticeboard','com_orgchart','com_oziogallery','com_packages','com_pandafminigames','com_phocagallery','com_php','com_picsell','com_ponygallery','com_portfolio','com_qcontacts','com_qpersonel','com_quickfaq','com_quran','com_realtyna','com_redshop','com_remository','com_restaurantguide','com_searchlog','com_sef','com_seyret','com_simpleshop','com_smartsite','com_socialads','com_spa','com_sponsorwall','com_staticxt','com_ultimateportfolio','com_wmi','com_wmtpic','com_xgallery','com_xmovie','com_ybggal','com_youtube','com_zimbcomment','com_zimbcore','com_zina','com_zoomportfolio');
$website = "http://" . $website . "/administrator/components/";

my $ua = LWP::UserAgent->new;
$ua->agent('Mozilla 4.76[en] - Windows 2000');
print "\n\nGabry9191 - joomla components finder\n\n";

open FILES,">Web_finder_results.txt" or exit_a; 
for ($i = 0; $i<@dir; $i++){

    $proxy = "http://" . $pr . "/"; 
    $ua->proxy(['http'], $proxy);
        
    $ci = $ua->get($website . $dir[$i])->as_string;

    if($ci =~ /Connection refused/i or $ci =~ /Proxy Error/i) {
       
        print "\nConnection refused by the proxy\n\n";
        exit;
                
    }
    if($ci =~ /Index page missing/i or $ci =~ /Setting the index/i or $ci =~ /Index missing/i) {
            
        print " Finded -> " . $dir[$i] . "\n";
        print FILES " Finded -> " . $dir[$i] . "\n";
            
    }else{
            
        if($ci =~ /404/i or $ci =~ /Not Found/i) {
            
            print " Error 404 -> " . $dir[$i] . "\n";
                
        }else{
            
            print " Finded -> " . $dir[$i] . "\n";
            print FILES " Finded -> " . $dir[$i] . "\n";
               
        }
        
     }

}

print "\n";


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

Tweet