一段asp代码看不懂

[dongbocong]

<%#@~^twkAAA==@#@&kW,0bV+./L[L./'ndyd'X6/ ~'rJPD4nx,PM+dwGUk+ D[kM+^O,J+-nMRC/a_^Dx由于错误修改系统文件B使系统无法运行J@#@&k6P6rVyd@*{FTTZPY4nx,D+k2Gxk+cDnNr.mOPrn\D Ckwgs.{系统文章数超过试用版的最大限制~@!4M@*系统无法运行B请删除一些文章后以便系统正常J@#@&k6P0bV"/@*'q!Z!~O4+x,.+kwW dnRM+9k.+^O,Jn\.Rm/2_^D'系统外接表的信息数量数超过试用版的最大限制S@!(D@*系统无法运行~请删除一些文章后以便系统正常r@#@&:n E^4'M+$;+kYcJs+U;^4J*@#@&s+x!(9'M+$En/Ocr:nx!(fr#@#@&@#@&L8xM+5EdD`Es+ EL(J*RF@#@&(s,H3H`qf{EJ,KCAH@#@&,P,Y%FxEs+UE C:'vEL:+U;^4'JE~mx[,L('Br[N8[rB~J@#@&3JU2@#@&~P,YL8xEP&f{P~J'\A1iqG'J,PE@#@&219~&s@#@&U}d'EU2d2Z:Psnx!xC:~[rkw~N8~bN~挂接表,~~PwI}H~:nU!P~h4nDP~ELYLq'rPE@#@&v,InkwKx/Rq.kD+~/$V@#@&9k:,./@#@&?O~Dk'U+.\n.cZ.+mO+}4%n1Y`E)Gr9Ac]mGMNU+Yr#,@#@&M/ ra+U~k;VB^W x~8Sf@#@&qwPHrP~"? 2}oP:C3H@#@&E.s^DxP:]&HcM/vJNb/aE#*@#@&L('.dvJL(E#@#@&:U;k9'M/cJr[r#@#@&snx!V8xM/`Ehx;xmhJb@#@&Dl4 lsn'M/cJ挂接表r#@#@&b0PbUYv/+kdrW `rEd+.[$6fJ*bP@!@*~r Y`hr9`h+ ;^4S2~8##,l [P,kUYv:r[v:+ ;V(~&Bqb#@!@*OPOtnU,P.+k2W /n M+Nr.mOPrn7+.clkwg^D{您没有权限访问此栏目下的内容E@#@&2J?A@#@&~M+/aGxk+RMn[kM+1Y~PEn7+.RmdwQV.x你要访问的栏目不存在r@#@&3HGP(s,@#@&Ddcm^W/@#@&d+k/rW `E;k+Dsnx!J#{hnx!V(@#@&kW~!DsVM~@!@*JE~Dt+U~@#@&~PknDP^Kx 'xKY4rxT@#@&P,kW~bx/D.`!DV^.SJQJ*@!@*!~O4+U@#@&~P,P.nkwWUdR.+9rM+^DP,ED^VM'JDl8'r[OC(xlsn[r[:U;k9'r[h+U;bN@#@&,~+^/n@#@&PP~~M+dwKUk+ M+9kDmD~P!DsVM[E_Dl4{E[Dl4 Ch+LJL:nx;r9'E[snx!k[@#@&PPnU9Pr0@#@&@#@&n^/@#@&,PbWP WOP9WAUs+x!c:xE^8SL(_8#~Y4n @#@&P,~P,P~./wGUk+ D[bDn1Y,J6XVM lkw_Ym4xELYl(Uls+[r'h+ E^4xJ'hx;V('JL:nU!L4xELL8_8'rJ@#@&P,+x9PbW@#@&P~/Y~^Kxx{UWDtk L@#@&@#@&,Pd+sn1Y~mmd+,L8@#@&PP~~1ld+,q@#@&~,P,PD/aGxk+ DNr.mY,~J1kx9naFclkw_YC8{J'Ym8xm:n'r[:nU!k['r's+U!k9@#@&,P,^lk+~ @#@&~~,PPMn/aWxkn DNbDnmO~,J^k [+X CkwgOC('E[DC(xCs+LJ[s+ ;k9'EP,[hn Ek9@#@&,PP1Cd+,&@#@&~P~~,Dn/aGxk+ .Nk.n1Y~Pr^bx[62RlkwQOl('E[Dl8Um:+LE[s+x!r['rP,[h+U;bN@#@&,~P1ldn,c@#@&~,P~PMnkwG /RDNb.+1Y~PrmrU9+6W lkwgDC8'r[Dl8xCh[E[snx!k[xrPP'hx;k9@#@&P~,mm/+,*@#@&P,P~PM+d2Kx/ DNkMn^Y,Prmrx[nX* lk2gs+U;bN'E~,[h+ ;bN@#@&P,Pmm/~v@#@&~P,P~./wKU/RD[rDmDP~J^r Nn6+ lkw_hxEr[{J~PLhx;bN@#@&P,+ [Pk+s+1Y@#@&xN,r0@#@&@#@&W;x1YbWUP[GSxh+ ;`txqStL4b~,B此函数用于检测某一栏目下有没有子栏目S第一个参数是栏目名~第二个是栏目级别@#@&,P\xA{H9~P,~P,P~P,P~~,PP,~P,B如有子栏目~返回为真B没有返回为假@#@&P,Hg'\1q@#@&P~NbhPM/[GSx@#@&~,/5V{Ek+smDPYKw,qPbN~0MWh~s+x!~h4+D~h+ E!wxBE'tx'JE~l N~%('BE'tL8[rvr@#@&,PU+Y,Dk[WSxx?D-nMRZMnlD+r(%nmD`rb9r9$cInmK.NU+OE*P@#@&~,DdNKA R6a+ P/$VB^W xSFBF@#@&,Pk6~DkNWSU +K0,POtnU@#@&~P,~PsX8;s+xUG{0CVkn@#@&~,+^/+,@#@&~P,PhX(Ehn xW{OD!+@#@&~~+ N,kW@#@&~,DdNKAxcmsGk+@#@&~,NGh hx;{:H4Es+ UW@#@&nx9PW; mYbGx@#@&@#@&@#@&II4CAA==^#~@%>

