Monitor de portas
Publicado por Douglas Vigliazzi 13/12/2002
[ Hits: 9.268 ]
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;
}
Zend Framework application.ini vulnerability exploit
Testando multiplos servers a ataque DoS
Nenhum comentário foi encontrado.
Berry Bank: Criando um Banco Digital Gamificado para seus Filhos com Gentoo, Flask e Tailscale
Papagaiando o XFCE com temas e recursos
Instale o DOOM Retro no Gentoo facilmente via Overlay
Steam (Flatpak) rodando jogos em partição NTFS
O dock Plank + U-Launcher deixam qualquer desktop mais produtivo
Instalar Linux em notebook Sony Vaio VPCEG13EB (17)
Alguém tem que acabar com ANATEL!!! (10)
O que você está ouvindo agora? [2] (229)









