#!/usr/bin/perl
#################################
# SQLi Dorking  #
# Autor: Crozz Cyborg   #
#               #
#  Copyright 2013 Crozz Cyborg  #
# CRISTHIANO: EXPLOIT.PL -gd inurl:produtos.php?id= -p 2 #
# O -p: é quantas paginas para buscar #
#################################
use strict;
$| = 1;
$SIG{'INT'} = \&Interrupt;
# Modulos/Librerias
use HTTP::Request;
use LWP::UserAgent;
use Getopt::Long;
use Benchmark;
use POSIX;
use threads;
use Time::HiRes "usleep";
# Variables
my @UserAgents = (
'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:23.0) Gecko/20130406 Firefox/23.0',
'Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:22.0) Gecko/20130328 Firefox/22.0',
'Mozilla/5.0 (Windows NT 6.1; rv:22.0) Gecko/20130405 Firefox/22.0',
'Mozilla/5.0 (Windows; U; MSIE 9.0; WIndows NT 9.0; en-US))',
'Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 7.1; Trident/5.0)',
'Opera/9.80 (Windows NT 6.0) Presto/2.12.388 Version/12.14',
'Mozilla/5.0 (Windows NT 6.0; rv:2.0) Gecko/20100101 Firefox/4.0 Opera 12.14',
'Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.0) Opera 12.14');
my ($Dork,$BingDork,$List,$NumPaginas,$FileLinks,$Proxy);
my ($proceso,@ProTime);
my $result = GetOptions(
        'gd=s'  => \$Dork,
        'bd=s'  => \$BingDork,
        'l=s'   => \$List,
        'p=s'   => \$NumPaginas,
        'f=s'   => \$FileLinks,
        'prx=s' => \$Proxy);
# INI Funciones
sub Uso(){
die <<EOTXT;
\rUso: $0 [-d dork] -p <paginas> [-l archivo.txt]  [-f archivo]
  -gd <Dork>
   Google Dork
  -bd <Bing>
   Bing