Keep It Simple, Stupid | |
PerlMonks |
Re: too much punctuationby maverick (Curate) |
on Jun 13, 2002 at 15:57 UTC ( [id://174248]=note: print w/replies, xml ) | Need Help?? |
Deconstruction follows:
q delimited by brackets, all non-alpha numerics will be removed
by this. /me strongly suspects hex encoded data at this point
reverse the string keeping the pairs in order (72654a -> 4a6572)
make a ref to @ARGV
noise
grep used like a map. converting the hex encoded data back to characters.
Look at the last two non-alpha characters in the first line. 4a which is 'J'
set the default join character for arrays to '\x'
joins @_ on \x, adding a \x in front. So $_ now contains \x4a\x75\x73 etc.
remove any spaces in the string (induced by obfu formatting)
eval the hex string and print
/\/\averick
In Section
Obfuscated Code
|
|