Brothers Vars

#!/usr/bin/perl

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

Comment on Brothers Vars Download Code

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 :) Read more... (837 Bytes) Cheers, Z	[reply] [d/l] [select]
Re^2: Brothers Vars by cristian (Hermit) on Apr 07, 2005 at 13:40 UTC
`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.` [download]	[reply] [d/l]
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]};} [download] s{}(0914121301000d0e13070411010f04110b010700020a0411), $== hex++ $=,s((..)) { $1}g; $s.=chr $=+hex for split; $\=$";$s.=v44;print ucfirst for split((b),$s);	[reply] [d/l]
Re: Brothers Vars by zentara (Cardinal) 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	[reply]
Re^2: Brothers Vars by cristian (Hermit) on Apr 06, 2005 at 13:26 UTC
yes , sorry . the code it updated .thanks	[reply]