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

problematic obfu

by jynx (Priest)
on Mar 19, 2002 at 22:33 UTC ( #152872=obfuscated: print w/replies, xml ) Need Help??


Some time ago i noted what i thought was a design flaw with one of the ways Perl operates (not mentioned here so as not to spoil the obfu below). Following Abigail's advice, i've found a way to turn that flaw into an obfu :)

enjoy,
jynx

$_=q+(n J)->m()if!map{eval substr(q.#5'$43:t.^$^,$-,1<<3).$_.';'.(' ! &o;/=8*# /9c&<62;-'^$^x2).q.sub m{shift;..(/J/?q.print.:'$".')."'".{A =>another=>H=>'hacker,'=>J=>Just=>P=>Perl=>}->{$_}."'.".(/^H/?($;=$_) &&'$/}':($.=qq=(n $;)->m()}=)&&($;=$_)&&$.)}qw(H P A J)+,s,$/,,,eval,

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://152872]
Approved by root
help
Chatterbox?
NodeReaper says "Shhhh! Be vewy vewy quiet, I'm hunting wumpus"

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (7)
As of 2017-06-25 09:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How many monitors do you use while coding?















    Results (565 votes). Check out past polls.