网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
andme吧 关注：16贴子：1,471
  • 2回复贴，共1页

VBscript.Encode解码器

收藏回复

  • 221.214.219.*
<html>
<HEAD>
     <TITLE>VBscript.Encode解码器</TITLE>
     <META NAME="Generator" CONTENT="EditPlus">
     <META NAME="Author" CONTENT="">
     <META NAME="Keywords" CONTENT="">
     <META NAME="Description" CONTENT="">
</HEAD>
<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,

1楼2010-03-05 22:10回复
    • 221.214.219.*
         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)
            {
    
    2楼2010-03-05 22:10
    回复
      • 221.214.219.*
               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 onclick=encodeHTML.innerText=strdec(encodeHTML.innerText)>解密
      </button></div></td></tr></table></td></tr></table></td></tr></table>
      </body>
      </html>
      
      3楼2010-03-05 22:10
      回复

        扫二维码下载贴吧客户端

        下载贴吧APP
        看高清直播、视频！
        • 2回复贴，共1页
        发表回复
        发贴请遵守贴吧协议及“七条底线”贴吧投诉
        内  容:
          查看全部
        发 表
        保存至快速回贴