Perl Check Port - Entenda melhor os sockets

Publicado por Perfil removido (última atualização em 17/01/2013)

[ Hits: 3.417 ]

Download killcheck.pl




O script em si não é tão util, serve apenas para checar se determinada porta está aberta ou não em um host, porém para quem está  iniciando em Perl, serve de base para a criação de sockets.

  



Esconder código-fonte

#!/usr/bin/perl


# Kill port Check
# Code by @Kouback_TR_
# Usando socket

use IO::Socket::INET;

if ($#ARGV < 0) {
print "Kill port check\n\n";
print "USE: comando <host> <port>\n\n";
exit;
} elsif ($#ARGV < 0) {
exit;
}
elsif ($#ARGV < 1) {
print "Kill port check\n\n";
print "USE: comando <host> <port>\n\n";   
print "Informe a porta\n\n"; 
exit;
}
$host = $ARGV[0];
$port = $ARGV[1];
{
$scan = IO::Socket::INET->new(
   PeerAddr => "$host",
   PeerPort => "$port",   
   Timeout => "100",
   Proto => "tcp")|| 
   die "Kill port check\n\n[+]Porta $port fachada em $host !!\n\n";
}
while (1) {
print "Kill port check\n\n";   
print"[+]Porta $port aberta em $host !!\n\n";
exit;
}

Scripts recomendados

Avisar por e-mail se o IP da conexão ADSL mudar

Getter - Gerencia downloads

Gerir VirtualHosts do Apache

WordPress Plugin check

Redtube video download


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts