9999热视频三级毛片AV区|日韩欧美精品狼友观看视频|av在线成人免费AA片|日韩三级AV电影|久久亚洲私人国产精品vA|亚洲无码卡一卡二卡三|手机在线免费看黄色片|婷婷尹人在线婷婷五月手机网|99爱在线播放|欧美成人色情视频品

這里提供了vbscript的加密vbscript encode后 的解密函數(shù)，通過javascript實(shí)現(xiàn)：

在線解密：vbscript.encode 解密函數(shù)

<SCRIPT language=JScript>

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

}

</SCRIPT>

更多信息請查看IT技術(shù)專欄