Perlmonk code

Obfuscated Code

JAPH Math

Bienvenido al azar, aveces sirve para resolver problematicas interesantes

@_=qw{106 -11 -13 -16 -104 -426  -1183
-2616   -4990   -8557  -13472   -19643
-26614 -34066  -44885  -75866  -187402
-555027  -1625071  -4426003  -11144193
-26102884 -57260279 -118156160};sub _{
my @__;while(@_){push@__,$_[0];$__=sub
{my @__;for(my $__=0;$__<@_ -1;$__++ )
{push@__,($_[$__]-$_[$__+1]);}@__;};@_
=$__->(@_);}@__};print map(chr,_(@_));

Información relacionada

Life Cicle | Sub CallerThread {} | Rising Force | Obfu or another method? | Call .. Call ... Call .. | Live and Die | ('Japh'^'Chars'^'Concept') | It depends on chance | Simply JAPH | Polymorphism JAPH | Brothers Vars | (Recursive || Not) Japh Spidering | Learning Perl Vars | MySelf Japh Socket | Just Another Perl hacker | Japh Random Search | JAPH Math | Recursive Obfuscation