Monitor de portas
Publicado por Douglas Vigliazzi 13/12/2002
[ Hits: 9.084 ]
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; }
Nenhum coment�rio foi encontrado.
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Sem espaço na partição home (2)
O que você está ouvindo agora? [2] (190)
Procrastinação e autossabotagem são problemas muito comuns na sociedad... (5)