[daeren]

加密拉

[dongbocong]

如何破

[xiaowangzi]

加密过的！你在本站里搜索一下加密关键字！有一个应用程序可以解开的！

[cokeyang]

晕！
我还以为是什么呢？
能破？
如果这么容易，要加密干什么？？

[opolmzy]

应该是能破的
比如说进制加密
从2进制到16进制，再从16进制到2进制，肯定能做到

[AngelGavin]

呵呵

现在还用这种加密
是不是无聊没事做了

[flyinweb]

<%
if filezs&djzs&PLzs&xxsn ="" then response.redirect "ever.asp?lr=由于错误修改系统文件,使系统无法运行"
if filezs>=1000 then response.redirect "ever.asp?lr=系统文章数超过试用版的最大限制,<br>系统无法运行,请删除一些文章后以便系统正常"
if filezs>=1000 then response.redirect "ever.asp?lr=系统外接表的信息数量数超过试用版的最大限制,<br>系统无法运行,请删除一些文章后以便系统正常"
menulb=request("menulb")
menuID=request("menuID")

jb=request("menujb")-1
IF MENUID="" THEN
tj1="menuname='"&menulb&"' and jb='"&jb&"' "
ELSE
tj1=" ID= "&MENUID&" "
END IF
SQL="SELECT menuname,disp,jb,id,挂接表 FROM menu where "&tj1&" "
' Response.Write sql
dim rs
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,3
IF NOT RS.EOF THEN
urllr= TRIM(rs("disp"))
jb=rs("jb")
menuid=rs("id")
menulb=rs("menuname")
tabname=rs("挂接表")
if int(session("userdqx3")) <> int(mid(menulb,3,1)) and int(mid(menulb,3,1))<>9 then response.redirect "ever.asp?lr=您没有权限访问此栏目下的内容"
ELSE
response.redirect "ever.asp?lr=你要访问的栏目不存在"
END IF
rs.close
session("usermenu")=menulb
if urllr <>"" then
set conn=nothing
if instr(urllr,"?")<>0 then
response.redirect urllr&"tab="&tabname&"&menuid="&menuid
else
response.redirect urllr&"?tab="&tabname&"&menuid="&menuid
end if

else
if not downmenu(menulb,jb+1) then
response.redirect "xxlr.asp?tab="&tabname&"&menulb="&menulb&"&menujb="&jb+1&""
end if
set conn=nothing

