#!/usr/bin/perl

#WordPress Grab Info
#Coded By Mohamed Riahi 08/20/2017
#don't Change my Fucking Rights

#[Detect User]
#[Detect Version]    
#[Detect Theme]  
#[Detect Plugins]

use if $^O eq "MSWin32", Win32::Console::ANSI;
use Term::ANSIColor;
use LWP::UserAgent;
use HTTP::Request::Common qw(GET);
use URI::URL;
use Getopt::Long;

$ua = LWP::UserAgent->new(keep_alive => 1);
$ua->agent("Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.31 (KHTML, like Gecko) Chrome/26.0.1410.63 Safari/537.31");
$ua->timeout (10);

GetOptions(
	"u=s" => \$site,
);

unless ($site) { help(); }
if ($site) { banner(); }

sub banner() {
print q(
           ____                      ,
          /---.'.__             ____//
               '--.\           /.---'
          _______  \\         //
        /.------.\  \|      .'/  ______
       //  ___  \ \ ||/|\  //  _/_----.\__
      |/  /.-.\  \ \:|< >|// _/.'..\   '--'
         //   \'. | \'.|.'/ /_/ /  \\
        //     \ \_\/" ' ~\-'.-'    \\
       //       '-._| :H: |'-.__     \\
      //           {/'==='\}'-._\     ||
      ||                        \\    \|
      ||                         \\    '
      |/                          \\
                                   ||
        WP Grab Info v2            ||
     Coded BY Mohamed Riahi        \\
                                    '
);
  print color('bold red')," [";
  print color('bold green'),"+";
  print color('bold red'),"] ";
  print color('bold white'),"$site\n";
  user();
  Version();
  Theme();
  Plugin();
}

sub help() {
print color('bold white')," Usage: perl WP-Grab.pl -u http://website.com/";
}

#################### GET USER ####################
sub user(){
$user = $site . '/?author=1';

$getuser = $ua->get($user)->content;
if($getuser =~/author\/(.*?)\//){
  print color('bold red')," [";
  print color('bold green'),"+";
  print color('bold red'),"] ";
  print color('bold white'),"User: $1\n";
   }else{
  print color('bold red')," [";
  print color('bold green'),"+";
  print color('bold red'),"] ";
  print color('bold white'),"Can't Get Username\n";
  }
}

#################### GET VERSION ####################
sub Version(){
$getversion = $ua->get($site)->content;
if($getversion =~/content="WordPress (.*?)"/) {
  print color('bold red')," [";
  print color('bold green'),"+";
  print color('bold red'),"] ";
  print color('bold white'),"Version: $1\n";
 }else{
  print color('bold red')," [";
  print color('bold green'),"+";
  print color('bold red'),"] ";
  print color('bold white'),"Can't Get Version\n";
 }
}

#################### GET THEME ####################
sub Theme(){
$getheme = $ua->get($site)->content;
if($getheme =~/\/themes\/(.*?)\//){
  print color('bold red')," [";
  print color('bold green'),"+";
  print color('bold red'),"] ";
  print color('bold white'),"Theme: $1\n";
}else{
  print color('bold red')," [";
  print color('bold green'),"+";
  print color('bold red'),"] ";
  print color('bold white'),"Can't Get Theme\n";
 }
}

#################### GET PLUGINs ####################
sub Plugin(){
$getplugin = $ua->get($site)->content;

my %seen;
while($getplugin =~m/\/wp-content\/plugins\/(.*?)\//g){ 
  $plu=$1;
  next if $seen{$plu}++; # already seen
  print color('bold red')," [";
  print color('bold green'),"+";
  print color('bold red'),"] ";
  print color('bold white'),"Plugin: $plu \n";
 }
}