Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

asccii modern art obfu

by perlaintdead (Scribe)
on Nov 30, 2013 at 03:39 UTC ( #1065023=obfuscated: print w/ replies, xml ) Need Help??

Trying to step my game up and brake my bad habit of putting cyphered text in an array every obfu. Enjoy my ASCII modern art and the Easter eggs.

WARNING:This program is resource heavy!!!

Built with v5.16.3

no warnings;no strict; while(perl_is_not_dead){ + goto ghs;sub jerry{v3}gns:$ b=~s/^.{3}//;our @change=((9,65),23);$ feld =gn::n;package gn 4.242{sub n{sr +and $ VERSION}package queen; sub boxxy{pop @change and $ boxxy="love, light, joy, and hap +pyness"}} ;goto g.n.S;ghs:sub dx{$i=2e-2 ;@a=queen'boxxy;$i+=1while$a[0]=~s[(?#\x89\x90*{,23}).(?#%?\x59)+?(\ +W{1})][];@a ,$i}sub q{&^>=9*&^+$^%$^^} package split{sub b{@change[eof fileno *STACKFRAME],@change}}$ b +=~q((?{$b=substr lc$~,0,-2,}));goto gns;gnS:;sub n{ return $_ >> dx}sub _:{sub(;){( "\x3c".(sqrt(.218_01330_1491_73 +7)/rand+oct+1e2+4x~~2) .chr.chr 0x.99=>)[${(}].$ b.( (chr(-(&dx)*-25.5).chr(&dx*25.5) .chr((ord reverse split$]=>$~ +,jerry sin$feld) - -(__METAL__)-"\m/"-_-"\m/"-(__METAL__)- -($!+qw^1 *&9$# @^[quot +emeta${!} ]^((int exp(v6 cmp v5)) **gn::n)))x2 .$/)=>(ref*a+ +%gin).[*62 ,*41])[$#b+3%2+hex( gns)],(prototype ge rea +dpipe)[tell]}}} continue{printf(::_([])->(( +)),)}+cream and sugar

Comment on asccii modern art obfu
Download Code
Re: asccii modern art obfu
by Grimy (Pilgrim) on Dec 01, 2013 at 12:58 UTC
    Which version of Perl is it running on? Straight from the download link, I got this:
    ~$ perl5.10.1 obfu syntax error at obfu line 2, near "package gn 4.242" syntax error at obfu line 3, near "}}" syntax error at obfu line 3, near "ghs:sub dx" syntax error at obfu line 4, near "$i}" syntax error at obfu line 10, near "}}" Execution of obfu aborted due to compilation errors. ~$ perl5.16 obfu offee offee offee offee offee offee offee ...
      Perl v5.16.3
      I'm just too cool to use anything older.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (10)
As of 2014-09-17 20:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (98 votes), past polls