Perlmonk code
Obfuscation Code
Sub CallerThread
package _;use threads;(caller(//))
[//+//+//]=~/$_/?"": push@_,async{
print _($_)}while$_=each%_::;;$_->
join for @_; sub _ {print chr eval
$_[0]unless $_[0] =~/_+/ ; return}
sub Just {0x4a}
sub Another {0x61}
sub Perl {0x68}
sub Hacker {0x70}
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
