SQLi Dorking

SUBMITTED BY: Guest

DATE: April 2, 2014, 3:26 p.m.

FORMAT: Perl

SIZE: 1.7 kB

Raw Download

HITS: 847

Report
  1. #!/usr/bin/perl
  2. #################################
  3. # SQLi Dorking #
  4. # Autor: Crozz Cyborg #
  5. # #
  6. # Copyright 2013 Crozz Cyborg #
  7. # CRISTHIANO: EXPLOIT.PL -gd inurl:produtos.php?id= -p 2 #
  8. # O -p: é quantas paginas para buscar #
  9. #################################
  10. use strict;
  11. $| = 1;
  12. $SIG{'INT'} = \&Interrupt;
  13. # Modulos/Librerias
  14. use HTTP::Request;
  15. use LWP::UserAgent;
  16. use Getopt::Long;
  17. use Benchmark;
  18. use POSIX;
  19. use threads;
  20. use Time::HiRes "usleep";
  21. # Variables
  22. my @UserAgents = (
  23. 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:23.0) Gecko/20130406 Firefox/23.0',
  24. 'Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:22.0) Gecko/20130328 Firefox/22.0',
  25. 'Mozilla/5.0 (Windows NT 6.1; rv:22.0) Gecko/20130405 Firefox/22.0',
  26. 'Mozilla/5.0 (Windows; U; MSIE 9.0; WIndows NT 9.0; en-US))',
  27. 'Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 7.1; Trident/5.0)',
  28. 'Opera/9.80 (Windows NT 6.0) Presto/2.12.388 Version/12.14',
  29. 'Mozilla/5.0 (Windows NT 6.0; rv:2.0) Gecko/20100101 Firefox/4.0 Opera 12.14',
  30. 'Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.0) Opera 12.14');
  31. my ($Dork,$BingDork,$List,$NumPaginas,$FileLinks,$Proxy);
  32. my ($proceso,@ProTime);
  33. my $result = GetOptions(
  34. 'gd=s' => \$Dork,
  35. 'bd=s' => \$BingDork,
  36. 'l=s' => \$List,
  37. 'p=s' => \$NumPaginas,
  38. 'f=s' => \$FileLinks,
  39. 'prx=s' => \$Proxy);
  40. # INI Funciones
  41. sub Uso(){
  42. die <<EOTXT;
  43. \rUso: $0 [-d dork] -p <paginas> [-l archivo.txt] [-f archivo]
  44. -gd <Dork>
  45. Google Dork
  46. -bd <Bing>
  47. Bing
comments powered by Disqus