saya punya program perl seperti ini:
#!/usr/bin/perl
$ENV{'PATH'} = "/usr/bin:/bin:/usr/local/bin";
$ENV{SHELL} = '/bin/sh' if exists $ENV{SHELL};
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
print "EUID: $>\nEGID: $)\n";
print `id`;
ownernya root.root, mode 6755 (setuid dan setgid nyala)...
dari dokumentasi perl secara implisit dikatakan bahwa 'id' di akan di-eksekusi
atas nama root...
tapi ternyata hasilnya:
~/tmp/ ./test.pl
EUID: 0
EGID: 0 501
uid=501(priyadi) gid=501(priyadi) euid=0(root) egid=0(root) groups=501(priyadi)
sudah dicoba pakai system() dan exec(), hasilnya sama juga...
--
Rule #1 in decision making:
If Microsoft tells you that something is bad, then it must be good...
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
Hosted by http://www.Indoglobal.com
