JScript.Encode.js

window._JS_Encode = true;

function screncode(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,
0x42,0x76,0x45, 0x60,0x63,0x76, 0x23,0x62,0x2A, 0x65,0x4D,0x43,
0x5F,0x51,0x33, 0x7E,0x53,0x42, 0x4F,0x52,0x20, 0x52,0x20,0x63,
0x7A,0x26,0x4A, 0x21,0x54,0x5A, 0x46,0x71,0x38, 0x20,0x2B,0x79,
0x26,0x66,0x32, 0x63,0x2A,0x57, 0x2A,0x58,0x6C, 0x76,0x7F,0x2B,
0x47,0x7B,0x46, 0x25,0x30,0x52, 0x2C,0x31,0x4F, 0x29,0x6C,0x3D,
0x69,0x49,0x70, 0x3F,0x3F,0x3F, 0x27,0x78,0x7B, 0x3F,0x3F,0x3F,
0x67,0x5F,0x51, 0x3F,0x3F,0x3F, 0x62,0x29,0x7A, 0x41,0x24,0x7E,
0x5A,0x2F,0x3B, 0x66,0x39,0x47, 0x32,0x33,0x41, 0x73,0x6F,0x77,
0x4D,0x21,0x56, 0x43,0x75,0x5F, 0x71,0x28,0x26, 0x39,0x42,0x78,
0x7C,0x46,0x6E, 0x53,0x4A,0x64, 0x48,0x5C,0x74, 0x31,0x48,0x67,
0x72,0x36,0x7D, 0x6E,0x4B,0x68, 0x70,0x7D,0x35, 0x49,0x5D,0x22,
0x3F,0x6A,0x55, 0x4B,0x50,0x3A, 0x6A,0x69,0x60, 0x2E,0x23,0x6A,
0x7F,0x09,0x71, 0x28,0x70,0x6F, 0x35,0x65,0x49, 0x7D,0x74,0x5C,
0x24,0x2C,0x5D, 0x2D,0x77,0x27, 0x54,0x44,0x59, 0x37,0x3F,0x25,
0x7B,0x6D,0x7C, 0x3D,0x7C,0x23, 0x6C,0x43,0x6D, 0x34,0x38,0x28,
0x6D,0x5E,0x31, 0x4E,0x5B,0x39, 0x2B,0x6E,0x7F, 0x30,0x57,0x36,
0x6F,0x4C,0x54, 0x74,0x34,0x34, 0x6B,0x72,0x62, 0x4C,0x25,0x4E,
0x33,0x56,0x30, 0x56,0x73,0x5E, 0x3A,0x68,0x73, 0x78,0x55,0x09,
0x57,0x47,0x4B, 0x77,0x32,0x61, 0x3B,0x35,0x24, 0x44,0x2E,0x4D,
0x2F,0x64,0x6B, 0x59,0x4F,0x44, 0x45,0x3B,0x21, 0x5C,0x2D,0x37,
0x68,0x41,0x53, 0x36,0x61,0x58, 0x58,0x7A,0x48, 0x79,0x22,0x2E,
0x09,0x60,0x50, 0x75,0x6B,0x2D, 0x38,0x4E,0x29, 0x55,0x3D,0x3F
)

var transformed = new Array()
for( var i = 0; i < 3; i++ )
{
 transformed[i] = new Array();
}
for( var i = 31; i <= 126; i++ )
{
 for( var j = 0; j < 3; j++ )
 {
  transformed[j][rawData[(i-31) * 3 + j]] = (i==31) ? 9 : i;
 }
}

var digits = new Array()
for( var i = 0; i < 26; i++ )
{
 digits["A".charCodeAt(0)+i] = i
 digits["a".charCodeAt(0)+i] = i+26
}
for(var i=0; i<10; i++)
{
 digits["0".charCodeAt(0)+i] = i+52
}
digits[0x2b] = 62
digits[0x2f] = 63

function unescape(char)
{
 var escapes = "#&!*$"
 var escaped = "\r\n<>@"

 if (char.charCodeAt(0) > 126) return char
 if (escapes.indexOf(char) != -1) return escaped.substr(escapes.indexOf(char), 1)
 return "?"
}

function decodeBase64(string)
{
 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 strdec(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)
    {
     unEncodingString += encodingString.substring(stringIndex, scriptIndex)
     scriptIndex += marker.length
     state = STATE_READLEN
    }
    else
    {
     stringIndex = stringIndex==0 ? 0 : stringIndex
     unEncodingString += encodingString.substr(stringIndex, encodingString.length)
     state = 0
    }
    break

   case (STATE_READLEN) :
    encodingLength = encodingString.substr(scriptIndex, 6)
    unEncodinglength = decodeBase64(encodingLength)
    scriptIndex += (6 + "==".length)
    state = STATE_DECODE
    break

   case (STATE_DECODE) :
    if (!unEncodinglength)
    {
    stringIndex = scriptIndex + "DQgAAA==^#~@".length
    unEncodingIndex = 0
    state = STATE_COPY_INPUT
    break
    }
   char = encodingString.substr(scriptIndex, 1)
   if (char == "@") state = STATE_UNESCAPE
   else
   {
    if (char.charCodeAt(0) < 0xFF)
    {
     unEncodingString += String.fromCharCode(transformed[pick_encoding[unEncodingIndex%64]][char.charCodeAt(0)])
     unEncodingIndex++
    }
    else
    {
     unEncodingString += char
    }
    scriptIndex++
    unEncodinglength--
    break
   }

   case STATE_UNESCAPE:
    unEncodingString += unescape(encodingString.substr(++scriptIndex, 1))
    scriptIndex++; unEncodinglength -=2
    unEncodingIndex++
    state = STATE_DECODE
    break
  }
 }

 re = new RegExp("(JScript|VBscript).encode", "gmi")
 while(arr = re.exec(unEncodingString)) unEncodingString = RegExp.leftContext + RegExp.$1 + RegExp.rightContext
 return unEncodingString
}