Monitor de portas
Publicado por Douglas Vigliazzi 13/12/2002
[ Hits: 9.221 ]
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;
}
script para encontrar verificar a vulnera bilidade RFI
Script de Analise do Syslog SNORT
Gerador de Senhas Aleatórias VERSÃO 2.0
Nenhum comentário foi encontrado.
Cirurgia para acelerar o openSUSE em HD externo via USB
Void Server como Domain Control
Modo Simples de Baixar e Usar o bash-completion
Monitorando o Preço do Bitcoin ou sua Cripto Favorita em Tempo Real com um Widget Flutuante
Como impedir exclusão de arquivos por outros usuários no (Linux)
Cirurgia no Linux Mint em HD Externo via USB
Anúncio do meu script de Pós-Instalação do Ubuntu
Alguém executou um rm e quase mata a Pixar! (0)
Por que passar nas disciplinas da faculdade é ruim e ser reprovado é b... (6)
Alguém pode me indicar um designer freelancer? [RESOLVIDO] (3)









