Login AUDIT
Daemon em perl que monitora, via who, acessos (logins) ao sistema.
Usando Net::SMTP é enviado um email para monitoria, ou auditoria, dos logins.
Exemplo dos alertas enviados via SMTP:
vinicius :0 2007-03-02 10:41
vinicius pts/0 2007-03-02 17:59 (:0.0)
vinicius pts/1 2007-03-04 15:28 (192.168.0.3)
Usando Net::SMTP é enviado um email para monitoria, ou auditoria, dos logins.
Exemplo dos alertas enviados via SMTP:
vinicius :0 2007-03-02 10:41
vinicius pts/0 2007-03-02 17:59 (:0.0)
vinicius pts/1 2007-03-04 15:28 (192.168.0.3)
Descrição
Daemon em perl que monitora, via who, acessos (logins) ao sistema.
Usando Net::SMTP é enviado um email para monitoria, ou auditoria, dos logins.
Exemplo dos alertas enviados via SMTP:
vinicius :0 2007-03-02 10:41
vinicius pts/0 2007-03-02 17:59 (:0.0)
vinicius pts/1 2007-03-04 15:28 (192.168.0.3)
Usando Net::SMTP é enviado um email para monitoria, ou auditoria, dos logins.
Exemplo dos alertas enviados via SMTP:
vinicius :0 2007-03-02 10:41
vinicius pts/0 2007-03-02 17:59 (:0.0)
vinicius pts/1 2007-03-04 15:28 (192.168.0.3)
# Utilizando algumas coisas que vao ajudar.
use strict;
use warnings;
use diagnostics;
# SMTP Server;
# # apt-get install libnet-smtp-server-perl
use Net::SMTP;
# Variaveis e lista de logins
my $server =`uname -a|cut -d" " -f2`;
my $smtp_server ='localhost';
my $mail_to ='vinicius@localhost';
my $mail_from ='root@' . $server;
my $subject ="Logins em $server";
my @old_users=split(/\n/, qx/who/);
# Daemon: Sleep em 10 segundos
while(sleep(10))
{
my @users=split(/\n/, qx/who/);
if(@users ne @old_users)
{
my $smtp = Net::SMTP->new($smtp_server);
die "Falha ao enviar via SMTP" unless $smtp;
$smtp->mail( $mail_from );
$smtp->to( $mail_to );
$smtp->data();
$smtp->datasend("Subject: $subject\n\n");
foreach my $user (@users)
{
$smtp->datasend("$user\n");
}
$smtp->dataend();
$smtp->quit();
}
@old_users=@users;
}