Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

My first Obfuscated Perl Attempt

by Daruma (Curate)
on Aug 06, 2002 at 06:51 UTC ( [id://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
Domain Nodelet?
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?Last hourOther CB clients
Other Users?
Others surveying the Monastery: (6)
As of 2024-04-24 09:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found