Monitor de portas
Publicado por Douglas Vigliazzi 13/12/2002
[ Hits: 9.168 ]
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
Nenhum comentário foi encontrado.
IA Turbina o Desktop Linux enquanto distros renovam forças
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
Warcraft II Remastered no Linux? (1)
Linux é a solução para o fim do Windows10? [RESOLVIDO] (8)
Assinador JNLP do Site Portal da Nota Fiscal Eletrônica (0)









