Waraxe IT Security Portal

erg0t · Valuable expert

#!/usr/bin/perl

# myps by erg0t http://saure.no-ip.org
#
# some admins think that changing execution privileges in programs like "ps" and intruder could not get info
# while they should changing the permisions on the procFS, this little script works as an simplificed version
# of ps, but a full implementation IS POSSIBLE!.
#
# Same principe colud be used to get other information, ej: uname, cat /proc/version cat /proc/cpuinfo, etc...
#

# mount point
$procFS = '/proc' ;

use File::Find ;
print "PID PPID State TTY GID SID CMD\n" ;
find (\&pid,$procFS) ;

sub pid
{
@pid = "$File::Find::name" ;
foreach $proc(@pid)
{
@dir = split("/",$proc) ;
if ($dir[2] =~ /[0-9]/ && $dir[3] =~ /stat$/)
{
if (open(status,"$proc"))
{
# Minimal info about the process, change it acording what you want to know
foreach $linea (<status>)
{
@estado = split(" ",$linea) ;
print "$estado[0] $estado[3] $estado[2] $estado[6] $estado[4] $estado[5] $estado[1]\n" ;
}
}
close(status) ;
}
}
}

y3dips · Valuable expert

nice script Cool

just imagine if the server has no perl installation Smile

erg0t · Valuable expert

In all my life I only saw one server in wich I can?t use perl, and not because it wasn?t installed, anyway a did it in perl for facility, can be made in other lang, but File::Find do lot of dirty work for one.
salu2 Wink

y3dips · Valuable expert

sad for me, i still got freebsd machine with no perl install Laughing

thats oke bro, nice script you got there, anyway have some idea in using our own module ? beside some classic way ?

erg0t · Valuable expert

I used find file because is easier to work with it. But can be done manualy, and can be done in other languages too, even i think it can be done in bash Smile

shai-tan · Valuable expert

y3dips · Valuable expert

shai-tan : its not my machine.. but some other "lazy admin" machine with freeBSD installed Rolling Eyes

shai-tan · Valuable expert

Oh sorry the way I read it I thought you meant it was your server.
Embarassed