Brothers Vars

[cristian]

#!/usr/bin/perl

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

[ZlR]

ah, here's my decoding of it :)
Read more... (837 Bytes)

Cheers,
Z

[cristian]

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.

[starbolin]

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]};}

[zentara]

You forgot the / in front of usr on the shebang line.

[cristian]

yes , sorry . the code it updated .thanks