求解开jscript.encode代码的asp函数

javascript函数已经有了，有没有Asp的函数？？？   
  或者有没有高手可以把下面的写成asp的   ,万分感谢~！！ 

 
 <SCRIPT   LANGUAGE="JavaScript">    
  <!--    
  function   toEncode(s,l)    
  {enc=new   ActiveXObject("Scripting.Encoder");    
  return   enc.EncodeScriptFile("."+l,s,0,l+"cript");    
  }    

     
  var   STATE_COPY_INPUT   =   100    
  var   STATE_READLEN   =   101    
  var   STATE_DECODE   =   102    
  var   STATE_UNESCAPE   =   103    

  var   pick_encoding   =   new   Array(    
  1,   2,   0,   1,   2,   0,   2,   0,   0,   2,   0,   2,   1,   0,   2,   0,    
  1,   0,   2,   0,   1,   1,   2,   0,   0,   2,   1,   0,   2,   0,   0,   2,    
  1,   1,   0,   2,   0,   2,   0,   1,   0,   1,   1,   2,   0,   1,   0,   2,    
  1,   0,   2,   0,   1,   1,   2,   0,   0,   1,   1,   2,   0,   1,   0,   2    
  )    

  var   rawData   =   new   Array(    
  0x64,0x37,0x69,   0x50,0x7E,0x2C,   0x22,0x5A,0x65,   0x4A,0x45,0x72,    
  0x61,0x3A,0x5B,   0x5E,0x79,0x66,   0x5D,0x59,0x75,   0x5B,0x27,0x4C,