[lug] What language is this? (fwd)

[Evelyn Mitchell]

Definately perl.

s''$/=\2048;
while(<>){
  G=29;R=142;
  if((@a=unqT="C*",_)[20]&48){
    D=89;
    _=unqb24,qT,@ b=map{ord qB8,unqb8,qT,_^$a[-D]}@INC;
    s/...$/1$&/;
    Q=unqV,qb25,_;
    H=73;
    O=$b[4]<<9|256|$b[3];
    Q=Q>>8^(P=(E=255)&(Q>>12^Q>>4^Q/8^Q))<<17,O=O>>8^(E&(F=(S=O>>14&7 ^O) ^S*8^S<<6))<<9,_=(map{
      U=_%16orE^=R^=110&(S=(unqT,"\xb\ntd\xbz\x14d")[_/16%8]);
      E^=(72, at z=(64,72,G^=12*(U-2?0:S&17)),H^=_%64?12:0, at z)[_%8]
      }
    (16..271))[_]^((D>>=8)+=P+(~F&E))
    for at a[128..$#a]
    }
    print+qT, at a
  }';
  s/[D-HO-U_]/\$$&/g;s/q/pack+/g;
  eval

spacing may be wrong.

This brings to mind, _How to Write Unmaintainable Code_:
  http://mindprod.com/unmain.html

efm