ircart

- massive organized collection of irc art
git clone git://git.acid.vegas/ircart.git
dolphinperl.txt (1072B)
      1 dolphin
      2  #!/usr/bin/perl -s                         
      3                                                        sub R{int$_[0]||
      4                                return vec$_[1],$_[2]/4,32;int$_[0]*rand}($R)
      5                             =$^=~'([\]-\`])';sub F{$u=0;grep$u|=$S->[$_][$_[0]>>
      6                                $_*4&15]<<$_*4,reverse 0..7;$u<<11|$u>>21}$t=$e
      7                                 ||$d?join'',<>:(($p,$d)=($R,1),unpack u
      8                                 ,"(3=MCV7%2W'<`");@b=@t=0..15;for(
      9                             ;$i<length$p;$i+=4){srand($s^=R$R,$p
     10                          ,$i)}while($c<8){grep{push@b  ,splice
     11                       @b,R(9),5}@t;$R[$c]=R(2       **32);@{     
     12                  $S->[$c++]}=@b}@h=0..7;@o       =reverse         
     13                @h;while($a<length
     14              $t){$v=R$R,$t,$a;
     15  $w=R$R,$t,($a+=8)-4;
     16     grep$q++%2?$v
     17      ^=F$w+$R                 
     18       [$$R]:(                                       $w^=F$v+$R[$$R]),$d?(@h,(@o)
     19       x3):((                                        @h)x3,@o);$_.=pack N2,$w,$v}
     20       print