R4$T4 Scan - Portscan básico comentado
Publicado por Jonatan Gomes (última atualização em 12/12/2010)
[ Hits: 8.828 ]
Homepage: Em construção xD
Portscan ideal para quem está começando (assim como eu) em sockets, está bem comentado, muito fácil de entender.
Qualquer dúvida poste seu comentário.
R4$T4
#!/usr/bin/perl use IO::Socket; # Ativa o modulo Socket# system ("clear"); # Limpa a Tela do Terminal# #Pequeno enfeite# print "\t\t#------------------------------------#\n"; print "\t\t#___________[_R4\$T4_]Scan_____BETA___#\n"; print "\t\t#___ 04/12/2010______________________#\n"; print "\t\t#Exclusivo para o VOL (Viva o Linux) #\n"; print "\t\t#------------------------------------#\n"; print "\t\t#__by R4\$T4\\Jonatan Gomes____________#\n"; print "\t\t#------------------------------------#\n"; sleep 4; # Espera 4 segundos para continuar o Script# print "\n\n Digite o IP da maquina ou 'localhost':\t "; chomp (my $server = <STDIN>); # Pega o computador que vai ser vistoriado print "\n\n\nDigite o numero das Portas que serao vistoriadas ex: (23,80,1462,21).\n\n"; print "OU Escreva (TODAS) para fazer uma vistoria completa:\t"; chomp ($portas= <STDIN>); #As portas a serem vistoriadas ou se vai ser uma vistoria completa if (($portas eq "Todas") || ($portas eq "todas") ||($portas eq "TODAS")) { print "\n\n\tESSE PROCESSO IRA DEMORAR BASTANTE... E A VIDA....\n"; #caso seja todas Portas for ($op= 0; $op <= 65535;$op++) #65535 porque é o número máximo de portas no tcp { $socket = new IO::Socket::INET ( PeerAddr => $server, # poem-se o server digitado anteriormente PeerPort => $op, # E testa porta por porta começando do 0 demora um pouco Proto => "tcp"); if($socket) # Caso for possivel fazer a conexão quer dizer que a porta está aberta { print "Porta $op ABERTA...\n"; # Então mostra a porta que está aberta } # Se não estiver não aparece nada se não ia ser muitas linhas } print "\n\n\n\Fechando...\n\n\n\n\n"; sleep 2; print "\t\t#------------------------------------#\n"; print "\t\t#___________[_R4\$T4_]Scan_____BETA___#\n"; print "\t\t#--------MANTENHA OS CREDITOS--------#\n"; print "\t\t#------------------------------------#\n"; exit; } if (($portas ne "Todas" ) && ($portas ne "todas") && ($portas ne "TODAS")) { #Se o usuário especificar a porta @array= split (/,/, $portas); #Separa-se cada porta pela "," e poem na matriz "ARRAY" foreach $var(@array) #Aqui usando foreach testamos 1 por 1 as portas digitadas pelo usuário { $socket = new IO::Socket::INET ( PeerAddr => $server, PeerPort => $var, Proto => "tcp"); if($socket) { print "\nPorta $var ABERTA...\n"; } else{ print "\nPorta $var Fechada\n"; } } print "\n\n\n\n\n Fechando...\n\n\n\n\n"; sleep 2; print "\t\t#------------------------------------#\n"; print "\t\t#___________[_R4\$T4_]Scan_____BETA___#\n"; print "\t\t#--------MANTENHA OS CREDITOS--------#\n"; print "\t\t#------------------------------------#\n"; exit; } #Por favor deixe meu nome no cabeçalho =D
Script de Analise do Syslog SNORT
Nenhum comentário foi encontrado.
Instalar e Configurar o Slackware Linux em 2025
Como configurar os repositórios do apt no Debian 12 em 2025
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Configurando o Conky para iniciar corretamente no sistema
3 configurações básicas que podem melhorar muito a sua edição pelo editor nano
Como colorir os logs do terminal com ccze
Instalação Microsoft Edge no Linux Mint 22
Como configurar posicionamento e movimento de janelas no Lubuntu (Openbox) com atalhos de teclado
Linux Mint limitando rede a 20Mbps (6)
Jogando com Proton no LInux (0)
Ingress NGINX Controller CVSS base score of 9.8 (4)
Impossível corrigir problemas, você manteve (hold) pacotes quebrados. (2)