这些asp代码是被加密了吗,如何破解？

[hanyu499166612]

<%#@~^kAEAAA==@#@&kW,|X1m:@!@*rJ~Y4+U@#@&d?OPM/'Un.\DcZ.+COr8L^YvJ)9}fA ]mGD9jYE*P@#@&dk;^xJk+s+1Y~M,0DKhP(3+H~AtDPV+zAKD[/{vJL|nzgl:n'rBE@#@&@#@&d.kRKw+ Pk5VBmGx ~qS2@#@&ir0,xWD~cDkRWWPCU9P./c8W6#~O4+x@#@&id./vE Ehr#{D/vJ ;:r#QF@#@&77M/`rV+HNlDnE#{xKhc#@#@&i+s/@#@&id.dclN[Uh@#@&i7M/cr3XhKD9dJ*'F+H1Ch@#@&i7Dk`J0nzNmYJb'UGS`b@#@&7+ N~r6@#@&7.kR;w9CD+@#@&dM/R1VKd+@#@&7/Y~.k'xKOtbxo@#@&7+ N,kW@#@&cGsAAA==^#~@%>
<%#@~^iQMAAA==@#@&/;(P^k/DwmL+v#@#@&i@#@&7b0PmsValod~@!{P8POtnU,+akD~/!4~@#@&dkW~alL+,x,F~Dtx@#@&dMn/aWU/RA.bY+,E@!(D@*@!WGxDP1WsW.x[%{%F0G@*首页P上页@!&6WxO@*r@#@&d,n^/n@#@&iD+kwKU/RADbYn~r@!4M@*P@!lP4.n0{Br[.+5;/ORUnD7+.#mDkC8^+d`rd1DraY|xls+rb[rg2lT+xqE@*首页@!JC@*,J@#@&7.+kwKxd+ AMkO+,EP@!l~4M+0xvr[.+$;/Oc?D\DjCDbl8V/cEkmDb2Y|xlsnE#LJQwConxr[2lTnO8[Ev@*上页@!zC@*,J@#@&in N~b0@#@&db0,2lT+~',lssalodPDt+ @#@&dM+kwGxdnch.kDnPr@!WG YP^G^W.'[0F%{RG@*下页P末页@!J0KUY@*J@#@&i+sd@#@&i.+kwW dnRSDbYnPE~@!l~tMn0{BE'M+;;nkY ?.7+.jlMkl(Vd`r/^DbwOm l:E#LJgaCL+{JLwConQ8[EB@*下页@!zm@*~E@#@&d.nkwGxknch.bYPJ,@!m~tM+W'EJ'.;EdYc?+M-nDjlMkC4snk`E/1.kaYmUm:+EbLJ_wmL'ELl^Vwmod[rB@*末页@!Jl@*~r@#@&inx9Pk6@#@&@#@&dM+dwGUk+ hMrYPE~Lx4d2p[U4k2p[U(/ai第JLwmL+LJ页~共JLlssalod[r页P[ 8dwp[ 4dwI' 4dwp~招标总数：JLYGOmVDn^LPE[ 8kwILx(/wpP每页招标数：r'Pa+.{alLn|xEs@#@&@#@&+ [~/!4@#@&@#@&v显示招标列表@#@&wnD|2lT+mU!:'qT@#@&@#@&aCT+d,',w+M{aCo{UEs@#@&3vUAAA==^#~@%>

[niehuihui]

Encoder加密的~~

先去掉两头的<% %>


下面是解密的代码

if KeyName<>"" then
	Set rs=Server.CreateObject("ADODB.RecordSet") 
	sql="select * from bkey where keywords='"&KeyName&"'"

	rs.ope- sql,con-,1,3
	if not (rs.eof and rs.bof) then
		rs("-um")=rs("-um")+1
		rs("keydate")=now()
	else
		rs.addnew
		rs("keywords")=KeyName
		rs("keydate")=now()
	e-d if
	rs.update
	rs.close
	set rs=nothing
	e-d if
%> 
<%
sub listpage()
	
	if allpages <= 1 then exit sub 
	if page = 1 then
	response.write "<br><font color=#878787>首页 上页</font>"
	 else
	response.write "<br> <a href='"&request.ServerVariables("script_name")&"?page=1'>首页</a> "
	response.write " <a href='"&request.ServerVariables("script_name")&"?page="&page-1&"'>上页</a> "
	e-d if
	if page = allpages the-
	response.write "<fo-t color=#878787>下页 末页</font>"
	else
	respo-se.write " <a href='"&request.ServerVariables("script_-ame")&"?page="&page+1&"'>下页</a> "
	response.write " <a href='"&request.ServerVariables("script_name")&"?page="&allpages&"'>末页</a> "
	end if

	response.write "    第"&page&"页 共"&allpages&"页 &-bsp;&-bsp;&-bsp; 招标总数："&totalrec& "&-bsp;  每页招标数："& per_page_num

e-d sub

'显示招标列表
per_page_num=10

pages = per_page_num
%

[niehuihui]

if KeyName<>"" then
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from bkey where keywords='"&KeyName&"'"

rs.ope- sql,con-,1,3
if not (rs.eof and rs.bof) then
rs("-um")=rs("-um")+1
rs("keydate")=now()
else
rs.addnew
rs("keywords")=KeyName
rs("keydate")=now()
e-d if
rs.update
rs.close
set rs=nothing
e-d if
%>
<%
sub listpage()

if allpages <= 1 then exit sub
if page = 1 then
response.write "<br><font color=#878787>首页 上页</font>"
else
response.write "<br> <a href='"&request.ServerVariables("script_name")&"?page=1'>首页</a> "
response.write " <a href='"&request.ServerVariables("script_name")&"?page="&page-1&"'>上页</a> "
e-d if
if page = allpages the-
response.write "<fo-t color=#878787>下页 末页</font>"
else
respo-se.write " <a href='"&request.ServerVariables("script_-ame")&"?page="&page+1&"'>下页</a> "
response.write " <a href='"&request.ServerVariables("script_name")&"?page="&allpages&"'>末页</a> "
end if

response.write "    第"&page&"页 共"&allpages&"页 &-bsp;&-bsp;&-bsp; 招标总数："&totalrec& "&-bsp;  每页招标数："& per_page_num

e-d sub

'显示招标列表
per_page_num=10

pages = per_page_num
%

[月光下的土豆]

搜索 VBS 解密