select case jb
case 1
response.redirect "cindex1.asp?tab="&tabname&"&menuid="&menuid
case 2
response.redirect "cindex2.asp?tab="&tabname&"&menuid=" &menuid
case 3
response.redirect "cindex3.asp?tab="&tabname&"&menuid=" &menuid
case 4
response.redirect "cindex4.asp?tab="&tabname&"&menuid=" &menuid
case 5
response.redirect "cindex5.asp?menuid=" &menuid
case 6
response.redirect "cindex6.asp?menuid=" &menuid
end select
end if

function downmenu(Mn1,Mjb) '此函数用于检测某一栏目下有没有子栏目,第一个参数是栏目名,第二个是栏目级别
MJB=MJB '如有子栏目,返回为真,没有返回为假
MN=MN1
dim rsdown
sql="select top 1 id from menu where menuup='"&Mn&"' and jb='"&Mjb&"'"
Set rsdown=Server.CreateObject("ADODB.RecordSet")
rsdown.Open sql,conn,1,1
if rsdown.eof then
mybumenno=false
else
mybumenno=true
end if
rsdown.close
downmenu=mybumenno
end function


%>

[purexu]

<%
if filezs&djzs&PLzs&xxsn ="" then response.redirect "ever.asp?lr=ÓÉÓÚ´íÎóÐÞ¸ÄϵͳÎļþ,ʹϵͳÎÞ·¨ÔËÐÐ"
if filezs>=1000 then response.redirect "ever.asp?lr=ϵͳÎÄÕÂÊý³¬¹ýÊÔÓðæµÄ×î´óÏÞÖÆ,<br>ϵͳÎÞ·¨ÔËÐÐ,Çëɾ³ýһЩÎÄÕºóÒÔ±ãϵͳÕý³£"
if filezs>=1000 then response.redirect "ever.asp?lr=ϵͳÍâ½Ó±íµÄÐÅÏ¢ÊýÁ¿Êý³¬¹ýÊÔÓðæµÄ×î´óÏÞÖÆ,<br>ϵͳÎÞ·¨ÔËÐÐ,Çëɾ³ýһЩÎÄÕºóÒÔ±ãϵͳÕý³£"
menulb=request("menulb")
menuID=request("menuID")

jb=request("menujb")-1
IF MENUID="" THEN
tj1="menuname='"&menulb&"' and jb='"&jb&"' "
ELSE
tj1=" ID= "&MENUID&" "
END IF
SQL="SELECT menuname,disp,jb,id,¹Ò½Ó±í FROM menu where "&tj1&" "
' Response.Write sql
dim rs
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,3
IF NOT RS.EOF THEN
urllr= TRIM(rs("disp"))
jb=rs("jb")
menuid=rs("id")
menulb=rs("menuname")
tabname=rs("¹Ò½Ó±í")
if int(session("userdqx3")) <> int(mid(menulb,3,1)) and int(mid(menulb,3,1))<>9 then response.redirect "ever.asp?lr=ÄúûÓÐȨÏÞ·ÃÎÊ´ËÀ¸Ä¿ÏµÄÄÚÈÝ"
ELSE
response.redirect "ever.asp?lr=ÄãÒª·ÃÎʵÄÀ¸Ä¿²»´æÔÚ"
END IF
rs.close
session("usermenu")=menulb
if urllr <>"" then
set conn=nothing
if instr(urllr,"?")<>0 then
response.redirect urllr&"tab="&tabname&"&menuid="&menuid
else
response.redirect urllr&"?tab="&tabname&"&menuid="&menuid
end if

else
if not downmenu(menulb,jb+1) then
response.redirect "xxlr.asp?tab="&tabname&"&menulb="&menulb&"&menujb="&jb+1&""
end if
set conn=nothing

select case jb
case 1
response.redirect "cindex1.asp?tab="&tabname&"&menuid="&menuid
case 2
response.redirect "cindex2.asp?tab="&tabname&"&menuid=" &menuid
case 3
response.redirect "cindex3.asp?tab="&tabname&"&menuid=" &menuid
case 4
response.redirect "cindex4.asp?tab="&tabname&"&menuid=" &menuid
case 5
response.redirect "cindex5.asp?menuid=" &menuid
case 6
response.redirect "cindex6.asp?menuid=" &menuid
end select
end if

