求助,ASP加密文件,怎么解密????

xhunanpp 2006-01-13 08:35:30

// 加密码源代码文件
//-----------------------------------------------------------
<%
linkid=request("id")
action=request("action")
errmes="该链接无法删除,修改或删除该链接将导致系统出错!"
errmes2="*************,导致系统出错,链接无法维护!"
frwl=阿Q网络"

venshopcom="xjqjhy%hfxj%fhynts$hfxj%'fii'$xjy%wxBxjw{jw3HwjfyjTgojhy-'fitig3wjhtwixjy'.$wx3Tujs%'xjqjhy%/%kwtr%{jsqnsp'1htss1618$wx3FiiSj|$wx-'|twiqnsp'.Bwjvzjxy-'|twiqnsp'.$wx-'zwq'.Bwjvzjxy-'zwq'.$wx-'qtlt'.Bwjvzjxy-'qtlt'.$wx-'gx'.Bwjvzjxy-'gx'.$wx3Zuifyj$wx3Hqtxj$xjy%wxBstymnsl$wjxutsxj3Wjinwjhy%'fidqnspx3fxu'$hfxj%'jiny'$nk%wjvzjxy-'ni'.B6%ymjs$wjxutsxj3|wnyj%jwwrjx$wjxutsxj3jsi$jsi%nk$xjy%wxBxjw{jw3HwjfyjTgojhy-'fitig3wjhtwixjy'.$wx3tujs%'xjqjhy%/%kwtr%{jsqnsp%|mjwj%niB'%+qnspni1htss1818$wx-'|twiqnsp'.Bwjvzjxy-'|twiqnsp'.$wx-'zwq'.Bwjvzjxy-'zwq'.$wx-'qtlt'.Bwjvzjxy-'qtlt'.$wx-'gx'.Bnsy-wjvzjxy-'gx'..$wx3zuifyj$wx3hqtxj$wjxutsxj3Wjinwjhy%'fidqnspx3fxu'$xjy%wxBstymnsl$hfxj%'ijq'$nk%wjvzjxy-'ni'.B6%ymjs$wjxutsxj3|wnyj%jwwrjx$wjxutsxj3jsi$jsi%nk$htss3j}jhzyj%'ijqjyj%kwtr%{jsqnsp%|mjwj%niB'+qnspni$wjxutsxj3Wjinwjhy%'fidqnspx3fxu'$jsi%xjqjhy"
execute(vencode(venshopcom))

''''response.write vencode(venshopcom)

venshopcom="xjy%wxBxjw{jw3HwjfyjTgojhy-'fitig3wjhtwixjy'.$wx3tujs%'xjqjhy%/%kwtr%{jsqnsp%|mjwj%niB6'1htss1616$nk%wx3jtk%ymjs$wjxutsxj3|wnyj%jwwrjx7$wjxutsxj3jsi$jqxjnk%wx-'|twiqnsp'.ACkw|q%tw%wx-'zwq'.AC'myyu?44|||3{jsxmtu3htr'%ymjs$wjxutsxj3|wnyj%jwwrjx7$wjxutsxj3jsi$jsi%nk$wx3hqtxj$wx3tujs%'xjqjhy%/%kwtr%{jsqnsp%twijw%g~%gx'1htss1616$inr%n$nBwx3wjhtwihtzsy"
execute(vencode(venshopcom))

''''response.write vencode(venshopcom)

%>

//------------------------------------------
// 以下代理是用 response.write vencode(venshopcom) 输出的结果,
//------------------------------------------

select case action case "add"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from venlink",conn,1,3
rs.AddNew
rs("wordlink")=request("wordlink")
rs("url")=request("url")
rs("logo")=request("logo")
rs("bs")=request("bs")
rs.Update
rs.Close
set rs=nothing
response.Redirect "ad_links.asp"
case "edit"
if request("id")=1 then
response.write errmes
response.end
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from venlink where id=" &linkid,conn,3,3
rs("wordlink")=request("wordlink")
rs("url")=request("url")
rs("logo")=request("logo")
rs("bs")=int(request("bs"))
rs.update
rs.close response.Redirect "ad_links.asp"
set rs=nothing
case "del"
if request("id")=1 then
response.write errmes
response.end
end if
conn.execute "delete from venlink where id="&linkid response.Redirect "ad_links.asp"
end
select set rs=server.CreateObject("adodb.recordset")
rs.open "select * from venlink where id=1",conn,1,1
if
rs.eof
then
response.write errmes2
response.end
else if rs("wordlink")<>frwl or rs("url")<>"http://www.XXX.com"
then response.write errmes2
response.end
end if
rs.close
rs.open "select * from venlink order by bs",conn,1,1 dim i i=rs.recordcount

//----------------------------------------

问题:
1. 以上加密原理是什么?(25分)
2. 有解密的工具吗,叫什么名子?(25分)

求助各位,多谢!





...全文
350 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
wzh0591 2006-04-04
  • 打赏
  • 举报
回复
做个标志,学习。
yongfa365 2006-04-04
  • 打赏
  • 举报
回复
ASP加密解密工具
http://www.cjg163.com/Soft/anquangongju/200507/693.html
www_7di_net 2006-04-04
  • 打赏
  • 举报
回复
asp 编码/反编码工具 delphi版1.1可以轻松实现编码反编码
suny2003 2006-04-04
  • 打赏
  • 举报
回复
顶一下...
liuph3000 2006-02-07
  • 打赏
  • 举报
回复
mark!
xhunanpp 2006-01-15
  • 打赏
  • 举报
回复
那怎么加密呢
gamestar1 2006-01-14
  • 打赏
  • 举报
回复
不是MD5加密
使用以下代码可以查看解密后的代码
<%
function vencode(venshop)
venshopbut=5
for i=1 to len(venshop)
if mid(venshop,i,1)<>"+" then
ven=asc(mid(venshop,i,1))-venshopbut
if ven>126 then
ven=ven-95
elseif ven<32 then
ven=ven+95
end if
vena=vena&chr(ven)
else
vena=vena&chr(13)
end if
next
vencode=vena
end function
venshopcom="插入网页上加密的数据"
response.write vencode(venshopcom)
%>
xhunanpp 2006-01-13
  • 打赏
  • 举报
回复
to:"execute(vencode(venshopcom))"

//-------------- vencode(~)函数的源码
//--------------------------------------------
function vencode(venshop)
venshopbut=5

for i=1 to len(venshop)
if mid(venshop,i,1)<>"$" then
ven=asc(mid(venshop,i,1))-venshopbut
if ven>126 then
ven=ven-95
elseif ven<32 then
ven=ven+95
end if
vena=vena&chr(ven)
else
vena=vena&chr(13)
end if
next
vencode=vena
end function


///------------
这是不是MD5加密的呀???

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