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>

查看全文

相关阅读:
全局配置策略
 RESTful api介绍
 AJAX
django cookie session 自定义分页
 mysql 索引优化
 yii2 response响应配置
 Django中的信号
 django orm相关操作
 django orm介绍以及字段和参数
 django form和ModelForm组件

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