Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Brothers Vars

by cristian (Hermit)
on Apr 05, 2005 at 21:28 UTC ( #445110=obfuscated: print w/replies, xml ) Need Help??

#!/usr/bin/perl @_=('(','2','`','+','#','!','(',' ','`','2' ,'`','`',' ' ,'2','`','(','`','/','.' ,'!', ' ','`','3','`','*');@__=('$','`','%' ,'@', '`','@','`',' ' ,',','`','%', '0',' ', '`', '%' , '`','4','`' ,'@','@',' ','4','`','5', '`'); _(\@_,\@__) ; sub _{print pop@{$_[0]} |pop@{$_[1]}; _($_[0] ,$_[1]) if @{$_[0]};}

Replies are listed 'Best First'.
Re: Brothers Vars
by ZlR (Chaplain) on Apr 07, 2005 at 10:24 UTC
    ah, here's my decoding of it :)

    Cheers,
    Z

      Yes , in resume. The Recursive sub "_" is a luxury. The true interesting is "|" operator and char in left and right. example. perl -e "print ('$'|'(')"; => "," The operator |produce in some case other symbol, according to brothers. It is fun.
Re: Brothers Vars
by starbolin (Hermit) on Apr 07, 2005 at 06:06 UTC

    Corrected Title Case. Nice obfuscation.

    #!/usr/bin/perl @_=('(','2','`' ,'+','#','!','(',' ','`','2' ,'`','`',' ' ,'2','`','(','`','/','.' ,'!', ' ','`','3','`','*');@__=('$','`','%' ,'@', '`','@','`',' ' ,',','`','%', '0',' ', '`', '%' , '`','4','`' ,'@','@',' ','4','`','5', '`' ); map$_&='_', @__[@___=(24,19,11,6)], @_[@___];_(\@_,\@__);sub _{print pop@{$_[0]} |pop@{$_[1]}; _($_[0] ,$_[1]) if @{$_[0]};}


    s{}(0914121301000d0e13070411010f04110b010700020a0411), $== hex++ $=,s((..)) { $1}g; $s.=chr $=+hex for split; $\=$";$s.=v44;print ucfirst for split((b),$s);
Re: Brothers Vars
by zentara (Archbishop) on Apr 06, 2005 at 12:37 UTC
    You forgot the / in front of usr on the shebang line.

    I'm not really a human, but I play one on earth. flash japh
      yes , sorry . the code it updated .thanks

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://445110]
Approved by sh1tn
Front-paged by grinder
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (3)
As of 2022-01-21 06:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:












    Results (57 votes). Check out past polls.

    Notices?