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>

查看全文

相关阅读:
Python的单元测试（二）
Python的单元测试（一）
未知道——广场式的真匿名交流网站（一）
xpath提取多个标签下的text
清空Github上某个文件的历史版本
 如何正确使用日志Log
使用AWS亚马逊云搭建Gmail转发服务（三）
玩转Windows服务系列——Windows服务小技巧
 玩转Windows服务系列——服务运行、停止流程浅析
 玩转Windows服务系列——无COM接口Windows服务启动失败原因及解决方案

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