Port Scan

Publicado por Raffael Fasan 13/08/2007

[ Hits: 8.231 ]

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;
[email protected];
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

hbackup.pl

FTP scan anonymous user

Mail bomber

Criando sua própria criptografia em hash


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário