Monitor de portas

Publicado por Douglas Vigliazzi 13/12/2002

[ Hits: 8.948 ]

Download monitor.pl




Permite monitorar portas sendo acessadas.
Identifica o ip do atacante/usuário.

  



Esconder código-fonte

#!/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;
}


Scripts recomendados

Laila MD5 Crack Search

Monitor do BO

Script de Analise do Syslog SNORT

Crashing

Brutal Force Attack


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts