Monitor de portas
Publicado por Douglas Vigliazzi 13/12/2002
[ Hits: 9.032 ]
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; }
Gerador de Senhas Aleatórias VERSÃO 2.0
Nenhum comentário foi encontrado.
Pra quem contribui com artigos e dicas (0)
Arch Linux - Guia para Iniciantes (5)
tux-gpt - Assistente de IA para o Terminal
Instalação e configuração do Chrony
Programa IRPF - Guia de Instalação e Resolução de alguns Problemas
O Que Fazer Após Instalar Ubuntu 25.04
O Que Fazer Após Instalar Fedora 42
Debian 12 -- Errata - Correções de segurança
Instalando o Pi-Hole versão v5.18.4 depois do lançamento da versão v6.0
Alguém poderia me ajudar a escolher peças pra montar um desktop? (19)
Pra quem contribui com artigos e dicas (0)