Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

My first Obfuscated Perl Attempt

by Daruma (Curate)
on Aug 06, 2002 at 06:51 UTC ( #187952=obfuscated: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    $_=pack"B416","0111000001110010011010010110111001110100001000000111000
    +001100001011000110110101100100000001000100100001000110011001100100010
    +001000101100001000000010001000110000001100010011000100110000001100010
    +011000000110001001100000011000000110001001100010011000000110000001100
    +000011000000110001001100000011000100110001001100010011000000110000001
    +100000011000000110000001100010011000100110000001100010011000000110000
    +0011000000100010";eval$_;
    
  2. or download this
    $_='&&&011100&&&&&&&000&&&&&&111001001101001011&&&&011&&&&&&&&&&&&100
    &&&&&&&&111&&&&&&&010&000&&&&100&&&&&&&&&&&&&&000&&011&&&&&&&&&&&&100
    ...
    &&&&001001&&&&&100&&&&&&&010&011&&&&&&&&&&&&&&&&&&&000&&&&&&&&&&&&000
    &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
    11000100110000001100000011000000100010';s^\s|&^^g;eval pack"B416",$_;
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (9)
As of 2014-11-24 22:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (147 votes), past polls