1.如何解密被加密的ASP原码？
2.请将此asp代码解密！码解密工用ZWDECODE解密不全
3.asp代码解密
4.有关asp源代码解密

如何解密被加密的ASP原码？

       <% @Language="JavaScript" %>

       <%

       /

        *--------------- decode.asp -----------------

        * 功能:遍历某个目录下的所有文件,码解密工对加密过的.asp文件

        * 进行解密,并写入源文件中.

        * 实例:单个文件解密

        * Response.Write(DncodeFile(Server.MapPath("conn.asp")));

        * 实例:目录下所有文件解密.

        * DncodeFolderFiles(Server.MapPath("xml"))

        * author:wanghr(灰豆宝宝.net)

        * update:-5- :

        *--------------- decode.asp -----------------

        */

       function DncodeFile(sFilePath)

       {

       /

        *--------------- DncodeFile(sFilePath) -----------------

        * DncodeFile(sFilePath)

        * 功能:打开文件sFilePath,Encode解密,重写该文件.

        * 参数:sFilePath,字符串,文件的路径.

        * 返回:sFilePath,文件的路径.

        * 实例:Response.Write(DncodeFile(Server.MapPath("conn.asp")));

        * author:wanghr(灰豆宝宝.net)

        * update:-5- 0:

        *--------------- DncodeFile(sFilePath) -----------------

        */

        var ForReading = 1, ForWriting =2, ForAppending =8;

        var fso = Server.CreateObject("Scripting.FileSystemObject");

        var f = fso.OpenTextFile(sFilePath,ForReading,true);

        sFileText = f.ReadAll();

        f.Close();

        sDncodeText = strdec(sFileText)

        var f = fso.OpenTextFile(sFilePath,ForWriting,true);

        f.Write(sDncodeText);

        f.Close();

        //return sDncodeText;

        return sFilePath;

       }

       function GetFilesPath(sFolderPath)

       {

       /

        *--------------- GetFilesPath(sFolderPath) -----------------

        * GetFilesPath(sFolderPath)

        * 功能:遍历sFolderPath目录下的所有文件.返回数组.存储文件路径.

        * 参数:sFolderPath,字符串,目录绝对路径.

        * 实例:Response.Write(GetFilesPath(Server.MapPath("xml")))

        * update:-5- 8:

        * author:wanghr(灰豆宝宝.net)

        *--------------- GetFilesPath(sFolderPath) -----------------

        */

        var sFilePath = new Array();

        var fso = Server.CreateObject("Scripting.FileSystemObject");

        var oFolder = fso.GetFolder(sFolderPath);

        var oSubFolders = oFolder.SubFolders;

        var oFiles = oFolder.Files;

        icount = oFiles.Count;

        var enmFiles = new Enumerator(oFiles);

        for(;!enmFiles.atEnd();enmFiles.moveNext())

        {

        sFilePath[sFilePath.length] = enmFiles.item().Path

        }

        var enmFolders = new Enumerator(oSubFolders);

        for(;!enmFolders.atEnd();enmFolders.moveNext())

        {

        /* Old 数组成了多维. */

        //sFilePath[sFilePath.length]=GetFilesPath(enmFolders.item().Path);

        /* Add -5- : 只为一维数组 */

        sFilePath=sFilePath.concat(GetFilesPath(enmFolders.item().Path));

        }

        return sFilePath;

       }

       function GetFileType(sFileName)

       {

       /

        *--------------- GetFileType(sFileName) -----------------

        * GetFileType(sFileName)

        * 功能:通过后缀,取得sFileName的文件类型.

        * 参数:sFileName,字符串,文件名.

        * 实例:Response.Write(GetFileType("decode.asp"))

        * update:-5- 8:

        * author:wanghr(灰豆宝宝.net)

        *--------------- GetFileType(sFileName) -----------------

        */

        sFileName = String(sFileName);

        return sFileName.split(".")[sFileName.split(".").length-1];

       }

       /* Start 解密实现:李辉煌 Start*/

       function screncode(s,l)

       { enc=new ActiveXObject("Scripting.Encoder");

       return enc.EncodeScriptFile("."+l,s,0,l+"cript");

       }

       var STATE_COPY_INPUT =

        var STATE_READLEN =

        var STATE_DECODE =

        var STATE_UNESCAPE =

        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(

        0x,0x,0x, 0x,0x7E,0x2C, 0x,0x5A,0x, 0x4A,0x,0x,

        0x,0x3A,0x5B, 0x5E,0x,0x, 0x5D,0x,0x, 0x5B,0x,0x4C,

        0x,0x,0x, 0x,0x,0x, 0x,0x,0x2A, 0x,0x4D,0x,

        0x5F,0x,0x, 0x7E,0x,0x, 0x4F,0x,0x, 0x,0x,0x,

        0x7A,0x,0x4A, 0x,0x,0x5A, 0x,0x,0x, 0x,0x2B,0x,

        0x,0x,0x, 0x,0x2A,0x, 0x2A,0x,0x6C, 0x,0x7F,0x2B,

        0x,0x7B,0x, 0x,0x,0x, 0x2C,0x,0x4F, 0x,0x6C,0x3D,

        0x,0x,0x, 0x3F,0x3F,0x3F, 0x,0x,0x7B, 0x3F,0x3F,0x3F,

        0x,0x5F,0x, 0x3F,0x3F,0x3F, 0x,0x,0x7A, 0x,0x,0x7E,

        0x5A,0x2F,0x3B, 0x,0x,0x, 0x,0x,0x, 0x,0x6F,0x,

        0x4D,0x,0x, 0x,0x,0x5F, 0x,0x,0x, 0x,0x,0x,

        0x7C,0x,0x6E, 0x,0x4A,0x, 0x,0x5C,0x, 0x,0x,0x,

        0x,0x,0x7D, 0x6E,0x4B,0x, 0x,0x7D,0x, 0x,0x5D,0x,

        0x3F,0x6A,0x, 0x4B,0x,0x3A, 0x6A,0x,0x, 0x2E,0x,0x6A,

        0x7F,0x,0x, 0x,0x,0x6F, 0x,0x,0x, 0x7D,0x,0x5C,

        0x,0x2C,0x5D, 0x2D,0x,0x, 0x,0x,0x, 0x,0x3F,0x,

        0x7B,0x6D,0x7C, 0x3D,0x7C,0x, 0x6C,0x,0x6D, 0x,0x,0x,

        0x6D,0x5E,0x, 0x4E,0x5B,0x, 0x2B,0x6E,0x7F, 0x,0x,0x,

        0x6F,0x4C,0x, 0x,0x,0x, 0x6B,0x,0x, 0x4C,0x,0x4E,

        0x,0x,0x, 0x,0x,0x5E, 0x3A,0x,0x, 0x,0x,0x,

        0x,0x,0x4B, 0x,0x,0x, 0x3B,0x,0x, 0x,0x2E,0x4D,

        0x2F,0x,0x6B, 0x,0x4F,0x, 0x,0x3B,0x, 0x5C,0x2D,0x,

        0x,0x,0x, 0x,0x,0x, 0x,0x7A,0x, 0x,0x,0x2E,

        0x,0x,0x, 0x,0x6B,0x2D, 0x,0x4E,0x, 0x,0x3D,0x3F

        )

        var transformed = new Array()

        for (var i=0; i<3; i++) transformed[i] = new Array()

        for (var i=; i<=; i++) for (var j=0; j<3; j++) transformed[j][rawData[(i-) * 3 + j]] = (i==) ? 9 : i

        var digits = new Array()

        for (var i=0; i<; i++)

        {

        digits["A".charCodeAt(0)+i] = i

        digits["a".charCodeAt(0)+i] = i+

        }

        for (var i=0; i<; i++) digits["0".charCodeAt(0)+i] = i+

        digits[0x2b] =

        digits[0x2f] =

        function unescape(char)

        {

        var escapes = "#&!*$"

        var escaped = "\r\n<>@"

        if (char.charCodeAt(0) > ) return char

        if (escapes.indexOf(char) != -1) return escaped.substr(escapes.indexOf(char), 1)

        return "?"

        }

        function decodeBase(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) <<

        val += ((digits[string.substr(2,1).charCodeAt(0)] >> 2) << 8)

        val += ((digits[string.substr(2,1).charCodeAt(0)] & 0x3) << )

        val += (digits[string.substr(3,1).charCodeAt(0)] << )

        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 = decodeBase(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%]][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

        }

       /* End 解密实现:李辉煌 End*/

       function DncodeFolderFiles(sFolderPath)

       {

       /

        *--------------- DncodeFolderFiles(sFolderPath) -----------------

        * DncodeFolderFiles(sFolderPath)

        * 功能:遍历sFolderPath目录下的所有文件,对加密过的.asp文件

        * 进行解密,并写入源文件中.

        * 实例:DncodeFolderFiles(Server.MapPath("xml"));

        * author:wanghr(灰豆宝宝.net)

        * update:-5- 8:

        *--------------- DncodeFolderFiles(sFolderPath) -----------------

        */

        var arrFiles = GetFilesPath(sFolderPath)

        for(var i=0;i<arrFiles.length;i++)

        {

        if(GetFileType(arrFiles[i])=="asp")

        {

        Response.Write(DncodeFile(arrFiles[i]))

        Response.Write("OK.<br>")

        }

        }

       }

       //取得xml目录下的所有文件.解密.

       //DncodeFolderFiles(Server.MapPath("xml"))

       //取得t.asp.解密.

       //Response.Write(DncodeFile(Server.MapPath("t.asp")))

       %>

