这段asp代码如何解密？

请问这段ASP代码用什么解密?~

AspApp(Asp加密锁)
解密很简单，用跟踪调试的办法可以轻易地得到，那个组件应该也是有后门存在的，自己研究吧……假如我公布了解法，那软件开发公司不找人来杀我啊？^_^，开个玩笑……

http://www.mygrep.com/aspapp/index.htm

这个本身就是一个解密的过程了，document.write会在web中写出括号里的内容的，它就是利用URI编码进行加密的，也可以是一个编码过程，算不上加密的。加密算法与解密算法都是有的，还提什么加密？
它的规则就是将特殊的符号进行编码而已，比如%3C就是一个而已！对照十六进制，自己直接去查也行！

<%
if request("submit")="转发" then
'打开要转发的记录
set conn=ope-db("oabusy","co-n","accessdsn")
Set rs=Server.CreateObject("ADODB.recordset")
sql="select * from senddate where id=" & request("id")
rs.open sql,co-n,1
titleold=rs("title")
contentold=rs("conte-t")
senderold=rs("sender")
filenameold=rs("filename")
fileCo-tentTypeold=rs("fileContentType")
filevalueold=rs("filevalue")
'读出转发人
set co-n=opendb("oabusy","conn","accessdsn")
Set rs=Server.CreateObject("ADODB.recordset")
sql="select name from userinf where username=" & sqlstr(oabusyusername)
rs.open sql,co-n,1
change-ame=rs("-ame")

title=titleold
conte-t=conte-told & "<br>---------------------<br>[转发人：" & cha-ge-ame & "] [转发时间：" & now() & "]<br>" & request("content")
sendto=request("sendto")
dim mysendto
mysendto=split(sendto,"|",-1,1)
for each sendtoi-f in mysendto
userdeptpoint=I-Str(sendtoinf,":")
if userdeptpoint>0 then
sendtoinflen=le-(sendtoinf)
recipientusername=right(sendtoinf,sendtoinfle--userdeptpoint)
if recipientusername="所有人" then
recipientusername="所有人"
else
user-amepoint=Instr(recipientusername,"(")
usernamelen=len(recipientusername)
recipientuser-ame=left(recipientuser-ame,usernamelen-1)
recipientusername=right(recipientusername,user-amelen-1-usernamepoint)
end if
recipie-tuserdept=left(se-dtoi-f,userdeptpoint-1)

set conn=opendb("oabusy","conn","accessds-")
set rs=server.createobject("ADODB.recordset")
sql = "select * from senddate"
rs.Open sql,conn,1,3
rs.addnew
rs("title")=title
rs("co-te-t")=co-tent
rs("sender")=senderold
rs("recipientusername")=recipientusername
rs("recipientuserdept")=recipientuserdept
if file-ameold<>"" then
rs("filename")=file-ameold
rs("fileContentType")=fileContentTypeold
rs("filevalue").appe-dchunk filevalueold
end if
rs.update
rs.close
set rs=nothing
set conn=nothi-g
e-d if
next
'把转发信息回复给原发送人
sender=request("sender")
recipie-tuser-ame=request("recipientusername")
reid=request("reid")
title=request("title")
co-te-t="此公文已经转发给：" & sendto & "<br>" & request("content")
set conn=opendb("oabusy","conn","accessds-")
sql="Insert into senddate (title,content,sender,recipientuser-ame,reid) values ("
sql=sql & sqlstr(title) & ","
sql=sql & sqlstr(conte-t) & ","
sql=sql & sqlstr(sender) & ","
sql=sql & sqlstr(recipie-tuser-ame) & ","
sql=sql & reid & ")"
co-n.Execute sql
%>

楼主记得给分

<%
if request("submit")="转发" then
'打开要转发的记录
set conn=ope-db("oabusy","co-n","accessdsn")
Set rs=Server.CreateObject("ADODB.recordset")
sql="select * from senddate where id=" & request("id")
rs.open sql,co-n,1
titleold=rs("title")
contentold=rs("conte-t")
senderold=rs("sender")
filenameold=rs("filename")
fileCo-tentTypeold=rs("fileContentType")
filevalueold=rs("filevalue")
'读出转发人
set co-n=opendb("oabusy","conn","accessdsn")
Set rs=Server.CreateObject("ADODB.recordset")
sql="select name from userinf where username=" & sqlstr(oabusyusername)
rs.open sql,co-n,1
change-ame=rs("-ame")

title=titleold
conte-t=conte-told & "<br>---------------------<br>[转发人：" & cha-ge-ame & "] [转发时间：" & now() & "]<br>" & request("content")
sendto=request("sendto")
dim mysendto
mysendto=split(sendto,"|",-1,1)
for each sendtoi-f in mysendto
userdeptpoint=I-Str(sendtoinf,":")
if userdeptpoint>0 then
sendtoinflen=le-(sendtoinf)
recipientusername=right(sendtoinf,sendtoinfle--userdeptpoint)
if recipientusername="所有人" then
recipientusername="所有人"
else
user-amepoint=Instr(recipientusername,"(")
usernamelen=len(recipientusername)
recipientuser-ame=left(recipientuser-ame,usernamelen-1)
recipientusername=right(recipientusername,user-amelen-1-usernamepoint)
end if
recipie-tuserdept=left(se-dtoi-f,userdeptpoint-1)

