Recursive Obfuscation
- Details
- Category: Codigo
- Published on Monday, 21 March 2011 20:09
- Written by Cristian Vasquez Diaz
- Hits: 42
Pensar sobre el pensamiento, el codigo lo demuestra
#!/usr/bin/perl
@_=(13,16,15,24,25,6,4,1,24,18,3,21,25,2,3,21,26,25,18,6,27,8,3,21);open _,$0;@a=<_>;@k=$a[1]=~/(@.*;)(\w)(\w)(\w)(\w)( _,\$\w;@)(\w)(=<_>;\@)(\w)(=\$)(\w)(\[\d\]=~)(\/.*\/;\$)(\w)(=)(\w)(\w)(\w\{@)(\w)(=\@_;)(\w)(\w)(\w)(\w)(\w)( )(\w)(\w)(\(.*\).*@)(\w)(\}.*@)(\w)/;$j=sub{@h=@_;print lc($k[$_]) for @h};$j->(@_);