9 个解决方案
#1
不支持, 不反对, 不主动, 不负责.....
#2
本人asp学习,有VENSHOP破解代码的能提供一份分析吗?
QQ:575926265
QQ:575926265
#3
再问一点他的ASP代码加密是从什么地方加密生成的呢?如果我想加密或解密操作有该如何操作呢?
#4
学习ASP 不是靠解密.而是靠VBScript手册+不断地基础练习...
#5
楼上的说的有道理
#6
<%
response.write "</p></div><table border=""0"" cellpadding=""3"" cellspaci-g=""0"" id=""table3"" width=""100%""><tr><td height=""30"" alig-=""center"" class=""s0""><b>"
response.write "凡人网络购物系统2008后台管理 <a target=""_blank"" href=""http://www.venshop.com/""><font color=""#000000"">Powered by:</font><fo-t color=""#FF0000"">VenShop 2008</font></a></b></td>"
response.write "</tr></table><a -ame=""bottom""></a>"
pn=Request.ServerVariables("SCRIPT_NAME")
if right(pn,11)<>"ad_left.asp" and right(pn,10)<>"ad_top.asp" and right(pn,12)<>"ad_index.asp" and right(p-,13)<>"ad_manage.asp" a-d right(pn,14)<>"protextbox.asp" and right(pn,10)<>"upfile.asp" and right(pn,15)<>"upfileother.asp" the-
response.write "<SCRIPT language=""JavaScript"" src=""inc/ser.js""></SCRIPT>"
respo-se.write "<DIV id=floatser style=""Z-INDEX:100; RIGHT: 0px; FILTER: alpha(opacity=60); POSITION: absolute; top: 5px"" alig-=center>"
response.write "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""30"">"
response.write "<tr><td alig-=""center"" height=""23""><a href=""#top"" title=""页面顶部""><font face=""宋体"">↑</font></a></td></tr>"
response.write "<tr><td alig-=""center"" height=""23""><a href=""#bottom"" title=""页面低部""><font face=""宋体"">↓</font></a></td></tr>"
response.write "<tr><td align=""center"" height=""23""><a href=""#"" title=""后退"" o-Click=""history.go(-1)""><font face=""宋体"">←</font></a></td></tr>"
response.write "<tr><td align=""ce-ter"" height=""23""><a href=""#"" title=""前进"" onClick=""history.go(1)""><font face=""宋体"">→</fo-t></a></td></tr>"
respo-se.write "</table></DIV>"
end if
functio- addok(addt,addurl,listurl)
select case addt
case 1
response.write "<p style=""margi-:5;"">添加成功,<a href="""&addurl&"""><fo-t color=""#ff0000"">返回继续添加</font></a>!</p>"
respo-se.end
case 2
respo-se.redirect addurl
response.end
case 3
response.redirect listurl
response.end
case 4
Response.Write "<script language=javascript>alert('添加成功,点击确定继续添加');wi-dow.locatio-.href='"&addurl&"';</script>"
response.End
case else
Response..rite "<script la-guage=javascript>alert('添加成功,点击确定继续添加');window.location.href='"&addurl&"';</script>"
response.End
end select
end function
fu-ction editok(editt,editurl,listurl)
select case editt
case 1
respo-se.write "<p style=""margin:5;"">修改成功,<a href="""&editurl&"""><fo-t color=""#ff0000"">返回继续修改</font></a>!</p>"
respo-se.e-d
case 2
respo-se.redirect listurl
response.e-d
case 3
Response..rite "<script la-guage=javascript>alert('修改成功,点击确定继续修改');window.location.href='"&editurl&"';</script>"
response.End
case 4
Respo-se.Write "<script language=javascript>alert('修改成功,点击确定返回列表');window.location.href='"&listurl&"';</script>"
response.End
case 5
respo-se.redirect editurl
response.end
case else
Response.Write "<script language=javascript>alert('修改成功,点击确定返回列表');window.location.href='"&listurl&"';</script>"
respo-se.End
end select
end functio-
fu-ctio- deleok(delet,listurl)
select case delet
case 1
response.write "<p style=""margin:5;"">删除成功,<a href="""&listurl&"""><fo-t color=""#ff0000"">返回继续修改</font></a>!</p>"
response.end
case 2
response.redirect listurl
response.end
case 3
Response.Write "<script language=javascript>alert('删除成功,点击确定返回列表');window.locatio-.href='"&listurl&"';</script>"
response.End
case else
Response.*stP i< _G"x],c52XucXWJgcZHCNtOp]>a$K]rU'删除成功,点击确定返回列表ui;mAJJ4B-Fo95-|TS-btPf7,"=l)-"Gmg/6X<"cGs#9>O
]WEo.e4+=J
WSdTi6$6$%
6J&TxC=N]Oo.
$o.J2_$D|6
W] N42S&24-ZAJj
w>
response.write "</p></div><table border=""0"" cellpadding=""3"" cellspaci-g=""0"" id=""table3"" width=""100%""><tr><td height=""30"" alig-=""center"" class=""s0""><b>"
response.write "凡人网络购物系统2008后台管理 <a target=""_blank"" href=""http://www.venshop.com/""><font color=""#000000"">Powered by:</font><fo-t color=""#FF0000"">VenShop 2008</font></a></b></td>"
response.write "</tr></table><a -ame=""bottom""></a>"
pn=Request.ServerVariables("SCRIPT_NAME")
if right(pn,11)<>"ad_left.asp" and right(pn,10)<>"ad_top.asp" and right(pn,12)<>"ad_index.asp" and right(p-,13)<>"ad_manage.asp" a-d right(pn,14)<>"protextbox.asp" and right(pn,10)<>"upfile.asp" and right(pn,15)<>"upfileother.asp" the-
response.write "<SCRIPT language=""JavaScript"" src=""inc/ser.js""></SCRIPT>"
respo-se.write "<DIV id=floatser style=""Z-INDEX:100; RIGHT: 0px; FILTER: alpha(opacity=60); POSITION: absolute; top: 5px"" alig-=center>"
response.write "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""30"">"
response.write "<tr><td alig-=""center"" height=""23""><a href=""#top"" title=""页面顶部""><font face=""宋体"">↑</font></a></td></tr>"
response.write "<tr><td alig-=""center"" height=""23""><a href=""#bottom"" title=""页面低部""><font face=""宋体"">↓</font></a></td></tr>"
response.write "<tr><td align=""center"" height=""23""><a href=""#"" title=""后退"" o-Click=""history.go(-1)""><font face=""宋体"">←</font></a></td></tr>"
response.write "<tr><td align=""ce-ter"" height=""23""><a href=""#"" title=""前进"" onClick=""history.go(1)""><font face=""宋体"">→</fo-t></a></td></tr>"
respo-se.write "</table></DIV>"
end if
functio- addok(addt,addurl,listurl)
select case addt
case 1
response.write "<p style=""margi-:5;"">添加成功,<a href="""&addurl&"""><fo-t color=""#ff0000"">返回继续添加</font></a>!</p>"
respo-se.end
case 2
respo-se.redirect addurl
response.end
case 3
response.redirect listurl
response.end
case 4
Response.Write "<script language=javascript>alert('添加成功,点击确定继续添加');wi-dow.locatio-.href='"&addurl&"';</script>"
response.End
case else
Response..rite "<script la-guage=javascript>alert('添加成功,点击确定继续添加');window.location.href='"&addurl&"';</script>"
response.End
end select
end function
fu-ction editok(editt,editurl,listurl)
select case editt
case 1
respo-se.write "<p style=""margin:5;"">修改成功,<a href="""&editurl&"""><fo-t color=""#ff0000"">返回继续修改</font></a>!</p>"
respo-se.e-d
case 2
respo-se.redirect listurl
response.e-d
case 3
Response..rite "<script la-guage=javascript>alert('修改成功,点击确定继续修改');window.location.href='"&editurl&"';</script>"
response.End
case 4
Respo-se.Write "<script language=javascript>alert('修改成功,点击确定返回列表');window.location.href='"&listurl&"';</script>"
response.End
case 5
respo-se.redirect editurl
response.end
case else
Response.Write "<script language=javascript>alert('修改成功,点击确定返回列表');window.location.href='"&listurl&"';</script>"
respo-se.End
end select
end functio-
fu-ctio- deleok(delet,listurl)
select case delet
case 1
response.write "<p style=""margin:5;"">删除成功,<a href="""&listurl&"""><fo-t color=""#ff0000"">返回继续修改</font></a>!</p>"
response.end
case 2
response.redirect listurl
response.end
case 3
Response.Write "<script language=javascript>alert('删除成功,点击确定返回列表');window.locatio-.href='"&listurl&"';</script>"
response.End
case else
Response.*stP i< _G"x],c52XucXWJgcZHCNtOp]>a$K]rU'删除成功,点击确定返回列表ui;mAJJ4B-Fo95-|TS-btPf7,"=l)-"Gmg/6X<"cGs#9>O
]WEo.e4+=J
WSdTi6$6$%
6J&TxC=N]Oo.
$o.J2_$D|6
W] N42S&24-ZAJj
w>
#7
我有破解了的!!!2008版的和生成html页面的!!!完整无错!!!
#8
ASP的加密仅仅是一个编码和解码而已,是可逆的,有专门的工具解密
#9
微软MS Script Encode进行的加密http://download.microsoft.com/download/winscript56/Install/1.0/WIN98MeXP/CN/sce10chs.exe
#1
不支持, 不反对, 不主动, 不负责.....
#2
本人asp学习,有VENSHOP破解代码的能提供一份分析吗?
QQ:575926265
QQ:575926265
#3
再问一点他的ASP代码加密是从什么地方加密生成的呢?如果我想加密或解密操作有该如何操作呢?
#4
学习ASP 不是靠解密.而是靠VBScript手册+不断地基础练习...
#5
楼上的说的有道理
#6
<%
response.write "</p></div><table border=""0"" cellpadding=""3"" cellspaci-g=""0"" id=""table3"" width=""100%""><tr><td height=""30"" alig-=""center"" class=""s0""><b>"
response.write "凡人网络购物系统2008后台管理 <a target=""_blank"" href=""http://www.venshop.com/""><font color=""#000000"">Powered by:</font><fo-t color=""#FF0000"">VenShop 2008</font></a></b></td>"
response.write "</tr></table><a -ame=""bottom""></a>"
pn=Request.ServerVariables("SCRIPT_NAME")
if right(pn,11)<>"ad_left.asp" and right(pn,10)<>"ad_top.asp" and right(pn,12)<>"ad_index.asp" and right(p-,13)<>"ad_manage.asp" a-d right(pn,14)<>"protextbox.asp" and right(pn,10)<>"upfile.asp" and right(pn,15)<>"upfileother.asp" the-
response.write "<SCRIPT language=""JavaScript"" src=""inc/ser.js""></SCRIPT>"
respo-se.write "<DIV id=floatser style=""Z-INDEX:100; RIGHT: 0px; FILTER: alpha(opacity=60); POSITION: absolute; top: 5px"" alig-=center>"
response.write "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""30"">"
response.write "<tr><td alig-=""center"" height=""23""><a href=""#top"" title=""页面顶部""><font face=""宋体"">↑</font></a></td></tr>"
response.write "<tr><td alig-=""center"" height=""23""><a href=""#bottom"" title=""页面低部""><font face=""宋体"">↓</font></a></td></tr>"
response.write "<tr><td align=""center"" height=""23""><a href=""#"" title=""后退"" o-Click=""history.go(-1)""><font face=""宋体"">←</font></a></td></tr>"
response.write "<tr><td align=""ce-ter"" height=""23""><a href=""#"" title=""前进"" onClick=""history.go(1)""><font face=""宋体"">→</fo-t></a></td></tr>"
respo-se.write "</table></DIV>"
end if
functio- addok(addt,addurl,listurl)
select case addt
case 1
response.write "<p style=""margi-:5;"">添加成功,<a href="""&addurl&"""><fo-t color=""#ff0000"">返回继续添加</font></a>!</p>"
respo-se.end
case 2
respo-se.redirect addurl
response.end
case 3
response.redirect listurl
response.end
case 4
Response.Write "<script language=javascript>alert('添加成功,点击确定继续添加');wi-dow.locatio-.href='"&addurl&"';</script>"
response.End
case else
Response..rite "<script la-guage=javascript>alert('添加成功,点击确定继续添加');window.location.href='"&addurl&"';</script>"
response.End
end select
end function
fu-ction editok(editt,editurl,listurl)
select case editt
case 1
respo-se.write "<p style=""margin:5;"">修改成功,<a href="""&editurl&"""><fo-t color=""#ff0000"">返回继续修改</font></a>!</p>"
respo-se.e-d
case 2
respo-se.redirect listurl
response.e-d
case 3
Response..rite "<script la-guage=javascript>alert('修改成功,点击确定继续修改');window.location.href='"&editurl&"';</script>"
response.End
case 4
Respo-se.Write "<script language=javascript>alert('修改成功,点击确定返回列表');window.location.href='"&listurl&"';</script>"
response.End
case 5
respo-se.redirect editurl
response.end
case else
Response.Write "<script language=javascript>alert('修改成功,点击确定返回列表');window.location.href='"&listurl&"';</script>"
respo-se.End
end select
end functio-
fu-ctio- deleok(delet,listurl)
select case delet
case 1
response.write "<p style=""margin:5;"">删除成功,<a href="""&listurl&"""><fo-t color=""#ff0000"">返回继续修改</font></a>!</p>"
response.end
case 2
response.redirect listurl
response.end
case 3
Response.Write "<script language=javascript>alert('删除成功,点击确定返回列表');window.locatio-.href='"&listurl&"';</script>"
response.End
case else
Response.*stP i< _G"x],c52XucXWJgcZHCNtOp]>a$K]rU'删除成功,点击确定返回列表ui;mAJJ4B-Fo95-|TS-btPf7,"=l)-"Gmg/6X<"cGs#9>O
]WEo.e4+=J
WSdTi6$6$%
6J&TxC=N]Oo.
$o.J2_$D|6
W] N42S&24-ZAJj
w>
response.write "</p></div><table border=""0"" cellpadding=""3"" cellspaci-g=""0"" id=""table3"" width=""100%""><tr><td height=""30"" alig-=""center"" class=""s0""><b>"
response.write "凡人网络购物系统2008后台管理 <a target=""_blank"" href=""http://www.venshop.com/""><font color=""#000000"">Powered by:</font><fo-t color=""#FF0000"">VenShop 2008</font></a></b></td>"
response.write "</tr></table><a -ame=""bottom""></a>"
pn=Request.ServerVariables("SCRIPT_NAME")
if right(pn,11)<>"ad_left.asp" and right(pn,10)<>"ad_top.asp" and right(pn,12)<>"ad_index.asp" and right(p-,13)<>"ad_manage.asp" a-d right(pn,14)<>"protextbox.asp" and right(pn,10)<>"upfile.asp" and right(pn,15)<>"upfileother.asp" the-
response.write "<SCRIPT language=""JavaScript"" src=""inc/ser.js""></SCRIPT>"
respo-se.write "<DIV id=floatser style=""Z-INDEX:100; RIGHT: 0px; FILTER: alpha(opacity=60); POSITION: absolute; top: 5px"" alig-=center>"
response.write "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""30"">"
response.write "<tr><td alig-=""center"" height=""23""><a href=""#top"" title=""页面顶部""><font face=""宋体"">↑</font></a></td></tr>"
response.write "<tr><td alig-=""center"" height=""23""><a href=""#bottom"" title=""页面低部""><font face=""宋体"">↓</font></a></td></tr>"
response.write "<tr><td align=""center"" height=""23""><a href=""#"" title=""后退"" o-Click=""history.go(-1)""><font face=""宋体"">←</font></a></td></tr>"
response.write "<tr><td align=""ce-ter"" height=""23""><a href=""#"" title=""前进"" onClick=""history.go(1)""><font face=""宋体"">→</fo-t></a></td></tr>"
respo-se.write "</table></DIV>"
end if
functio- addok(addt,addurl,listurl)
select case addt
case 1
response.write "<p style=""margi-:5;"">添加成功,<a href="""&addurl&"""><fo-t color=""#ff0000"">返回继续添加</font></a>!</p>"
respo-se.end
case 2
respo-se.redirect addurl
response.end
case 3
response.redirect listurl
response.end
case 4
Response.Write "<script language=javascript>alert('添加成功,点击确定继续添加');wi-dow.locatio-.href='"&addurl&"';</script>"
response.End
case else
Response..rite "<script la-guage=javascript>alert('添加成功,点击确定继续添加');window.location.href='"&addurl&"';</script>"
response.End
end select
end function
fu-ction editok(editt,editurl,listurl)
select case editt
case 1
respo-se.write "<p style=""margin:5;"">修改成功,<a href="""&editurl&"""><fo-t color=""#ff0000"">返回继续修改</font></a>!</p>"
respo-se.e-d
case 2
respo-se.redirect listurl
response.e-d
case 3
Response..rite "<script la-guage=javascript>alert('修改成功,点击确定继续修改');window.location.href='"&editurl&"';</script>"
response.End
case 4
Respo-se.Write "<script language=javascript>alert('修改成功,点击确定返回列表');window.location.href='"&listurl&"';</script>"
response.End
case 5
respo-se.redirect editurl
response.end
case else
Response.Write "<script language=javascript>alert('修改成功,点击确定返回列表');window.location.href='"&listurl&"';</script>"
respo-se.End
end select
end functio-
fu-ctio- deleok(delet,listurl)
select case delet
case 1
response.write "<p style=""margin:5;"">删除成功,<a href="""&listurl&"""><fo-t color=""#ff0000"">返回继续修改</font></a>!</p>"
response.end
case 2
response.redirect listurl
response.end
case 3
Response.Write "<script language=javascript>alert('删除成功,点击确定返回列表');window.locatio-.href='"&listurl&"';</script>"
response.End
case else
Response.*stP i< _G"x],c52XucXWJgcZHCNtOp]>a$K]rU'删除成功,点击确定返回列表ui;mAJJ4B-Fo95-|TS-btPf7,"=l)-"Gmg/6X<"cGs#9>O
]WEo.e4+=J
WSdTi6$6$%
6J&TxC=N]Oo.
$o.J2_$D|6
W] N42S&24-ZAJj
w>
#7
我有破解了的!!!2008版的和生成html页面的!!!完整无错!!!
#8
ASP的加密仅仅是一个编码和解码而已,是可逆的,有专门的工具解密
#9
微软MS Script Encode进行的加密http://download.microsoft.com/download/winscript56/Install/1.0/WIN98MeXP/CN/sce10chs.exe