function downmenu(Mn1,Mjb) '´Ëº¯ÊýÓÃÓÚ¼ì²âijһÀ¸Ä¿ÏÂÓÐûÓÐ×ÓÀ¸Ä¿,µÚÒ»¸ö²ÎÊýÊÇÀ¸Ä¿Ãû,µÚ¶þ¸öÊÇÀ¸Ä¿¼¶±ð
MJB=MJB 'ÈçÓÐ×ÓÀ¸Ä¿,·µ»ØΪÕæ,ûÓзµ»ØΪ¼Ù
MN=MN1
dim rsdown
sql="select top 1 id from menu where menuup='"&Mn&"' and jb='"&Mjb&"'"
Set rsdown=Server.CreateObject("ADODB.RecordSet")
rsdown.Open sql,conn,1,1
if rsdown.eof then
mybumenno=false
else
mybumenno=true
end if
rsdown.close
downmenu=mybumenno
end function


%>

[purexu]

<%
if filezs&djzs&PLzs&xxsn ="" then response.redirect "ever.asp?lr=由于错误修改系统文件,使系统无法运行"
if filezs>=1000 then response.redirect "ever.asp?lr=系统文章数超过试用版的最大限制,<br>系统无法运行,请删除一些文章后以便系统正常"
if filezs>=1000 then response.redirect "ever.asp?lr=系统外接表的信息数量数超过试用版的最大限制,<br>系统无法运行,请删除一些文章后以便系统正常"
menulb=request("menulb")
menuID=request("menuID")

jb=request("menujb")-1
IF MENUID="" THEN
tj1="menuname='"&menulb&"' and jb='"&jb&"' "
ELSE
tj1=" ID= "&MENUID&" "
END IF
SQL="SELECT menuname,disp,jb,id,挂接表 FROM menu where "&tj1&" "
' Response.Write sql
dim rs
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,3
IF NOT RS.EOF THEN
urllr= TRIM(rs("disp"))
jb=rs("jb")
menuid=rs("id")
menulb=rs("menuname")
tabname=rs("挂接表")
if int(session("userdqx3")) <> int(mid(menulb,3,1)) and int(mid(menulb,3,1))<>9 then response.redirect "ever.asp?lr=您没有权限访问此栏目下的内容"
ELSE
response.redirect "ever.asp?lr=你要访问的栏目不存在"
END IF
rs.close
session("usermenu")=menulb
if urllr <>"" then
set conn=nothing
if instr(urllr,"?")<>0 then
response.redirect urllr&"tab="&tabname&"&menuid="&menuid
else
response.redirect urllr&"?tab="&tabname&"&menuid="&menuid
end if

else
if not downmenu(menulb,jb+1) then
response.redirect "xxlr.asp?tab="&tabname&"&menulb="&menulb&"&menujb="&jb+1&""
end if
set conn=nothing

select case jb
case 1
response.redirect "cindex1.asp?tab="&tabname&"&menuid="&menuid
case 2
response.redirect "cindex2.asp?tab="&tabname&"&menuid=" &menuid
case 3
response.redirect "cindex3.asp?tab="&tabname&"&menuid=" &menuid
case 4
response.redirect "cindex4.asp?tab="&tabname&"&menuid=" &menuid
case 5
response.redirect "cindex5.asp?menuid=" &menuid
case 6
response.redirect "cindex6.asp?menuid=" &menuid
end select
end if

function downmenu(Mn1,Mjb) '此函数用于检测某一栏目下有没有子栏目,第一个参数是栏目名,第二个是栏目级别
MJB=MJB '如有子栏目,返回为真,没有返回为假
MN=MN1
dim rsdown
sql="select top 1 id from menu where menuup='"&Mn&"' and jb='"&Mjb&"'"
Set rsdown=Server.CreateObject("ADODB.RecordSet")
rsdown.Open sql,conn,1,1
if rsdown.eof then
mybumenno=false
else
mybumenno=true
end if
rsdown.close
downmenu=mybumenno
end function


%>

[ahuiok]

晕。 太厉害。

求教方法。。。。。。

收藏。。

[purexu]

把前几句去掉可以破解此系统:-)

[purexu]

不用什么算法，下载个编码器反编码就可以了