Cogent takes a shot at his first de-obfuscation...

So, we have three things going on: A substitution,a transliteration, and an eval. (Which, had I realized it, I could've found out from the Function Nodelet.)

All three of the operations are working directly on $_. The first, the substitution, does the easy part: it replaces the only thing in $_, a zero-width beginning-of-line metacharacter, with some predetermined text: 

gps%o)nbq|3++sboe~1//24*|qsjou)qbdl)#d#-75+)tjo)%o+%`*,2***gps)1//777*
+<~

[download]

Now $_ contains something useful. In a manner of speaking. Then the code transliterates that into something truly useful, by changing everything between ASCII 35 and ASCII 126 to be between ASCII 34 and ASCII 125. It drops everything down a place. Basically your simple caesar cipher. That gives us: 

for$n(map{2**rand}0..13){print(pack("c",64*(sin($n*$_)+1)))for(0..666)
+;}

[download]

which is much more readable, especially if you have an eager newbie with something to prove ( :-) ) here to help you out: 

for $n (map {2**rand} 0..13) {
        print ( pack ("c", 64*(sin($n * $_)+1)))
            for(0..666);
}

[download]

For fourteen times: It takes two, raises that to the power of some random number, and uses that as the frequency of a sine wave. The duration of said sine wave is specified by the 666. So, for the duration (that is, for 667 iterations of a loop), the code makes a byte and sends it to /dev/dsp. So there's your sound.

Whew!

In reply to Re: One-liner .sig by cogent
in thread One-liner .sig by BlueLines

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.