Conocer los Vhost de una direccion IP
011 January 2009 at 21:16 Filed in:Uncategorized
Les dejo un script el cual tiene como funcion darnos los virtual hosts pertenecientes a una direccion IP.
-
use LWP::Simple;
-
if ( @ARGV != 1 ) {
-
-
die "\nUse: $0 <ip>\n\n"
-
-
. "  <ip>   Direccion IP del servidor web       [ej -> 84.16.233.253]\n";
-
-
}
-
$host= $ARGV[0];
-
chomp $host;
-
$url = get "http://www.robtex.com/ip/$host.html";
-
while ( $url =~ m{
-
<td class=td0 rowspan="1"><a xhref="http://www.robtex.com/dns/(.*?)"}g ) {
-
print "$1\n";
-
}
Ejemplo:
# perl ipvhost.pl 84.16.233.253
84-16-233-253.internetserviceteam.com.html
artstux.net.html
mail.rcm-argentina.com.ar.html
mavensearch.net.html
ns1.rcm-argentina.com.ar.html
rcm-argentina.com.ar.html
recortable.net.html
www.rcm-argentina.com.ar.html
ns1.artstux.net.html
Gracias explorer de perl en español por la ayuda :d
