Debido a problemas con el modulo Net::Whois::Raw me vi obligado a realizar un whois mediante una pagina online.
#!usr/bin/perl
#Whois Online 0.1
#Coded By Doddy H
use LWP::UserAgent;
my $nave = LWP::UserAgent->new;
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);
$nave->timeout(5);
head();
if ( $ARGV[0] ) {
print whois( $ARGV[0] );
}
else {
sintax();
}
copyright();
sub sintax {
print "\n[+] Sintax : $0 <domain>\n";
}
sub head {
print "\n-- == Whois Online 0.1 == --\n\n";
}
sub copyright {
print "\n\n(C) Doddy Hackman 2012\n\n";
exit(1);
}
sub whois {
my $ob = shift;
my $code = tomar(
"http://networking.ringofsaturn.com/Tools/whois.php",
{ "domain" => $ob, "submit" => "submit" }
);
my @chau = ( """, ">>>", "<<<" );
if ( $code =~ /<pre>(.*?)<\/pre>/sig ) {
my $resul = $1;
chomp $resul;
for my $cha (@chau) {
$resul =~ s/$cha//ig;
}
if ( $resul =~ /Whois Server Version/ ) {
return $resul;
}
else {
return "Not Found";
}
}
}
sub toma {
return $nave->get( $_[0] )->content;
}
sub tomar {
my ( $web, $var ) = @_;
return $nave->post( $web, [ %{$var} ] )->content;
}
# The End ?