[PERL] WordPress Plugin Finder

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

# WordPress Plugin finder

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

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

sub exit_a {

    print "\nGabry9191 WordPress Plugin finder how to use it :
    
For some proxys ip use it -> http://gabry9191.altervista.org/Sources/22.txt
 
 perl wordpress_plugin_finder.pl <website> <proxy_ip_and_port>
    
exemple for find directories :
 perl wordpress_plugin_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 = ('/wp-content/plugins/sermon-browser/sermon.php','/wp-content/plugins/ajax-category-dropdown/includes/dhat-ajax-cat-dropdown-request.php','/wp-content/plugins/wp-custom-pages/wp-download.php','/wp-content/plugins/flash-album-gallery/lib/hitcounter.php','/wp-content/plugins/old-post-spinner/logview.php','/wp-content/plugins/jquery-mega-menu/skin.php','/wp-content/plugins/iwant-one-ihave-one/updateAJAX.php','/wp-content/plugins/forum-server/feed.php','/wp-content/plugins/comment-rating/comment-rating-options.php','/wp-content/plugins/comment-rating/ck-processkarma.php','/wp-content/plugins/mingle-forum/feed.php','/forums/index.php','/wp-content/plugins/nextgen-smooth-gallery/nggSmoothFrame.php','/wp-content/plugins/firestats/php/tools/get_config.php','/wp-content/plugins/cimy-counter/cimy_counter.php','/wp-content/plugins/cimy-counter/cc_redirect.php','/wp-content/plugins/nextgen-gallery/xml/media-rss.php','/wp-content/plugins/cpl/cplphoto.php','/wp-content/plugins/wp-cumulus/wp-cumulus.php','/wp-content/plugins/wp-syntax/test/index.php','/wp-content/plugins/related-sites/BTE_RW_webajax.php','/wp-content/plugins/dm-albums/dm-albums.php','/wp-content/plugins/dm-albums/template/album.php','/wp-content/plugins/photoracer/viewimg.php','/wp-content/plugins/wp-lytebox/main.php','/wp-content/plugins/wp-forum/forum_feed.php','/wp-content/plugins/page-flip-image-gallery/books/getConfig.php','/wp-content/plugins/wp-shopping-cart/image_processing.php','/wp-content/plugins/st_newsletter/stnl_iframe.php','/wp-content/plugins/downloads-manager/upload.php','/wp-content/plugins/wpSS/ss_load.php','/wp-content/plugins/sniplets/modules/syntax_highlight.php','/wp-content/plugins/sniplets/view/sniplets/warning.php','/wp-content/plugins/fgallery/fim_rss.php','/wp-content/plugins/wp-cal/functions/editevent.php','/wp-content/plugins/wp-filemanager/ajaxfilemanager/ajaxfilemanager.php','/wp-content/plugins/pictpress/resize.php','/wp-content/plugins/myflash/myflash-button.php','/wp-content/plugins/wordtube/wordtube-button.php','/wp-content/plugins/wp-table/js/wptable-button.phpp','/wp-content/plugins/Enigma2.php');
$website = "http://" . $website;

my $ua = LWP::UserAgent->new;
$ua->agent('Mozilla 4.76[en] - Windows 2000');
print "\n\nGabry9191 - WordPress Plugin 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";


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