Perlmonk code

Obfuscated Code

It depends on chance

Prueba tu suerte ,el mundo aleatoreo esta a tus pies, antes de ir a cualquier casino primero prueba tu suerte. 

#!/usr/bin/perl

@w=("JUST","ANOTHER","PERL", "HACKER","MACHINE","ONLY","WIN","JOCKER"
,"COMMUNITY","THE","JAPH","YOU" , "|*|","."."_"x7 .".","|"."*"x7 ."|"
,"|"."_"x7 ."|");@x=( [$w[13],"| \\_    |","| | \\_  |","|  \\_(_)|",
"|  (_)  |",$w[15]], [$w[13] ,"|   |   |","|  / \\  |", "| /___\\ |",
"|   O   |",$w[15]],    [$w[13] ,"|  ___  |","| |_  | |", "|  / /  |"
,"| /_/   |" , $w[15] ]  , [$w[13],$w[14] ,"|*$w[0]**|",$w[14],$w[14]
,$w[15]],    [$w[13],$w[14] , "|$w[1]|",$w[14],$w[14],$w[15]],[$w[13]
,$w[14],"|*$w[2]**|",$w[14], $w[14],$w[15]],[$w[13],$w[14],"|$w[3]*|"
,$w[14],$w[14],$w[15]]) ; @p =(" __","(__)"," ||" ," ||"," ||"," ||",
" ||"," ||","_//","_/");@d=(" |**|"."_"x34 ."|**|\n"," |  /"."_"x34 .
"\\  |\n"," |   |  $w[10] $w[4] $w[5] $w[10] $w[6]    |  |\n"," |  ".
"  \\"."_"x30 ."/    |\n","("."_"x42 .")\n") ; @e=("  "."_"x40 ." \n"
," |****$w[0] $w[1] $w[2] $w[3] $w[7]*****|\n"," |"."_"x35 ."[]|$w[12
]\n"," $w[12]|"."|_*_"x8 ."|*|$w[12]\n"," |*++"."_"x34 ."++*|\n");for
$t(0 .. 3){push@{$z[$t]} ,@{$x[int(rand(7))]}for 0 .. 2;}my$n=@z-1;my
$match=0;my$c=0;while(1){print"\ec";my$n=@{$z[0]}-1;my$i=0;if($c==($n
+7)){for$__(0..3){shift@{$z[$__]}for 0..5}push@{$z[$_]},@{$x[int(rand
(7))]}for 0..3;$c=0}$c++;print for@e;my $j=0;for(0..$n){$r[$_]= shift
@{$z[$_]} for 0..3;push @{$z[$_]},$r[$_] for 0..3 ; print " $w[12]" .
"$r[0]$r[1]$r[2]$r[3]$w[12]$p[$j]\n" ; $tmp ="$r[0]$r[1]$r[2]$r[3]" ;
$match=1 if($tmp=~/$w[0]/ && $tmp=~/$w[1]/) && ($tmp=~/$w[3]/ && $tmp
=~/$w[3]/);$i++;$j++;last if$i==$n;}print for@d;last if $match;usleep
(70000) ; }@m=(" $w[12]   "."*"x30 ."   $w[12]"," $w[12]   *"." "x7 .
"$w[0] $w[4]"." "x9 ."*   $w[12]"  , " $w[12]   "."*"x30 ."   $w[12]"
," $w[12]   *  $w[0] $w[1] $w[2] $w[3]  *   $w[12]"," $w[12]   *"   .
" "x10 . "$w[10] $w[6]"." "x10 ."*   $w[12]" , " $w[12]   *"." "x10 .
"$w[11] $w[6]"." "x11 ."*   $w[12]"," $w[12]   *  $w[9] $w[2] $w[8]".
" $w[6]    *   $w[12]"," $w[12]   "."*"x30 ."   $w[12]"," $w[12]"." "
x36 .$w[12]," $w[12]"." "x36 .$w[12]);print "\ec";print for @e; print
" "."$w[12]"." "x36 ."$w[12]"."\ttry again=>perl $0\n";print" $w[12]"
." "x36 ."$w[12]\n";for my$j(0 ..@m-1){my@a=split // ,"$m[$j]$p[$j]";
print"$_"for@a;print"\n"}print" $w[12]$x[3][$_]"."$x[4][$_]$x[5][$_]"
."$x[6][$_]$w[12]\n" for 0..5 ; print for @d;use Time::HiRes(usleep);

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