Perlmonk code

Obfuscated Code

Recursive Obfuscation

Pensar sobre el pensamiento, el codigo lo demuestra

#!/usr/bin/perl
@_=(13,16,15,24,25,6,4,1,24,18,3,21,25,2,3,21,26,25,18,6,27,8,3,21);open _,$0;@a=<_>;@k=$a[1]=~/(@.*;)(\w)(\w)(\w)(\w)( _,\$\w;@)(\w)(=<_>;\@)(\w)(=\$)(\w)(\[\d\]=~)(\/.*\/;\$)(\w)(=)(\w)(\w)(\w\{@)(\w)(=\@_;)(\w)(\w)(\w)(\w)(\w)( )(\w)(\w)(\(.*\).*@)(\w)(\}.*@)(\w)/;$j=sub{@h=@_;print lc($k[$_]) for @h};$j->(@_);

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