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.3no 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
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: asccii modern art obfu
by Grimy (Pilgrim) on Dec 01, 2013 at 12:58 UTC | |
by perlaintdead (Scribe) on Dec 01, 2013 at 21:57 UTC | |
by perlaintdead (Scribe) on Dec 01, 2013 at 22:07 UTC |