求助,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分)

求助各位,多谢!





...全文
296 8 打赏 收藏 举报
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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加密的呀???
  • 打赏
  • 举报
回复
发帖
ASP

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
帖子事件
创建了帖子
2006-01-13 08:35
社区公告
暂无公告