Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Diving for perl output

by ProgrammingAce (Sexton)
on Feb 24, 2002 at 10:06 UTC ( #147164=obfuscated: print w/replies, xml ) Need Help??

This is my first attempt at making true obfuscated code (but according to my friends, I do that every day)...
@a=("237861178511787117847", "41178101784017861178111780117856", "2378801784117810178087823", "967876785678547823784117810178701789978797827"); reverse(@a);foreach(@a){($a[$a]=(reverse($a[$a]))) ;for(split(/(87)/,$a[$a])){unless($_==(87)){ (($print.=chr($_)))};}$a=$a+1;};reverse;$a= @a[$a]+$a;print$print;

Replies are listed 'Best First'.
Re: Diving for perl output
by Darkling (Beadle) on Feb 25, 2002 at 01:16 UTC
    Not exactly 100% original but better than my first obfu by far.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (2)
As of 2022-07-02 17:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My most frequent journeys are powered by:









    Results (103 votes). Check out past polls.

    Notices?