[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
esse script permite exibir informaçao do site atraves de whois, a sintaxe e nome do script + o site
exemplo: fts_whois.pl [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
esse script permite exibir informaçao do site atraves de whois, a sintaxe e nome do script + o site
exemplo: fts_whois.pl [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
- Código:
#!/usr/bin/perl
#autor: hacker fts315
use LWP::UserAgent;
my $conexao = LWP::UserAgent->new;
print "===============================================\n";
print " FTS WHOIS \n" ;
print "===============================================\n\n";
$conexao2 = $conexao->post("http://www.tcpiputils.com/whois-lookup",["whois" => $ARGV[0]]);
@info = $conexao2->content =~ /Whois lookup for:.*<\/h1><pre>(.*)<\/pre><p><br \/>/s;
print $info[0] . "\n";