【皮草源码】【20牛人源码】【精品源码屋】asp源码解密工具
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 "你提交的路径有误，禁止从站点外部提交数据请不要乱该参数！码解密工20牛人源码</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
%>
- 上一条：免费收银源码_免费收银源码是什么
- 下一条：建材cms源码_建材网站源码
