Olá galera,faz tempo que não posto aqui,porém irei voltar as minhas atividades nesse fórum. Porém dessa vez vim aqui de um scanner de sites vulneráveis. Eu tenho alguns que baixei aqui mesmo no GH. Porém os mesmo não funcionam mais... Devem ter entrado na lista negra do google. Estou atrás de algum novo e fácil. Obrigado desde de já.
Unconfigured Ad Widget
Collapse
Anúncio
Collapse
No announcement yet.
Dúvida,scanner de sites vulneraveis a sql injection.
Collapse
X
-
"Scanners de sites vulneráveis", Só se conseguir bypassar o captcha do Google, ou usar outros buscadores, mas isso é fácil de fazer, é só você programar um para você, em Perl e Python aposto que não vai 50 linhas de código.Yes, I am a criminal. My crime is that of curiosity. My crime is
that of judging people by what they say and think, not what they look like.
My crime is that of outsmarting you, something that you will never forgive me
for.
I am a hacker, and this is my manifesto. You may stop this individual,
but you can't stop us all... after all, we're all alike.
- Top
-
Postado Originalmente por Cr4t3r Ver Post"Scanners de sites vulneráveis", Só se conseguir bypassar o captcha do Google, ou usar outros buscadores, mas isso é fácil de fazer, é só você programar um para você, em Perl e Python aposto que não vai 50 linhas de código.
"Scanners de sites vulneráveis" , "Buscador de sites vulneráveis" , "Dork Scanner" . Tanto faz o nome rs...
Porém,eu tenho em perl cujo o código é esse
Código:#!/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('https://www.google.com.br/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;
- Top
Comment
X
Comment