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.

• Download killcheck.pl
• Enviar nova versão

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;
}

Capturar imagens de um site

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

WordPress Plugin check

Script para fazer buscas no arquivo de logs do squid

Tweetin - Poste tweets pelo terminal

Nenhum comentário foi encontrado.