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

Sarg Diario

Buscar Traduções no Google Translate

Script para X-chat

Synner Novo Sys(TCP) Flooder em Perl

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

Nenhum comentário foi encontrado.