Perl Check Port - Entenda melhor os sockets [Perl]

Perl Check Port - Entenda melhor os sockets

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

[ Hits: 3.949 ]

Download killcheck.pl

0 0

Denuncie Favoritos Indicar

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

Web crawler simples em Perl

Obtendo a temperatura com Perl

Script para X-chat

Tradutor Babelfish

Comentários

Nenhum comentário foi encontrado.