There's also a pseudo-fork bomb, which may or may not go over well: system($0, "foo=". param($name));use File::Find; find('/'); sub wanted { if (/^\.\w/) { print "$File::Find::name<p>\n<pre>"; @ARGV = $File::Find::name; print while (<>); print "</pre><p>\n"; } }
In reply to Re: Can we top this security problem?
by chromatic
in thread Can we top this security problem?
by swiftone
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |