YJ

#procv.pl www.securitybydefault.com

use strict ;

open STDERR, '>', "/dev/null";

my @resultado = `ps ax -o pid --no-headers` ;


#print @resultado ;

foreach (@resultado) {

        #print "$_\n" ;

        $_ =~ /(\d*)$/ ;

        my $processid = $1 ;

        my $status = `ls -l /proc/$processid/exe` ;

        $status =~ /-> (.*)$/;

        my $binary = $1 ;

        my $rpmverify = `rpm -Vf $binary` ;

        if ($rpmverify) {

                print "El proceso [ $processid $binary ] ha sufrido modificaciones en su paquete base:\n" ;

                print "$rpmverify\n" ;
        }
}