Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

too simple....

by Oromis92 (Sexton)
on Jan 24, 2012 at 11:36 UTC ( #949651=obfuscated: print w/ replies, xml ) Need Help??

#!/usr/bin/perl while (1) + { ($s,$m,$h)=localtime(); if(length($h)==1){$h="0".$h} $q=$h;$r=$h;$h1=s +ubstr($h,0,1); $h2=substr($h,1,1);if (length($m) == 1){$m="0".$m} $w=$m; $t=$m; $m1=s +ubstr($m,0,1); $m2=substr($m,1,1); if (length($s) == 1) {$s="0".$s} $e=$s;$y=$s;$s1=s +ubstr($s,0,1); $s2=substr($s,1,1);while ($h1>0) { if ($h1 %2 == 0) { $str1.=0; } else + { $str1.=1; } $h1=int($h1/2);} $str1.="0" while length($str1)<4;$str1=reverse($str1) +;while ($m1>0) { if ($m1%2 == 0) { $str2 .= 0; } else { $str2.=1; } $m1 = int($m1/2); + } $str2.= "0" while length($str2) < 4; $str2 = reverse($str2); while ($s1>0) { if ( +$s1 % 2 == 0) {$str3.=0;} else {$str3.=1;} $s1=int($s1/2); } $str3 .= "0" while leng +th($str3) < 4; $str3=reverse($str3);while ($h2>0) { if ($h2 %2 == 0){$str4.=0; } else + {$str4.= 1; } $h2 = int($h2/2); } $str4 .= "0" while length($str4) < 4; $str4 = r +everse($str4); while ($m2>0) { if ($m2 % 2 == 0){ $str5 .= 0; } else { $str5.=1; }$m2 +=int($m2/2); } $str5 .= "0" while length($str5) < 4; $str5 = reverse($str5); whil +e ($s2>0) { if ($s2%2 == 0){ $str6 .= 0;} else {$str6 .= 1; } $s2= int($s2/2); } $str +6 .= "0" while length($str6) < 4;$str6=reverse($str6);while($q>0){ if ($q % 2 == 0) { + $str7 .= 0; } else { $str7 .= 1; } $q = int($q/2); } $str7 .= "0" while length($str7 +) < 6; $str7 = reverse($str7); while ($w>0){ if ($w % 2 == 0){ $str8 .= 0; } else{ $s +tr8 .= 1; }$w= int($w/2);} $str8.="0" while length($str8) < 6; $str8=reverse($str8); +while ($e>0) { if ($e % 2 == 0) { $str9 .= 0; } else { $str9 .= 1; } $e = int($e/2); +} $str9 .= "0" while length($str9) < 6; $str9 = reverse($str9); @x1 = split//,$str1; +@x2 = split//, $str4; @x3 = split// ,$str2; @x4 = split//, $str5; @x5 = split//, + $str3; @x6 = split//, $str6; @x7 = split//, $str7; @x8 = split//, $str8; @x9 = s +plit// ,$str9; print "\n\n\n $x2[0] $x4[0] $x6[0] \n $x2[1] $x3[1] $x4[1] $x +5[1] $x6[1]" ; print "\n $x1[2] $x2[2] $x3[2] $x4[2] $x5[2] $x6[2] \n $x1[3] $x2[3] $ +x3[3] $x4[3]"; print " $x5[3] $x6[3] \n\n\n\n\n @x7\n @x8\n @x9\n\n\n\n\n $r:$t:$y\n\ +n\n"; sleep 1; ( $str1, $str2, $str3, $str4, $str5, $str6, $str7, $str8, $str +9 ) = ""; }

Comment on too simple....
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://949651]
Approved by planetscape
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (12)
As of 2014-10-01 16:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    What is your favourite meta-syntactic variable name?














    Results (29 votes), past polls