zoukankan html css js c++ java

VBScript.Encode解密代码

VBscript.Encode解密

<div align="center"><button>解密</button></div>
</td>
</tr></tbody></table> 
<html> 
<body> 
<center> 
<table cellPadding=3
bgcolor=#e7e7e7> 
  <tr> 
   
<td
bgcolor=#336699><div
align=center>VBscript.Encode解密</div></td>

</tr> 
  <tr> 
   
<td align=middle
height=80><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 + "<a href="mailto:DQgAAA==^#~@">DQgAAA==^#~@".length</a> 
     
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> 
     
<textarea id=encodeHTML rows=20
cols=80></textarea>

</tr> 
</table> 
</td> 
</tr> 
</table> 
</td> 
</tr> 
</table> 
</body> 
</html>
 
 
 
</center>

查看全文

相关阅读:
LeetCode 234——回文链表
 【转】Jmeter常见问题
 【转】JMeter 聚合报告之90% Line参数说明
 【转】Jmeter + DadBoby 安装使用
 【转】JMeter远程测试
 【转】关于一个Jmeter interface testing的实例
 【转】Jmeter 代理服务器录制脚本
 【转】Jmeter和LR上传文件和下载
 【转】Jmeter JDBC请求的问题
 【转】Jmeter的正则表达式未正确提取数据

原文地址：https://www.cnblogs.com/yeye518/p/2231737.html