Perl Check Port - Entenda melhor os sockets

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

[ Hits: 3.909 ]

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

WordPress Plugin check

Descobrir operadora de celular

IPloc - Informações e localização de um determinado endereço IP

Index Location


  

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