Perl Check Port - Entenda melhor os sockets
Publicado por Perfil removido (última atualização em 17/01/2013)
[ Hits: 3.722 ]
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; }
Burlando o "Protetor de links" INVERTIDO para download grátis
IPloc - Informações e localização de um determinado endereço IP
SMTP Mass Mail - Enviando e-mails em massa para vários endereços a partir de um servidor SMTP
Buscar Traduções no Google Translate
Nenhum comentário foi encontrado.
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Tem como instalar o gerenciador AMD Adrenalin no Ubuntu 24.04? (16)
Arch Linux - Guia para Iniciantes (2)
Problemas ao instalar o PHP (11)
Tenho dois Link's ( IP VÁLIDOS ), estou tentando fazer o failover... (0)