[bglug] Obfuscated code

[k|b|s]

Fantastico!

--8<-- CUT HERE --8<-- 

#!/usr/bin/perl
use strict;
use warnings;


                     @
               _=q*A*;my$
       m   ;  @_[7,6]=($_[0]
       )x2;my@i;@{_}[1..2]=(
  'T','T');@i=($[,$!,$]);*t::_
  =\&t;$m=\$";$_[4]='L';$"=""
 ;$_={}+1;sub q{&e;&r};@
 i=(u=>n=>i=>q(n));$i[4
 ]=lc$_[2];$_[-1]++ for#                         
 1..3;$_[1]++;$m=uc(uc(
    @i[2    ,].@_[2,].@_
    [0        ,]));$_[3]=
              $_[5]='O';@i[1
               ,0]=(qw(r i p))
               [0,2]; $::{$m}
              = sub{_(&e(&d(&o
                 (&{c}))))};sub                  
                   _{eval"@i\" \"                
                     "};eval"sub @_\{@i(          
                       \$::@_=~/^.* ::(           
        .*              ?)\$/ix)}";&i&&&t    ;
    *_::n=\&                 n;a(),&::l;{{&i}
    };eval "                  \&@{[lc$_[0]]};";
     *X::=$/                     ;_::n()&&&s();&
     _;ITA(0                      );*X::=     $/
      ;$/.=                          '';#        
     P()=>&                          q,&l,&
      _; s(                           u)(b(
                                      ));
                                     e(b(
                       ) );$    _={}*@_;
                      map{$_->_}(q(t));
                       &q(&t);*_::_
                          =\&{'!'};
                            _::_('EN             
                                D')

--8<-- CUT HERE --8<-- 

ciao


-- 
Stixx Live 1.0 released!
http://www.stixx.org