Dork Scanner

Iniciado por [T]Killer, Mayo 31, 2011, 07:11:30 AM

Tema anterior - Siguiente tema

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

Mayo 31, 2011, 07:11:30 AM Ultima modificación: Marzo 14, 2015, 09:57:16 AM por Expermicid
Código: perl
#!/usr/bin/perl
   use LWP::Simple;
   use LWP::UserAgent;
   use HTTP::Request;
   my $sis="$^O";if ($sis eq 'MSWin32') { system("cls"); } else { system("clear"); }
   print "+++++++++++++++++++++++++++++++\n";
   print "+     SQL - Google Search     +\n";
   print "+       CWH Underground       +\n";
   print "+++++++++++++++++++++++++++++++\n\n";
   print "Insert Dork:";
   chomp( my $dork = <STDIN> );
   print "Total Query Pages (10 Links/Pages) :";
   chomp( my $page = <STDIN> );
   print "\n
■Result:\n\n";
   for($start = 0;$start != $page*10;$start += 10)
   {   
   $t = "   ".$dork."&btnG=Search&start=".$start;
       $ua = LWP::UserAgent->new(agent => 'Mozilla 5.2');
       $ua->timeout(10);
       $ua->env_proxy;
       $response = $ua->get($t);
       if ($response->is_success)
       {
           $c = $response->content;
           @stuff = split(/<a href=/,$c);
           foreach $line(@stuff)
           {
               if($line =~/(.*) class=l/ig)
               {
                   $out = $1;
                   $out =~ s/\"//g;
         $out =~s/$/\'/;   
         $ua = LWP::UserAgent->new(agent => 'Mozilla 5.2');
         $ua->timeout(10);
         $ua->env_proxy;
         $response = $ua->get($out);
         $error = $response->content();
         if($error =~m/mysql_/ || $error =~m/Division by zero in/ || $error =~m/Warning:/)
            {print "$out => Could be Vulnerable in MySQL Injection!!\n";}
         elsif($error =~m/Microsoft JET Database/ || $error =~m/ODBC Microsoft Access Driver/)
            {print "$out => Could be Vulnerable in MS Access Injection!!\n";}
         elsif($error =~m/Microsoft OLE DB Provider for SQL Server/ || $error =~m/Unclosed quotation mark/)
            {print "$out => Could be Vulnerable in MSSQL Injection!!\n";}
         elsif($error =~m/Microsoft OLE DB Provider for Oracle/)
            {print "$out => Could be Vulnerable in Oracle Injection!!\n";}
          }
      }
       }
        }