Script de Analise do Syslog SNORT
Publicado por Douglas Vigliazzi 13/12/2002
[ Hits: 7.379 ]
Permite analisar o log do SNORT.
#!/usr/bin/perl
# Script de Analise do Syslog SNORT
#
if($ARGV[1] eq undef)
{
print "USAR: snortlog <logname> <machinename>\n";
print "EXEMPLO: snortlog /var/log/messages sentinel\n";
print "NotA: O nome da máquina é hostname, not the FQDN!\n";
exit;
}
$machine = $ARGV[1];
$targetlen=25;
$sourcelen=35;
$protolen=12;
use Socket;
open(LOG,"< $ARGV[0]") || die "No can do";
printf("%15s %-35s %-25s %-25s\n","DATA","CUIDADO", "DE", "PARA");
print "=" x 100;
print "\n";
while(<LOG>) {
chomp();
if (
( ! /.*snort*/gi )
) { next ; }
$_ =~ s/ $machine snort//gi ;
$date=substr($_,0,15);
$rest=substr($_,16,500);
@fields=split(": ", $rest);
$text=$fields[0];
$fields[1] =~ s/ \-\> /-/gi;
($source,$dest)=split('-', $fields[1]);
($host,$port)=split(':',$source);
$iaddr = inet_aton($host);
$name = gethostbyaddr($iaddr, AF_INET);
if ( $name =~ /^$/ ) {
$name=$host;
}
$name = $name . ":" . $port;
$skipit=0;
($shost,$sport)=split(':',$dest);
$sport =~ s/ //gi;
$siaddr = inet_aton($shost);
$sname = gethostbyaddr($siaddr, AF_INET) ;
if ( $sname =~ /^$/ ) {
$sname=$shost;
}
$sname = $sname . ":" . $sport;
printf("%15s %-32s %-30s %s\n",
$date, $text,
$name,$sname);
}
close(LOG);
Nenhum comentário foi encontrado.
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
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo 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
converter algoritmo C++ em C? (1)
Programa fora de escala na tela do pc (22)
Problemas com Driver NVIDIA (1)
Fedora KDE plasma 42 X Módulo de segurança BB (Warsaw-2) (1)









