Port Scan

Publicado por Raffael Fasan 13/08/2007

[ Hits: 8.564 ]

Homepage: http://www.facebook.com/RaffaelFasan

Download portscan.pl




Simples Scaneador de portas em PERL.

  



Esconder código-fonte

#Simples Scaneador de Portas em PEARL
#
#Raffael F. Santos (mobster)
#
#raffael (at) gmail (dot) com

use Socket;
$ARGC=@ARGV;
if ($ARGC<2)
{
      print "\nuso:$0 <host> <porta-inicial> <porta-final>\n\n";
   exit;
}


$porta_i=$ARGV[1];
$porta_f=$ARGV[2];

for(;$porta_i <= $porta_f;$porta_i++)
{
$iaddr= inet_aton($ARGV[0]); 
$paddr= sockaddr_in($porta_i, $iaddr); 
$proto= getprotobyname('tcp'); 
socket(SOCK, AF_INET, SOCK_STREAM, $proto);
   if(connect(SOCK, $paddr))
       {
      $servico=getservbyport($porta_i,'tcp');
      print "Porta $porta_i --> o servico $servico esta aberto\n";
      close(SOCK);
      }
}
print "\ntermino do scanner\n\n";
exit;

Scripts recomendados

Gerador de Senhas Aleatórias VERSÃO 2.0

Script de Analise do Syslog SNORT

Monitor de portas

Script para encontrar vulnerabilidades no BIND

Zend Framework application.ini vulnerability exploit


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts