(Recursive || Not) Japh Spidering
- Details
- Category: Codigo
- Published on Monday, 21 March 2011 20:07
- Written by Cristian Vasquez Diaz
- Hits: 43
Jugando con caracteres hermanos, entre hermanos podemos hacer algo grande
#!/usr/bin/perl
@_=('(','2','`','+','#','!','(',' ','`','2'
,'`','`',' ' ,'2','`','(','`','/','.' ,'!',
' ','`','3','`','*');@__=('$','`','%' ,'@',
'`','@','`',' ' ,',','`','%', '0',' ', '`',
'%' , '`','4','`' ,'@','@',' ','4','`','5',
'`'); _(\@_,\@__) ; sub _{print pop@{$_[0]}
|pop@{$_[1]}; _($_[0] ,$_[1]) if @{$_[0]};}