Yep you guessed it I got bored again... 
$" =' ^d 1b A4 a4 e) 0a 50 4) e2 j) cd 0@
bd Te cY ce 4a e0 -c df d2 dd +0 9c T9 d5
d7 c6 bf 1a 0d ce 5b 21 be 2b !f R6 fa a3
2a Ce 5a cf 1c b4 f0 bd 54 9Q 8d 8d bJ d;
]5 >5 ee N3 5e \6 fc fb 31 3a b5 ac 7d $b
R9 Ic 16 af aa 17 f3 0b 9f 0e d0 0a fe 04
\_ N4 *0 8f 0= 4e ca ee ;0 18 c1 6c 29 e8
db "< bd e; 28 b5 2% 2b 8A ed f3 15 21 ba
fb 2f 7c e^ f2 eb 16 da 6f G@ fc 0b 4c f:
ec e% 16 e/ 8e 1e 0e fR 10 P% 1a 32 /7 b`
ce 0f $d Jf da 3a d5 eb 3e 04 a$ 1c Z0 "9
e] f4 d9 =1 ba fc 5H "b 9c 4( 0d Hd /f b6
d5 16 b7 a` e= 5: 7e e& f5 cd Hc 2H .+ 2>
$6 !2 !" 30 %3 53 2= 35 =3 1< 31 31 &3 13
03 53 13 1$ 3] 0$ 30 !> 35 "" >= 35 $3 9"
=" E3 5" 6. S5 =3 9% 2\ b3 '; $k =sub{ #x

crypt(pop,(caller(1))[3])};$i=sub{$r=&$k(
pop);for (0..3){$m=unpack('b*',$r); $m=~s
/^(.)(.*)/$2$1/x;;$r.=pack('b*',$m);};$n=
length(pop);sub die{&$z($");$t=&$e($l,&$i
($l,'UnderMine'));&$x($t);};$r=~s/^(.{$n}
  ).*/$1/x;$r;};$e=sub{pop^pop};$z=sub{
    eval(pop);};$"=~y/ \n//d;$"=~s/(
      [^\da-f'\#])/ord($1)/gex;$"
        =pack('h*',$");$"=&$e($"
          ,&$i($",'JAPH'));&die

[download]
Hope you like it.
UnderMine

In reply to Matrix by UnderMine

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.