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)

• Download loginaudit.pl
• Enviar nova versão

Esconder código-fonte

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

Wallpaper no Fluxbox

Índice (Logaritmo Discreto) em Perl

Listar arquivos

Weather Channel for Torsmo

Mega Sena