At 11:09 05-08-99 +0700, you wrote:
>> On Fri, Jul 30, 1999 at 06:23:44PM +0700, Priyadi Iman Nurcahyo wrote:
>> % 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
Ikhlasul Amal wrote:
>
> On Fri, Jul 30, 1999 at 06:23:44PM +0700, Priyadi Iman Nurcahyo wrote:
> % 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
On Wed, Aug 04, 1999 at 03:24:57AM +0700, Ikhlasul Amal wrote:
> Kalau mau dianggap dieksekusi oleh root (dalam hal ini effective
> uid/gid), silakan saja real-nya diset sama dengan effective:
>
> $< = $>;# set real uid = eff. uid
> $( = $);# set real gid = eff
On Fri, Jul 30, 1999 at 06:23:44PM +0700, Priyadi Iman Nurcahyo wrote:
% 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: $>\nEG
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
