Beefy Boxes and Bandwidth Generously Provided by pair Networks chromatic writing perl on a camel
"be consistent"
 
PerlMonks  

Print my name

by z0d (Hermit)
on Jul 22, 2001 at 05:11 UTC ( #98743=obfuscated: print w/ replies, xml ) Need Help??

No, I'm not an egoist. I just wanted a new signature and I ended up like this. Tested on Linux with perl 5.6.1 Y2k and -w compilant. :-)
=pod $_='24041904-17+2300-17000100-18' =cut open+$|<=>$-;eval substr((<0>)[+$[]=>$=/12);y s-sssddd;s; (\d\d); chr($=*1.617+$1) ;sxoxexgi&&y-x+y-B P-s,print,$%||print$/,


<-- z0d -->

Comment on Print my name
Select or Download Code
Re: Print my name
by tachyon (Chancellor) on Jul 22, 2001 at 14:52 UTC

    Hi almost the whole obfu is fluff - ie it does SFA. It took me a while to work this out BTW :-) The only line that does anything that effects the result is this:

    print $/, <-- zOd -->;

    cheers

    tachyon

    Feel free to deconstruct my sig. Check out MeowChow and japhy for some truly beautific obfuscation. Back to my own mundane mediocrity.

    s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

      The '<-- z0d -->' stuff is my signature. It's not part of the code. It prints the string 'Peter Barabas'.

      <-- z0d -->

        In that case it is broken under Win32 as it prints --zod-- as noted. A problem with the defaults no doubt.

        cheers

        tachyon

        s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (14)
As of 2014-04-16 21:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (434 votes), past polls