Analisando propostas

Buscadores de dominios de sites via bing e gethostbyname (Perl)

Publicado em 22 de Novembro de 2019 dias na TI e Programação

Sobre este projeto

Aberto

O projeto seria uma atualização de um search que ja possuo, entretanto não está funcionando 100%.

Este código em particular não está retornando hosts

sub dns(){
        while($q->pending() > 0){
                $semaphore->down();
                my $url = $q->dequeue;
                $semaphore->up();
                my $ip = join(".", Unpack("C4", (gethostbyname($url))[4]));
                if (defined($ip)) {
                        print "[+] $url\t->\t$ip\n" if(length($ip) > 6 && $ip =~/^\d+\.\D+\.\D+\.\D+$/);
                        &search2("ip:$ip")  if(length($ip) > 6 && $ip =~/^\d+\.\D+\.\D+\.\d+$/);
                }
                undef $ip;
        }
}

Categoria TI e Programação
Subcategoria Programação

Prazo de Entrega: Não estabelecido

Habilidades necessárias