Waraxe IT Security Portal  
  Login or Register
::  Home  ::  Search  ::  Your Account  ::  Forums  ::   Waraxe Advisories  ::  Tools  ::
August 23, 2019
Menu
 Home
 Logout
 Discussions
 Forums
 Members List
 IRC chat
 Tools
 Base64 coder
 MD5 hash
 CRC32 checksum
 ROT13 coder
 SHA-1 hash
 URL-decoder
 Sql Char Encoder
 Affiliates
 y3dips ITsec
 Md5 Cracker
 User Manuals
 AlbumNow
 Content
 Content
 Sections
 FAQ
 Top
 Info
 Feedback
 Recommend Us
 Search
 Journal
 Your Account



User Info
Welcome, Anonymous
Nickname
Password
(Register)

Membership:
Latest: MichaelSnaRe
New Today: 0
New Yesterday: 0
Overall: 9145

People Online:
Visitors: 247
Members: 0
Total: 247
PacketStorm News
Currently there is a problem with headlines from this site
Log in Register Forum FAQ Memberlist Search
IT Security and Insecurity Portal

www.waraxe.us Forum Index -> Perl -> myps
Post new topic  Reply to topic View previous topic :: View next topic 
myps
PostPosted: Sun Apr 10, 2005 4:36 am Reply with quote
erg0t
Valuable expert
Valuable expert
 
Joined: Apr 08, 2005
Posts: 55
Location: Uruguay




#!/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) ;
}
}
}
View user's profile Send private message Send e-mail Visit poster's website
PostPosted: Sun Apr 10, 2005 12:18 pm Reply with quote
y3dips
Valuable expert
Valuable expert
 
Joined: Feb 25, 2005
Posts: 281
Location: Indonesia




nice script Cool

just imagine if the server has no perl installation Smile
Laughing

_________________
IO::y3dips->new(http://clog.ammar.web.id);
View user's profile Send private message Visit poster's website Yahoo Messenger
PostPosted: Sun Apr 10, 2005 2:52 pm Reply with quote
erg0t
Valuable expert
Valuable expert
 
Joined: Apr 08, 2005
Posts: 55
Location: Uruguay




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
View user's profile Send private message Send e-mail Visit poster's website
PostPosted: Mon Apr 11, 2005 2:04 am Reply with quote
y3dips
Valuable expert
Valuable expert
 
Joined: Feb 25, 2005
Posts: 281
Location: Indonesia




Crying or Very sad 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 ?

_________________
IO::y3dips->new(http://clog.ammar.web.id);
View user's profile Send private message Visit poster's website Yahoo Messenger
PostPosted: Mon Apr 11, 2005 2:23 pm Reply with quote
erg0t
Valuable expert
Valuable expert
 
Joined: Apr 08, 2005
Posts: 55
Location: Uruguay




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
View user's profile Send private message Send e-mail Visit poster's website
PostPosted: Tue Apr 12, 2005 11:57 am Reply with quote
shai-tan
Valuable expert
Valuable expert
 
Joined: Feb 22, 2005
Posts: 477




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

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


y3dips:
Have you got Net BSD 2.0 the new version yet? Its supposed to kick Free BSD's ass I'm not sure about it having Perl but I got the ISO in the UK Linux Format Magizine.

_________________
Shai-tan

?In short: just say NO TO DRUGS, and maybe you won?t end up like the Hurd people.? -- Linus Torvalds
View user's profile Send private message
PostPosted: Tue Apr 12, 2005 3:38 pm Reply with quote
y3dips
Valuable expert
Valuable expert
 
Joined: Feb 25, 2005
Posts: 281
Location: Indonesia




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

_________________
IO::y3dips->new(http://clog.ammar.web.id);
View user's profile Send private message Visit poster's website Yahoo Messenger
PostPosted: Wed Apr 13, 2005 3:47 am Reply with quote
shai-tan
Valuable expert
Valuable expert
 
Joined: Feb 22, 2005
Posts: 477




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

_________________
Shai-tan

?In short: just say NO TO DRUGS, and maybe you won?t end up like the Hurd people.? -- Linus Torvalds
View user's profile Send private message
myps
  www.waraxe.us Forum Index -> Perl
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
All times are GMT  
Page 1 of 1  

  
  
 Post new topic  Reply to topic  




Powered by phpBB 2001-2008 phpBB Group






All logos and trademarks in this site are property of their respective owner. The comments and posts are property of their posters, all the rest (c) 2004-2013 Janek Vind "waraxe"
Page Generation: 0.085 Seconds