Monitor de portas
Publicado por Douglas Vigliazzi 13/12/2002
[ Hits: 9.162 ]
Permite monitorar portas sendo acessadas.
Identifica o ip do atacante/usuário.
#!/bin/perl # Monitor de portas # use strict; use LWP::UserAgent; use HTTP::Request; use HTTP::Response; print "Iniciando Monitoramento de Portas ...\n"; # ---variaveis--- # ---variaveis--- $ftp = 21; $smtp = 25; $web = 80; $i = 0; print "ID do Processo: "; print $$; print "\nCarregado."; print "\n"; while (1) { $k = 0; while(<access2>) { $k++; } if ($k > $i) { # verificando portas $request = new HTTP::Request( 'GET', $web); $response = $def->request($request); if ($response->is_success) { print $response->content; open(OUT, ">> scanlog_monitor.txt"); print OUT "\n$host[$a] : $response->content"; -close OUT; } else { print $response->error_as_HTML; } # monitoramento sendo executado! @date = `date`; chomp($date[0]); print OUT "--- Scan Detectou de $webip on $date[0]---\n"; $web = 0; $ftp = 0; $smtp = 0; } -close OUT; close(access2); $currentip = $ip; $i = $k; }
Criando sua própria criptografia em hash
R4$T4 Scan - Portscan básico comentado
Nenhum comentário foi encontrado.
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
systemd-resol... precisa ser reiniciado periodicamente (6)
Meu Amigo não consegue entrar em meu mundo, via tailscale, hamachi e z... (2)
É normal não gostar de KDE? (0)