Re: life gets obfuscated

Yeah... looks pretty cool actually. It's my first attempt at playing with obfuscated perl code.. here's a few changes that I made to the (modified) original:

$t=pack("cccc",0x74,0x69,0x6d,0x65);map{sub __;$/=$_;sub _;map{$_[$/][
+$_]{_}=rand(eval($t))%2;push@{$_[$/][$_]{map}},(\$_[_$/][$_]{_}=>\$_[
+__$/][$_]{_}=>\$_[$/][_$_]{_}=>\$_[$\/][__$_]{_},\$_[_$/][_$_]{_}=>\$
+_[_$/][__$_]{_}=>\$_[__$/][_$_]{_}=>\$_[__$/][__$_]{_},)}(0..$__)}(0.
+.($__=(shift||24)-1));sub __{(++($-=$_[$@]))<=$__?++$-:0}sub _{(--($-
+=$_[$\@]))>=0?$--1:$__;}__;__;while(){map{$/=$_;$\="\n";print map{$_[
+$/][$_]{sub}=$_[$/][$_]{_}?'*':'.';$.+=$$_ for(@{$_[$/][$_]{map}});$!
+[$/][$_]{_}=$_[$/][$_]{_};$![$/][$_]{_}=($.\==3?1:($.!=2?0:($![$/][$_
+]{_}==1?1:0)));__;$.=~s _.__;$_[$/][$_]{sub};}(0..$__);}(0 .. $__);ma
+p{$/=$_;map{$_[$/][$_]{_}=$![$/][$_]{_}}(0..$__)}(0..$__);
_;for(1..4){_;__;}_;sle\ep 1;}for(1..3){__;_;__;_;_;}__;_;__;_;__;
[download]

i modified the two subs a bit to make them even more so appealing. Also, i've removed the obvious 'time' method name and replaced it with a packed version of it that is than being evaluated in the map method (aka. loop). I still don't understand some parts of the code rofl. print join(" ", map { sprintf "%#02x", $_ }unpack("C*",pack("L",0x12345678)))

Comment on Re: life gets obfuscated Download Code

Replies are listed 'Best First'.
Re: Re: life gets obfuscated by c0d34w4y (Acolyte) on Dec 14, 2001 at 04:32 UTC
I know this gets more wicked and sinful with every new post but I found this altered piece of the above obfuscated code rather amusing: @c=split/\s/,<DATA>;$c=pack("C".scalar(@c),@c);eval$c; __DATA__ 36 116 61 112 97 99 107 40 34 99 99 99 99 34 44 48 120 55 52 44 48 120 + 54 57 44 48 120 54 100 44 48 120 54 53 41 59 109 97 112 123 115 117 +98 32 95 95 59 36 47 61 36 95 59 115 117 98 32 95 59 109 97 112 123 3 +6 95 91 36 47 93 91 36 95 93 123 95 125 61 114 97 110 100 40 101 118 +97 108 40 36 116 41 41 37 50 59 112 117 115 104 64 123 36 95 91 36 47 + 93 91 36 95 93 123 109 97 112 125 125 44 40 92 36 95 91 95 36 47 93 +91 36 95 93 123 95 125 61 62 92 36 95 91 95 95 36 47 93 91 36 95 93 1 +23 95 125 61 62 92 36 95 91 36 47 93 91 95 36 95 93 123 95 125 61 62 +92 36 95 91 36 47 93 91 95 95 36 95 93 123 95 125 44 92 36 95 91 95 3 +6 47 93 91 95 36 95 93 123 95 125 61 62 92 36 95 91 95 36 47 93 91 95 + 95 36 95 93 123 95 125 61 62 92 36 95 91 95 95 36 47 93 91 95 36 95 +93 123 95 125 61 62 92 36 95 91 95 95 36 47 93 91 95 95 36 95 93 123 +95 125 44 41 125 40 48 46 46 36 95 95 41 125 40 48 46 46 40 36 95 95 +61 40 115 104 105 102 116 124 124 50 52 41 45 49 41 41 59 115 117 98 +32 95 95 123 40 43 43 40 36 45 61 36 95 91 36 64 93 41 41 60 61 36 95 + 95 63 43 43 36 45 58 48 125 115 117 98 32 95 123 40 45 45 40 36 45 6 +1 36 95 91 36 64 93 41 41 62 61 48 63 36 45 45 49 58 36 95 95 59 125 +95 95 59 95 95 59 119 104 105 108 101 40 41 123 109 97 112 123 36 47 +61 36 95 59 36 92 61 34 92 110 34 59 112 114 105 110 116 32 109 97 11 +2 123 36 95 91 36 47 93 91 36 95 93 123 115 117 98 125 61 36 95 91 36 + 47 93 91 36 95 93 123 95 125 63 39 42 39 58 39 46 39 59 36 46 43 61 +36 36 95 32 102 111 114 40 64 123 36 95 91 36 47 93 91 36 95 93 123 1 +09 97 112 125 125 41 59 36 33 91 36 47 93 91 36 95 93 123 95 125 61 3 +6 95 91 36 47 93 91 36 95 93 123 95 125 59 36 33 91 36 47 93 91 36 95 + 93 123 95 125 61 40 36 46 61 61 51 63 49 58 40 36 46 33 61 50 63 48 +58 40 36 33 91 36 47 93 91 36 95 93 123 95 125 61 61 49 63 49 58 48 4 +1 41 41 59 95 95 59 36 46 61 126 115 32 95 46 95 95 59 36 95 91 36 47 + 93 91 36 95 93 123 115 117 98 125 59 125 40 48 46 46 36 95 95 41 59 +125 40 48 32 46 46 32 36 95 95 41 59 109 97 112 123 36 47 61 36 95 59 + 109 97 112 123 36 95 91 36 47 93 91 36 95 93 123 95 125 61 36 33 91 +36 47 93 91 36 95 93 123 95 125 125 40 48 46 46 36 95 95 41 125 40 48 + 46 46 36 95 95 41 59 95 59 102 111 114 40 49 46 46 52 41 123 95 59 9 +5 95 59 125 95 59 115 108 101 101 112 32 49 59 125 102 111 114 40 49 +46 46 51 41 123 95 95 59 95 59 95 95 59 95 59 95 59 125 95 95 59 95 5 +9 95 95 59 95 59 95 95 59 10 [download] -- `print join(" ", map { sprintf "%#02x", $_ }unpack("C*",pack("L",0x1234 +5678)))` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Re: life gets obfuscated
by c0d34w4y (Acolyte) on Dec 14, 2001 at 04:32 UTC

