Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

Safe module security and emebeded perl

by gildir (Pilgrim)
on Oct 23, 2001 at 15:08 UTC ( #120747=perlquestion: print w/replies, xml ) Need Help??

gildir has asked for the wisdom of the Perl Monks concerning the following question:

Fellow monks,

I want to use module Safe to restrict emebeded perl code to only 'reasonable' set of operations. This emebeded code is a part of XML templating system that was private, but now I want to give users a chance to modify their templates. But as the whole system runs in mod_perl with persistent DB connections, I do not want users to be able to access that DB connection or any other resources on server system.

I here the question: What opcodes could be reasonable to permit in such a circumstances? Just now I have qw(:base_core :base_mem :base_loop print sprintf refgen padany gv) set, but I'm not sure especialy with 'padany' and 'gv' opcodes. I had to include them to allow things like my $foo; and use of $_ in templates. Is there any security risk when permiting them?

print operation is used for generating output, so it is needed. I have selected tied filehandle that collects output. That should be OK as far as I do not overlook something.

refgen is also needed, because I pre-compile templates with

my $code = $compartment->reval("sub { ".$templateCode." }");
and then runs it (outside compartment) with &$code. Is there some security risk in this setup?

Thanks for any help or comments.

Replies are listed 'Best First'.
(tye)Re: Safe module security and emebeded perl
by tye (Sage) on Oct 23, 2001 at 18:45 UTC

    I'll preface my remarks by noting that I'm not an expert on nor mod_perl, so don't be too surprised if I'm mistaken on some points.

    If you store anything in global variables (such as a database module that stores the database connection in a package global), then those can be accessed under such a scheme. Since you are using mod_perl, this becomes rather likely as file-scoped lexicals don't play well with mod_perl and that leads to using package globals.

    I wonder if this setup prevents the use of things like Win32::TieRegistry and Win32API::File which would let your users do all sorts of system damage if on Win32 but that don't use things like open that would know to lock up. There may be other similar modules such that non-Win32 system would be similarly vulnerable.

    I also suggest you search for information on the current state of the art of I vaguely recall people finding ways around its protections.

            - tye (but my friends call me "Tye")

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://120747]
Approved by root
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (3)
As of 2022-08-16 06:53 GMT
Find Nodes?
    Voting Booth?

    No recent polls found