Perlmonk code
Obfuscated Code
Obfu or another method?
Version 2 $*=\&(¦,@=={$}=>,%\,%\}.$*,*_=\$@, eval'&$->obfu',s<^(\w+)\s(...).*>!$2!,$.=$_, eval'@$->obfu',s+.*w..(.)... . (.)(.)..... .. ..(.).*+'$4$3$2$1'+; $,=" {print $_}",$,=~s/\n//g;$.=~s/\n//g; $=[0]=~s<(.).*~(\w{6})$>@"$. $1$2$,"@e.eval$=[0]&&s<.*>@&Howoorg@e; Version 1 #!/usr/bin/perl $*=\&(| ,@=={$}=>,%\,%\}.$*,*_=\$@, eval'&$->obfu',s<^(\w+)\s(...).*>!$2!,$.=$_, eval'@$->obfu',s+.(.)(.)'(.)\s(.).(.).\s.(.).(.)(.). "...(.)" ....... . (.)..(.)... .(.) ..(.)...(.)*+'$13$9s$3 $1$2$8$3$7$6$12 $10$6$12$5 $7$1$4$11$6$12'+,$,=" {print $_}",$=[0]=~s<(.).*~ (\w{6})$>@"$.$1$2$,"@e.eval$=[0]&&s<.*>@&Howoorg@e;
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
