Re: Re: life gets obfuscated

[c0d34w4y]

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 
[phone] 61 36 95 59 115 117 98 32 95 59 109 97 112 123 3
[phone] 95 93 123 95 125 61 114 97 110 100 40 101 118 
[phone] 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 
[phone] 125 61 62 92 36 95 91 95 95 36 47 93 91 36 95 93 1
[phone] 95 91 36 47 93 91 95 36 95 93 123 95 125 61 62 
[phone] 91 95 95 36 95 93 123 95 125 44 92 36 95 91 95 3
[phone] 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 
[phone] 92 36 95 91 95 95 36 47 93 91 95 95 36 95 93 123 
[phone] 48 46 46 36 95 95 41 125 40 48 46 46 40 36 95 95 
[phone] 102 116 124 124 50 52 41 45 49 41 41 59 115 117 98 
[phone] 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
[phone] 41 62 61 48 63 36 45 45 49 58 36 95 95 59 125 
[phone] 104 105 108 101 40 41 123 109 97 112 123 36 47 
[phone] 34 92 110 34 59 112 114 105 110 116 32 109 97 11
[phone] 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 
[phone] 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
[phone] 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 
[phone] 93 91 36 95 93 123 95 125 61 61 49 63 49 58 48 4
[phone] 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 
[phone] 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 
[phone] 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
[phone] 108 101 101 112 32 49 59 125 102 111 114 40 49 
[phone] 59 95 59 95 95 59 95 59 95 59 125 95 95 59 95 5
[phone] 59 10

--

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