Perl Check Port - Entenda melhor os sockets
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.
Descrição
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.
#!/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;
}