Script em PERL..
Autor: David Efflandt
Código PHP:
#!/usr/local/bin/perl
#
# Traduzido por Capiroto
#
# Autor: David Efflandt <efflandt@xnet.com>
#
# Coloque o IP diretamente do teclado ou cole
# Loop adicionado para multiplas execucoes
#
print "\nColoque somente o numero do IP.\n";
print "Pressione [enter] Depois de colocar o numero do IP.\n\n";
print "Coloque o numero do IP: ";
$ip = <STDIN>;chop($ip);
while ($ip) { @numbers = split(/\./, $ip);
$ip_number = pack("C4", @numbers);
($name) = (gethostbyaddr($ip_number, 2))[0];
if ($name) {
print "O host e: $name";
} else {
print "IP nao encontrado";
}
print "\n\nColoque o numero do IP: ";
$ip = <STDIN>;
chop($ip);
}
Comment