@c=split/\s/,<DATA>;$c=pack("C".scalar(@c),@c);eval$c;
__DATA__
36 116 61 112 97 99 107 40 34 99 99 99 99 34 44 48 120 55 52 44 48 120
+ 54 57 44 48 120 54 100 44 48 120 54 53 41 59 109 97 112 123 115 117 
+98 32 95 95 59 36 47 61 36 95 59 115 117 98 32 95 59 109 97 112 123 3
+6 95 91 36 47 93 91 36 95 93 123 95 125 61 114 97 110 100 40 101 118 
+97 108 40 36 116 41 41 37 50 59 112 117 115 104 64 123 36 95 91 36 47
+ 93 91 36 95 93 123 109 97 112 125 125 44 40 92 36 95 91 95 36 47 93 
+91 36 95 93 123 95 125 61 62 92 36 95 91 95 95 36 47 93 91 36 95 93 1
+23 95 125 61 62 92 36 95 91 36 47 93 91 95 36 95 93 123 95 125 61 62 
+92 36 95 91 36 47 93 91 95 95 36 95 93 123 95 125 44 92 36 95 91 95 3
+6 47 93 91 95 36 95 93 123 95 125 61 62 92 36 95 91 95 36 47 93 91 95
+ 95 36 95 93 123 95 125 61 62 92 36 95 91 95 95 36 47 93 91 95 36 95 
+93 123 95 125 61 62 92 36 95 91 95 95 36 47 93 91 95 95 36 95 93 123 
+95 125 44 41 125 40 48 46 46 36 95 95 41 125 40 48 46 46 40 36 95 95 
+61 40 115 104 105 102 116 124 124 50 52 41 45 49 41 41 59 115 117 98 
+32 95 95 123 40 43 43 40 36 45 61 36 95 91 36 64 93 41 41 60 61 36 95
+ 95 63 43 43 36 45 58 48 125 115 117 98 32 95 123 40 45 45 40 36 45 6
+1 36 95 91 36 64 93 41 41 62 61 48 63 36 45 45 49 58 36 95 95 59 125 
+95 95 59 95 95 59 119 104 105 108 101 40 41 123 109 97 112 123 36 47 
+61 36 95 59 36 92 61 34 92 110 34 59 112 114 105 110 116 32 109 97 11
+2 123 36 95 91 36 47 93 91 36 95 93 123 115 117 98 125 61 36 95 91 36
+ 47 93 91 36 95 93 123 95 125 63 39 42 39 58 39 46 39 59 36 46 43 61 
+36 36 95 32 102 111 114 40 64 123 36 95 91 36 47 93 91 36 95 93 123 1
+09 97 112 125 125 41 59 36 33 91 36 47 93 91 36 95 93 123 95 125 61 3
+6 95 91 36 47 93 91 36 95 93 123 95 125 59 36 33 91 36 47 93 91 36 95
+ 93 123 95 125 61 40 36 46 61 61 51 63 49 58 40 36 46 33 61 50 63 48 
+58 40 36 33 91 36 47 93 91 36 95 93 123 95 125 61 61 49 63 49 58 48 4
+1 41 41 59 95 95 59 36 46 61 126 115 32 95 46 95 95 59 36 95 91 36 47
+ 93 91 36 95 93 123 115 117 98 125 59 125 40 48 46 46 36 95 95 41 59 
+125 40 48 32 46 46 32 36 95 95 41 59 109 97 112 123 36 47 61 36 95 59
+ 109 97 112 123 36 95 91 36 47 93 91 36 95 93 123 95 125 61 36 33 91 
+36 47 93 91 36 95 93 123 95 125 125 40 48 46 46 36 95 95 41 125 40 48
+ 46 46 36 95 95 41 59 95 59 102 111 114 40 49 46 46 52 41 123 95 59 9
+5 95 59 125 95 59 115 108 101 101 112 32 49 59 125 102 111 114 40 49 
+46 46 51 41 123 95 95 59 95 59 95 95 59 95 59 95 59 125 95 95 59 95 5
+9 95 95 59 95 59 95 95 59 10
[download]

print join(" ", map { sprintf "%#02x", $_ }unpack("C*",pack("L",0x1234
+5678)))
[download]

[reply]
[d/l]
[select]