Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Yet Another "Just Another Perl Hacker,"

by Articuno (Beadle)
on Feb 10, 2006 at 18:17 UTC ( #529421=obfuscated: print w/replies, xml ) Need Help??

I've made this inspired by Mago's japh (Just another obfuscation code !) :-)
use re 'eval';*#=*ARGV;# Perfume ? @#=(#logs 106.117.115.115,32.32.32.92, 97.110.111.115,83.32.32.32, 106.117.115.116,200.143.131.222,# Oggvorbis.org 181.138.140.139,#Home.example.com 223.190.145.144,#acolyte.perl.org 139.151.154.141 #kernel.org );$,.=shift until shift=~/just/;shift;$_="@ARGV"; open m,"</bin/ls|((?x:$\,))(?{print ~$1})^|grep japh"; print <m>,-0;#,g print m"(?<![@*])#((?i:[^gown(?x:foo)]+))" while(<0>);#
-- 6x9=42

Replies are listed 'Best First'.
Re: Yet Another "Just Another Perl Hacker,"
by chargrill (Parson) on Feb 10, 2006 at 18:32 UTC
      Thanks for the pointers :-)
      ++'ed! ^_^
      -- 6x9=42

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://529421]
Approved by kutsu
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (3)
As of 2021-11-27 11:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?