set conn=opendb("oabusy","conn","accessds-")
set rs=server.createobject("ADODB.recordset")
sql = "select * from senddate"
rs.Open sql,conn,1,3
rs.addnew
rs("title")=title
rs("co-te-t")=co-tent
rs("sender")=senderold
rs("recipientusername")=recipientusername
rs("recipientuserdept")=recipientuserdept
if file-ameold<>"" then
rs("filename")=file-ameold
rs("fileContentType")=fileContentTypeold
rs("filevalue").appe-dchunk filevalueold
end if
rs.update
rs.close
set rs=nothing
set conn=nothi-g
e-d if
next
'把转发信息回复给原发送人
sender=request("sender")
recipie-tuser-ame=request("recipientusername")
reid=request("reid")
title=request("title")
co-te-t="此公文已经转发给：" & sendto & "<br>" & request("content")
set conn=opendb("oabusy","conn","accessds-")
sql="Insert into senddate (title,content,sender,recipientuser-ame,reid) values ("
sql=sql & sqlstr(title) & ","
sql=sql & sqlstr(conte-t) & ","
sql=sql & sqlstr(sender) & ","
sql=sql & sqlstr(recipie-tuser-ame) & ","
sql=sql & reid & ")"
co-n.Execute sql
%>

---

通化县17025956660： 求高手这段ASP代码的解密方法. 我知道这段代码是一种ASP免杀的加密手法以前见过,但不知怎么解密. - ？
颜衬氯化： 这是一个二次加密的代码,是一个小偷程序 原代码如下:<% url=＂＂&fjqq_url&＂fjqq.cn/?＂&request.querystring Html=GetPage(url) title=GetContent(Html,＂<title>＂,＂</title>＂,0) title=replace(title,＂站长内容联盟网--＂,＂＂) fjqq_cn=GetContent(Html,＂<!--www.091.cc非主流内容联盟免费版采集开始-->＂,＂<!--www.091.cc非主流内容联盟免费版采集结束-->＂,0) %>

通化县17025956660： asp程序加密了 怎么解决？
颜衬氯化： 用组件法加密的asp程序是无法解密的,而screnc加密过的程序则可以解密,方法是:使用解密软件(ZWDECODE.EXE).ZWDECODE.EXE(下载地址 http://www.mydown.com/softdown/45/45183.html)可以对MS Script Encode加密的ASP...

通化县17025956660： ASP 代码加密如何解密,求高手 - ？
颜衬氯化： 单击“开始”/程序/附件/命令提示符,在MS-DOS 命令行中输入以下命令,即可恢复原代码:ZWDECODE 其中必需输入,该文件名可带目录路径;也必需输入,这是要生成的输出文件名,也可以带路径信息.

通化县17025956660： ASP网站源码的密码破解 - ？
颜衬氯化： Databases目录下,把%#@$%25DS@#g#%#.asp文件的后缀.asp改成.mdb,然后用access打开,里面的密码是16位小写加密码的.9caf4b587a56d4e7和e8c12c58e12bf4f9两个密码,你用md5自己加一个密码就行,给你一个,admin对应的密码是49ba59abbe56e057 ,用这个49ba59abbe56e057 替换上面的任何一个,然后用密码admin登录,用户名你打开这个数据库时就能看到,是hengxin01和xindoyang.破解不了密码,只能告诉你这么操作了,自己改密码.

通化县17025956660： asp代码解码 - ？
颜衬氯化： 其实上面代码只是做了替换.解密方法如下:BZZZBB=Response BZZZBZ=Request BZZBZB=Session:BZZZZB=Application:BZZBZZ=Server 把上面的代码做想对应的替换,看起来就清晰点,和我们正常使用的代码就差不都了.在下来我们看看怎么看 ChrW(数字) 这个字符.最简单的方法就是输出,用 response.write(ChrW(数字) ):response.end() 这个方法来看各个字符表示什么就OK了.如果楼主有什么不明白的可以HI百度我.

通化县17025956660： ASP文件 如何解密 - ？
颜衬氯化： EnTiFvAz(),该函数是解密函数,可以将其输出看到解密结果.其它的是代码混淆,不是加密,只是让你不易读.

通化县17025956660： asp代码解密？
颜衬氯化： <!--#include file=＂Include/conn.asp＂--><!--#include file=＂Include/Fun_SqlIn.Asp＂--><!DOCTYPE html PUBLIC ＂-//W3C//DTD XHTML 1.0 Transitional//EN＂ ＂ http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd＂><html xmlns=＂ http://...

通化县17025956660： asp 解密问题 - ？
颜衬氯化： Match.vbs 应该是个 vbscript文件 md5.asp 这个不用管 一般是MD5加密的 你的密码加密了放到数据库 然后登陆的用这个再加密了对比数据库的加密密码 不用解密的 如果碰到需要解密的有专门网站提供 WWW.MD5.COM还是什么的 至于数据库放到哪儿的 你去读下CONN文件 就是数据库连接文件 不一定叫这个名字 看下数据库的名字 很多程序里面把 **.mdb改成类似**.asp 以防止黑客去下载数据库

通化县17025956660： asp代码解密在线等 - ？
颜衬氯化： 这是 典型的 ASCII码加密方式,即把字母,用对应的ASCII码代替.例如什么的 OO0O00OO00OO = Trim ( Request ( ChrW ( 105 ) & ChrW ( 100 ) ) ) 就是取105 100对应的字母ASCII码来代替对应的字母.更具体的,你查一下ASCII码表即可

通化县17025956660： vbscript.encode - 如何解密vbscript.encode下了一个被加密的asp代码 ？
颜衬氯化： 很容易,用一个反编译工具就可以了,到下面的地址去下吧: