Bem pessoal, sem ao menos esperar 1 dia (na verdade, foi menos de 4h kkkkkkk) após codar o Host Discover Version 1, já consegui codar o Host Discover Version 2. kkkkkkk
Não tenho paciência para ficar esperando...
Bom, basicamente as mudanças que fiz foram poucas:
1º - Agora você consegue varrer uma grande faixa de IP's de uma vez só.
2º - O Tempo de espera para o limite da conexão caiu de 10, para 3 segundos.
Basicamente, você deve ter um arquivo com todos os IP's que você deseja analizar. Indicar este arquivo no programa, e deixar que o programa faz tudo sozinho para você!
Como funciona?
Ele funciona juntamente com o protocolo ICMP, utilizando o Ping. Agora, você consegue analizar uma grande faixa de IP's de uma vez!
Qualquer erro, ou dúvida comente!
Não tenho paciência para ficar esperando...
Bom, basicamente as mudanças que fiz foram poucas:
1º - Agora você consegue varrer uma grande faixa de IP's de uma vez só.
2º - O Tempo de espera para o limite da conexão caiu de 10, para 3 segundos.
Basicamente, você deve ter um arquivo com todos os IP's que você deseja analizar. Indicar este arquivo no programa, e deixar que o programa faz tudo sozinho para você!
Como funciona?
Ele funciona juntamente com o protocolo ICMP, utilizando o Ping. Agora, você consegue analizar uma grande faixa de IP's de uma vez!
- Código:
#!/usr/bin/perl -w
use strict "refs";
use warnings;
use Net::Ping;
print "\t\t\t Host Discover\n";
print "\t\t\t Version 2.0\n";
print "\t\t\t Coded by Sub7\n\n";
print "Arquivo com os IP's: ";
chomp($arquivo = <STDIN>);
my $texto = $arquivo;
open (my $arquivo, "<$texto") || warn "ERRO! Arquivo não encontrado...\n";
while(<$arquivo>){
my $limite_seg = 3;
my $p = Net::Ping->new("icmp");
if($p->ping($_, $limite_seg) == 1){
print "O host responde: ".$_."";
}else{
print "O host não responde: ".$_."";
}
$p->close();
}
close $arquivo;
Qualquer erro, ou dúvida comente!