Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

Just another unpack hacker

by ambrus (Abbot)
on Oct 25, 2011 at 17:05 UTC ( #933656=obfuscated: print w/replies, xml ) Need Help??

print unpack "(C/(xx)X220a)26", pack "a366", "qsoultoJk ontalPykvhscktkol,r few ues\nrenrnlhaarchkrb"

Update 2013-05-24: see Re: how to unpack a C struct with length array preceding data array.

Replies are listed 'Best First'.
Re: Just another unpack hacker
by ambrus (Abbot) on Oct 25, 2011 at 17:05 UTC

    Re: my fisrt japh with the unpack function claims this is not obfuscated code.

    Update: To be fair, at the time he posted that comment, the unpack function in the latest stable release of perl did not yet support parentheses in the template, so you couldn't have written this kind of japh so easily.

Re: Just another unpack hacker
by mtve (Deacon) on Oct 27, 2011 at 15:24 UTC

    very nice!

    a variant:

    print unpack'h/xaX'x26,'y______a_cJu_ke__s__rt_, _ a_not____h________e_____r__ Pe_____r__l h_'x2

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://933656]
Approved by Corion
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (9)
As of 2018-06-22 15:14 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (124 votes). Check out past polls.