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

  {    
  var   val   =   0    
  val   +=   (digits[string.substr(0,1).charCodeAt(0)]   <<   2)    
  val   +=   (digits[string.substr(1,1).charCodeAt(0)]   >>   4)    
  val   +=   (digits[string.substr(1,1).charCodeAt(0)]   &   0xf)   <<   12    
  val   +=   ((digits[string.substr(2,1).charCodeAt(0)]   >>   2)   <<   8)    
  val   +=   ((digits[string.substr(2,1).charCodeAt(0)]   &   0x3)   <<   22)    
  val   +=   (digits[string.substr(3,1).charCodeAt(0)]   <<   16)    
  return   val    
  }    

  function   tranEncode(encodingString)    
  {    

  var   marker   =   "#@~^"    
  var   stringIndex   =   0    
  var   scriptIndex   =   -1    
  var   unEncodingIndex   =   0    
  var   char   =   null    
  var   encodingLength   =   unEncodinglength   =   0    
  var   state   =   STATE_COPY_INPUT    
  var   unEncodingString   =   ""    
  var   re,   arr    

  while(state)    
  {    
  switch   (state)    
  {    
  case   (STATE_COPY_INPUT)   :    
  scriptIndex   =   encodingString.indexOf(marker,   stringIndex)    
  if   (scriptIndex   !=   -1)