Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
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

Comment on Yet Another "Just Another Perl Hacker,"
Download Code
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
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 lurking in the Monastery: (16)
As of 2014-11-24 15:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (143 votes), past polls