VBScript.Encode解密代码

VBscript.Encode解密


解密

 

<html>
<body>
<center>
<table cellPadding=3 bgcolor=#e7e7e7>
  <tr>
    <td bgcolor=#336699><div align=center><font color=#ffffff size=3><strong>VBscript.Encode解密</strong></font></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 + "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>
      <textarea id=encodeHTML rows=20 cols=80></textarea>
      <br>
      <br>
      <div align=center>
        <button οnclick=encodeHTML.innerText=strdec(encodeHTML.innerText)>解密 </button>
      </div></td>
  </tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>

 

 

 

转载于:https://www.cnblogs.com/yeye518/archive/2008/06/20/2231737.html

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值