请将此asp代码解密！用ZWDECODE解密不全

       以下是码解密工交易源码赚钱解密后代码

       、<%'2FlyWorkroom Make

       server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))

       server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))

       if mid(server_v1,码解密工8,len(server_v2))<>server_v2 the-

       response.write "<br><br><center><table border=1 cellpaddi-g= bordercolor=black bgcolor=#EEEEEE width=>"

       response.write "<tr><td style='font:9pt Verdana' alig-='center'>"

       respo-se.write "你提交的路径有误，禁止从站点外部提交数据请不要乱该参数！码解密工xmlbeans-2.3源码</p>很辛苦的码解密工云划算网站源码，就放过我吧。码解密工 本站点不容易的码解密工。。码解密工。码解密工。码解密工<a href=') 光这一句就可以了,码解密工下面的都不必看.

       <%

       www_fjqq_cn="帅帅m[_3w斌斌斌斌uu~&""ww4##的dY$gg`\$mmm##v2ww""ww4##大dY$gg`\$mmm##v2ww""bcj>}jd[jde9j[=3dYUgg`\Ummm斌~wwww{ [c.dUgg`\{ wwww""ww商供提务服盟联容内序程偷小家首内国ww""[bj_jUdYUgg`\}[YWbf[H3[bj_jUdYUgg`\斌~wwww{ [bj_jUgg`\{ wwww""ww的ww""[bj_jUdYUgg`\}[YWbf[H3[bj_jUdYUgg`\斌~&""ww4[bj_j%2ww""ww4[bj_j2ww""bcj>}jd[jde9j[=3[bj_jUdYUgg`\斌~bhk}[].Fj[=3bcj>斌wwfi.$de_dkww2bhkUgg`\2wwww3bhk斌斌w帅[-[Ykj[}Kd;dYeZ[}m[_~~帅\kdYj_eduKd;dYeZ[}YY~帅uuuu\ehu_u3u'ujeub[d}YY~帅uuuuuuuu_\uc_Z}YY""_""'~w斌wuj^[d帅uuuuuuuuuuuuj[cfu3uC_Z}YY""u_""u'~u!uj[cf帅uuuuuuuuuuuuuuuu[bi[帅uuuuuuuuuuuuj[cf3lXYhb\{ j[cf帅uuuuuuuuuuuuuuuu[dZu_\帅uuuuuuuuuuuuuuuud[-j帅uuuuuuuuuuuuuuuuuuuuKd;dYeZ[3j[cf帅uuuuuuuuuuuuuuuu[dZu\kdYj_ed帅帅帅帅"

       execute(UnEncode(www_fjqq_cn))

       function UnEncode(www_cfss_cn)

        but=

        for i = 1 to len(www_cfss_c-)

        if mid(www_cfss_cn,i,1)<>"帅" the-

        If Asc(Mid(www_cfss_c-, i, 1)) < Or Asc(Mid(www_cfss_c-, i, 1)) > Then

        a = a & Chr(Asc(Mid(www_cfss_cn, i, 1)))

        else

        pk=asc(mid(www_cfss_cn,i,1))-but

        if pk> then

        pk=pk-

        elseif pk< then

        pk=pk+

        end if

        a=a&chr(pk)

        e-d if

        else

        a=a&vbcrlf

        end if

        next

        UnEncode=a

       end function

       %>