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

(SPOILER) - Re: Re: !@#$%^&*

by myocom (Deacon)
on Jan 25, 2001 at 22:28 UTC ( [id://54316]=note: print w/replies, xml ) Need Help??


in reply to Re: !@#$%^&*
in thread !@#$%^&*

This one's fairly simple, actually. There are really only two parts: An assignment to $_ and a back-tick running of $_.

If you break down the first statement, you'll see it's two strings XOR'd together:

$_ = '%#(/@*(((@!./((%)@+%),@(!#+%)@#/.' # The encrypted string ^ # XOR '@@@@``][\`@@@\@@[`{@[@`@@@@@[~@@@' # The secret decoder ring

So this ends up assigning 'echo Just another Perl hacker>con' to $_. The second line, `$_` simply passes that to the shell and runs it, which will work fine on any Win32 system.

Replies are listed 'Best First'.
Re: (SPOILER) - Re: Re: !@#$%^&*
by jaymoo (Novice) on Jan 26, 2001 at 01:38 UTC
    Thanks for the help!

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others cooling their heels in the Monastery: (3)
As of 2024-03-29 06:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found