Perl Check Port - Entenda melhor os sockets

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

[ Hits: 3.701 ]

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

Gmail::SendMail - Enviando emails usando gmail

PDF completo com todas as páginas do Diário Oficial do Estado de Goiás

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

AUTENTICACAO VELOX

processar Lynx.pl


  

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