Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: too much punctuation

by maverick (Curate)
on Jun 13, 2002 at 15:57 UTC ( #174248=note: print w/ replies, xml ) Need Help??


in reply to too much punctuation

Deconstruction follows:

q delimited by brackets, all non-alpha numerics will be removed
$_=q[";7w2q";m/656/bq6/i;$g=q(3616w8206qc7);$/="265502";0;{$w=~y/726568q7/=46/;}for(6..ew(6));q1;=|20.747.3754|;@wa];

by this. /me strongly suspects hex encoded data at this point
s[\[^0-9a-f\]]{}g;         # $_ =~ s/[^0-9a-f]//g;

reverse the string keeping the pairs in order (72654a -> 4a6572)
@ARGV = reverse(/../g);

make a ref to @ARGV
$a=\@ARGV;

noise
0;

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'

grep { # @_ = map { push(@_,sprintf('%.2x',hex)) # sprintf('%. +2x',hex) } @$a; # } @$a;

set the default join character for arrays to '\x'
$"=q s\xs;                                  # $" = '\x';

joins @_ on \x, adding a \x in front. So $_ now contains \x4a\x75\x73 etc.
$$=qq"$\"@_";                               # $$ = '\x'.join('\x',@_);

remove any spaces in the string (induced by obfu formatting)
$$=~s/\s//g;

eval the hex string and print
print eval qq("$$");

/\/\averick
OmG! They killed tilly! You *bleep*!!


Comment on Re: too much punctuation
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://174248]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (14)
As of 2015-07-02 12:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (36 votes), past polls