Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #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" ;
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement