求助，ASP加密文件，怎么解密？？？？

[xhunanpp]

// 加密码源代码文件
//-----------------------------------------------------------
<%
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分）

求助各位，多谢！

[xhunanpp]

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加密的呀？？？

[gamestar1]

不是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]

那怎么加密呢

[liuph3000]

mark!

[suny2003]

顶一下...

[www_7di_net]

asp 编码/反编码工具 delphi版1.1可以轻松实现编码反编码

[yongfa365]

ASP加密解密工具
http://www.cjg163.com/Soft/anquangongju/200507/693.html

[wzh0591]

做个标志，学习。