Perlmonk code
Obfuscated Code
Japh Random Search
Bienvenido al azar, aveces sirve para resolver problematicas interesantes
#!/usr/bin/perl
%_=(106=>[1],117=>[2],115=>[3],
116=>[4,9],32=>[5,13,18],97=>[6,20],
110=>[7],111=>[8],104=>[10,19],101=>[11,
15,23], 114=> [12,16,24],
112=>[14],108 =>[17],99=>
[21],107=>[22 ],74=>[1],85
=>[2],83=>[3],84=>[4,9],32=>[5,13,18],65
=>[6,20],78=>[7],79=>[8],72=>[10,19],69
=>[11,15,23],82=>[12,16,24],80=>[14]
,76=>[17],67=>[21],75=>[22]);while
(1) {system clear; $_____=int rand
255;$____=0;if ($_ {$_____} ) { my
@______ = @ { $_ { $_____}};$___[$_]
= chr $_____ for @______;for (@___)
{ $____++ if $_;}} print $_ for @___;
last if $____ == 24 ; } print "\n";
#Japh Random Search ##################
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
