VBscript.Encode解密 vbscript.encode 在线

<html>
<body>
<center>
<table cellPadding=3bgcolor=#e7e7e7>
<tr>
<tdbgcolor=#336699><divalign=center><font color=#ffffffsize=3><strong>VBscript.Encode解密</strong></font></div></td>
</tr>
<tr>
<td align=middleheight=80><scriptlanguage=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 ="rn<>@"
if (char.charCodeAt(0) > 126)return char
if (escapes.indexOf(char) != -1) returnescaped.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)
{
VBscript.Encode解密 vbscript.encode 在线
unEncodingString +=String.fromCharCode(transformed[pick_encoding[unEncodingIndex%64]][char.charCodeAt(0)])
unEncodingIndex++
}
else
{
unEncodingString += char
}
scriptIndex++
unEncodinglength--
break
}

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

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

</script>
<textarea id=encodeHTML rows=20cols=80></textarea>
<br>
<br>
<div align=center>
<buttononclick=encodeHTML.innerText=strdec(encodeHTML.innerText)>解密</button>
</div></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>

  

爱华网本文地址 » http://www.413yy.cn/a/25101016/287138.html

更多阅读

怎么解密MD5密码 md5密码在线解密

怎么解密MD5密码——简介MD5即Message-Digest Algorithm 5(信息-摘要算法5),用于确保信息传输完整一致。是计算机广泛使用的杂凑算法之一(又译摘要算法、哈希算法),主流编程语言普遍已有MD5实现。有时候我们需要破解MD5密码。。。怎么破

游梦朋友网超级赠品 游梦朋友网在线解密

只要您跟游梦朋友网购买了解密服务,以下赠品全部免费赠送,助你成为一个成功的把妹达人!!!PUA,全称Pick-upArtist(把妹达人)。把妹达人,指的是一群受过系统化学习、实践、和不断自我完善泡学(把妹)技巧的男人。在字面上的解释,PUA指的是‘

VBScript函数大字典详细说明 vbscript时间函数

2006-09-12 14:59Abs 函数 返回数的绝对值。Array 函数 返回含有数组的变体。Asc 函数 返回字符串首字母的 ANSI 字符码。Atn 函数 返回数值的反正切。CBool 函数 返回已被转换为 Boolean 子类型的变体的表达式。CByte 函数 返回已

VBScript中的类 vbscript数据类型

摘录自"VBScript程序员参考手册(第三版)" 略有修改尽管这个功能已经存在了一段时间,但大部分人还是不知道可以在VBScript中定义类。VBScript中的类为VBScript程序员提供了一个强大的工具,尤其是在规模较大的脚本项目中。诚然,VBScript的

声明:《VBscript.Encode解密 vbscript.encode 在线》为网友野荷的香馥分享!如侵犯到您的合法权益请联系我们删除