Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re^2: Vulnerabilities when editing untrusted code... (Komodo)

by LanX (Chancellor)
on Jul 01, 2010 at 11:05 UTC ( #847492=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    lanx@nc10-ubuntu:~$ cat >/tmp/tst.pl
    exit; ''=~('(?{B'.'EGIN{print "owned\n"}})')
    ...
    owned
    lanx@nc10-ubuntu:~$ perl -c /tmp/tst.pl
    /tmp/tst.pl syntax OK
    
  2. or download this
    lanx@nc10-ubuntu:/tmp$ cat >tst.pl
    exit; ''=~('(?{B'.'EGIN{print "owned"}})')
    ...
    lanx@nc10-ubuntu:/tmp$ perl -c tst.pl
    tst.pl syntax OK
    ownedlanx@nc10-ubuntu:/tmp$ 
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://847492]
help
Chatterbox?
[oiskuu]: E.g. Re^3: Big thank you to the Perl community. is surely dry humor (not mine). Don't they teach humor in german schools!?
[LanX]: you don't see the whole picture
[LanX]: But reu germans have no humor, better to refrain from this site till the troll is gone...
[LanX]: true

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (9)
As of 2017-04-27 19:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I'm a fool:











    Results (512 votes). Check out past polls.