點擊右邊

解密ASP源代萬來博碼

從網上興致沖沖公開載了ASP源代碼,預備進修研究的時辰.一關上文件,天書般的加密代碼.很讓人憂郁吧 🙁 在網上是找到相識密的要領,得一個文件挨一個文件地關上,復制,粘貼,解密,再復制,再粘貼,再保管……若是一個ASP法式有幾百個文件??? 辦理設施來了..復制代碼 代碼以下:<% @Language=”大眾JavaScript公眾 %> <% /*  *————— decode.asp —————–  * 功效:遍歷某個目次下的一切文件,對加密過的.asp文件  *      進行解密,并寫入源文件中.  * 實例:單個文件解密  * Response.Write(DncodeFile(Server.MapPath(“大眾conn.asp”大眾)));  * 實例:目次下一切文件解密.  * DncodeFolderFiles(Server.MapPath(公眾xml”大眾))  * author:wanghr100(灰豆寶寶.net)  * update:2004-5-17 11:31  *————— decode.asp —————–  */ function DncodeFile(sFilePath) { /*  *————— DncodeFile(sFilePath) —————–  * DncodeFile(sFilePath)   * 功效:關上文件sFilePath,Encode解密,重寫該文件.  * 參數:sFilePath,字符串,文件的路徑.  * 返歸:sFilePath,文件的路徑.  * 實例:Response.Write(DncodeFile(Server.MapPath(“大眾conn.asp”大眾)));  * author:wanghr100(灰豆寶寶.net) &nbs運彩版pttp;* update:2004-5-17 0:58  *————— 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:2004-5-12 8:33  * author:wanghr100(灰豆寶寶.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 2004-5-17 11:09 只為一維數組 */         sFilePath=sFilePath.concat(GetFilesPath(enmFolders.item().Path));     }     return sFilePath; } function GetFileType(sFileName) { /*  *————— GetFileType(sFileName) —————–  * GetFileType(sFileName)   * 功效:經由過程后綴,獲得sFileName的文件類型.  * 參數:sFileName,字符串,文件名.  * 實例:Response.Write(GetFileType(“大眾decode.asp公眾))  * update:2004-5-13 8:33  * author:wanghr100(灰豆寶寶.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        = 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&nbsp六合彩結果號碼;(STATE_COPY_INPUT) :                     scriptIndex = encodingString.indexOf(marker, stringIndex)                     if (scriptIndex != -1)                     {                         unEncodingString += encodingString.substring(stringIndex, scriptIndex)                         scriptIndex += marker.length  &nb真錢麻將appsp;                      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++            &nbsp地下539公式;            }                         else                         {                      &大樂透即時開獎號碼nbsp;      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:wanghr100(灰豆寶寶.net)  * update:2004-5-17 8:07  *————— 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(公眾list公眾)) //獲得t.asp.解密. //Response.Write(DncodeFile(Server.MapPath(“大眾t.asp”大眾))) %>
【免責聲明】本站內容轉載自互聯網,其相關談吐僅代表作者小我私家概念盡非權勢巨子,不代表本站態度。如您發明內容存在版權成績,請提交相關鏈接至郵箱:,咱們將實時予以處置。