|Just another Perl shrine|
Re: too much punctuationby maverick (Curate)
|on Jun 13, 2002 at 15:57 UTC||Need Help??|
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
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