Beefy Boxes and Bandwidth Generously Provided by pair Networks
Come for the quick hacks, stay for the epiphanies.
 
PerlMonks  

Re: !@#$%^&*

by jaymoo (Novice)
on Jan 25, 2001 at 19:44 UTC ( [id://54274]=note: print w/replies, xml ) Need Help??


in reply to !@#$%^&*

Huh. Just when I think I have a glimpse of the workings of Perl, I find this. Anyone care to point out what makes this one tick?

Replies are listed 'Best First'.
(SPOILER) - Re: Re: !@#$%^&*
by myocom (Deacon) on Jan 25, 2001 at 22:28 UTC

    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.

      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://54274]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others admiring the Monastery: (3)
As of 2024-04-25 12:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found