Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

japh

by busunsl (Vicar)
on Jun 19, 2001 at 11:56 UTC ( #89575=obfuscated: print w/replies, xml ) Need Help??

$b='a';$x.=$b++x3 .' 'for(1..7);@x=split/ /,$x;@y=(6_622, 12_154,8_559,1_052,345,1219,2663,4746);@x=split//,join'', map{$b=$_;$x[$b]++for(1..$y[$b]);$x[$b]}(0..6);print join ' ',map{$_=join'',splice@x,0,$_;ucfirst}split(//,$y[7]);

Replies are listed 'Best First'.
Re: japh
by larryk (Friar) on Jun 19, 2001 at 14:51 UTC
    It's fairly straightforward for an obfu. Maybe if you used some special variables, some less-than-obvious logic and a handful of unexpected delimiters it would really mess with some heads. Just a quick reincarnation of your code...
    #!perl $;=q;a;and$;=~s q\n qq;$,.=$;++x3 .q; ; for 1..7;@_=split q ; ;,$,;@,=(66___22, 12_154=>8559=>1_052 ,345,1219,2663,4746 );@_=split(q,,,join q,,,map{$;=$_;map$_ [$;]++,1..$,[$_];$_ [$_]}(0..6))and+die "@{[map{$_= ucfirst join q,,,splice@_,0 ,$_}split+q,,,$,[7] ]}",chr(ord(+$/)),,

    "Argument is futile - you will be ignorralated!"

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://89575]
Approved by root
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (5)
As of 2017-11-25 10:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:













    Results (355 votes). Check out past polls.

    Notices?