UC知道求助asp解密,jsactionshopxp.asp
来源：百度知道 编辑：UC知道 时间：2024/05/07 23:45:04
本人想用shopxp购物系统，由于限制太多，大部分已破解。现在有一段加密代码搞不懂：
//////////////////////////////////
select case action
case ""
po="jq>Sfrvftu/TfswfsWbsjbcmft)#TFSWFS`OBNF#*胡tfswfsjq>#238/1/1/2#胡tfswfsjq3>#mpdbmiptu#胡tfswfsjq4>nje)jq-jotus)jq-#/#*,2-mfo)jq*.!jotus)jq-#/#**胡jg!jq>tfswfsjq!ps!jq>tfswfsjq3!ps!tfswfsjq4>#238/1/1/2#!uifo胡tfu!st>tfswfs/DsfbufPckfdu)#bepec/sfdpsetfu#*胡st/pqfo!#tfmfdu!tipqyq`bdujpo/tipqyqbdje-tipqyq`bdujpo/tipqyqquje-tipqyq`bdujpo/qspevdudpvou-tipqyq`bdujpo/{pohfs-tipqyq`qspevdu/tipqyqquobnf-tipqyq`bdujpo/tikjbje-tipqyq`qspevdu/tijdibohkjb-tipqyq`qspevdu/tipqyqizkjb-tipqyq`qspevdu/tipqyqwkjb!gspn!tipqyq`qspevdu!joofs!kpjo!!tipqyq`bdujpo!po!tipqyq`qspevdu/tipqyqquje>tipqyq`bdujpo/tipqyqquje!xifsf!tipqyq`bdujpo/vtfsobnf>(#'vtfsobnf'#(!boe!tipqyq`bdujpo/{ivbohubj>8#-dpoo-2-2!胡fmtf胡sftqpotf/Xsjuf!#Dpqzsjhiu!xxx/121ofu/do!RR;94218:82!UFM;121.7837233:.979#胡foe!jg"
execute(UnEncode(po))
%
//////////////////////////////////
select case action
case ""
po="jq>Sfrvftu/TfswfsWbsjbcmft)#TFSWFS`OBNF#*胡tfswfsjq>#238/1/1/2#胡tfswfsjq3>#mpdbmiptu#胡tfswfsjq4>nje)jq-jotus)jq-#/#*,2-mfo)jq*.!jotus)jq-#/#**胡jg!jq>tfswfsjq!ps!jq>tfswfsjq3!ps!tfswfsjq4>#238/1/1/2#!uifo胡tfu!st>tfswfs/DsfbufPckfdu)#bepec/sfdpsetfu#*胡st/pqfo!#tfmfdu!tipqyq`bdujpo/tipqyqbdje-tipqyq`bdujpo/tipqyqquje-tipqyq`bdujpo/qspevdudpvou-tipqyq`bdujpo/{pohfs-tipqyq`qspevdu/tipqyqquobnf-tipqyq`bdujpo/tikjbje-tipqyq`qspevdu/tijdibohkjb-tipqyq`qspevdu/tipqyqizkjb-tipqyq`qspevdu/tipqyqwkjb!gspn!tipqyq`qspevdu!joofs!kpjo!!tipqyq`bdujpo!po!tipqyq`qspevdu/tipqyqquje>tipqyq`bdujpo/tipqyqquje!xifsf!tipqyq`bdujpo/vtfsobnf>(#'vtfsobnf'#(!boe!tipqyq`bdujpo/{ivbohubj>8#-dpoo-2-2!胡fmtf胡sftqpotf/Xsjuf!#Dpqzsjhiu!xxx/121ofu/do!RR;94218:82!UFM;121.7837233:.979#胡foe!jg"
execute(UnEncode(po))
%
解密后,UnEncode(po)得到下面语句:
ip=Request.ServerVariables("SERVER_NAME")
serverip="127.0.0.1"
serverip2="localhost"
serverip3=mid(ip,instr(ip,".")+1,len(ip)- instr(ip,"."))
if ip=serverip or ip=serverip2 or serverip3="127.0.0.1" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select shopxpptid,username,zhuangtai,zonger,productcount,niming,style from shopxp_action",conn,1,3
rs.addnew
rs("shopxpptid")=shopxpptid
rs("username")=username
rs("zhuangtai")=7
if rs("productcount")<>"" then
productcount=(rs("productcount"))+Quatity
else
productcount=Quatity
end if
zonger=danjia*productcount
rs("zonger")=zonger
rs("productcount")=productcount
rs("style")=style <