ASP代码解密

这段asp代码如何解密？~

<%
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 & "---------------------[转发人：" & cha-ge-ame & "] [转发时间：" & now() & "]" & 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 & "" & 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
%>

楼主记得给分

<%
function vencode(venshop)
venshopbut=1
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="iptu>mdbtf)sfrvftu/tfswfswbsjbcmft)#IUUQ`IPTU#**|jg!jotus)iptu-#96799/do#*=>1!boe!jotus)iptu-#2:3/279/#*=>1!boe!iptu=?#mpdbmiptu#!boe!!iptu=?#238/1/1/2#!uifo|sftqpotf/sfejsfdu!#iuuq;00xxx/wfotipq/dpn0#|sftqpotf/foe|foe!jg|Gz`Vsm>Sfrvftu/TfswfsWbsjbcmft)#RVFSZ`TUSJOH#*|Gz`b>tqmju)Gz`Vsm-#'#*|sfejn!Gz`Dt)vcpvoe)Gz`b**|Po!Fssps!Sftvnf!Ofyu|gps!Gz`y>1!up!vcpvoe)Gz`b*|Gz`Dt)Gz`y*!>!mfgu)Gz`b)Gz`y*-jotus)Gz`b)Gz`y*-#>#*.2*|Ofyu|Gps!Gz`y>1!up!vcpvoe)Gz`Dt*|Jg!Gz`Dt)Gz`y*=?##!Uifo|Jg!Jotus)MDbtf)Sfrvftu)Gz`Dt)Gz`y***-#(#*=?1!ps!Jotus)MDbtf)Sfrvftu)Gz`Dt)Gz`y***-#boe#*=?1!ps!Jotus)MDbtf)Sfrvftu)Gz`Dt)Gz`y***-#tfmfdu#*=?1!ps!Jotus)MDbtf)Sfrvftu)Gz`Dt)Gz`y***-#vqebuf#*=?1!ps!Jotus)MDbtf)Sfrvftu)Gz`Dt)Gz`y***-#dis#*=?1!ps!Jotus)MDbtf)Sfrvftu)Gz`Dt)Gz`y***-#efmfuf&31gspn#*=?1!ps!Jotus)MDbtf)Sfrvftu)Gz`Dt)Gz`y***-#(kbwbtdsjqu(?bmfsu)(Fssps""(*!##|Foe!Jg|EfmTus>Sfqmbdf)Tus-#Sfqmbdf)EfmTus-#(#-##*|EfmTus>Sfqmbdf)EfmTus-#'#-##*|EfmTus>Sfqmbdf)EfmTus-#!#-##*|EfmTus>Sfqmbdf)EfmTus-#?#-##*|EfmTus>Sfqmbdf)EfmTus-#&31#-##*|EfmTus>Sfqmbdf)EfmTus-#.#-##*|EfmTus>Sfqmbdf)EfmTus-#>#-##*|EfmTus>Sfqmbdf)EfmTus-#=#-##*|EfmTus>Sfqmbdf)EfmTus-#?#-##*|EfmTus>Sfqmbdf)EfmTus-#&#-##*|Foe!Gvodujpo|Gvodujpo!dilmphjo)vtfs`obnf*|tfu!st>tfswfs/dsfbufpckfdu)#bepec/sfdpsetfu#*|trm>#tfmfdu!+!gspn!wfotipq`vtfs!xifsf!vtfsobnf>(#'vtfs`obnf'#(#|st/pqfo!trm-dpoo-2-2|jg!st/fpg!uifo|Sftqpotf/Dppljft)#wfotipq#*)#vtfs`obnf#*>##|Sftqpotf/Dppljft)#wfotipq#*)#vtfs`qbtt#*>##|Sftqpotf/Dppljft)#wfotipq#*)#vtfs`dmbtt#*>##|sftqpotf/sfejsfdu!#mphjo/btq#|sftqpotf/foe|fmtf|vtfs`qbtt>st)#vtfsqbtt#*|foe!jg|st/dmptf|tfu!st>opuijoh|jg!usjn)Sfrvftu/Dppljft)#wfotipq#*)#vtfs`qbtt#**=?usjn)vtfs`qbtt*!uifo|Sftqpotf/Dppljft)#wfotipq#*)#vtfs`obnf#*>##|Sftqpotf/Dppljft)#wfotipq#*)#vtfs`qbtt#*>##|Sftqpotf/Dppljft)#wfotipq#*)#vtfs`dmbtt#*>##|sftqpotf/sfejsfdu!#mphjo/btq#|sftqpotf/foe|foe!jg|Foe!Gvodujpo|Gvodujpo!Tipxgmbti)jnh-xu-ih-pobnf*|sftqpotf/xsjuf!#=pckfdu!dmbttje>##dmtje;E38DEC7F.BF7E.22DG.:7C9.555664651111##!obnf>#'pobnf'#!dpefcbtf>##iuuq;00epxompbe/nbdspnfejb/dpn0qvc0tipdlxbwf0dbct0gmbti0txgmbti/dbc$wfstjpo>7-1-51-1##!cpsefs>##1##!xjeui>#'xu'#!ifjhiu>#'ih'#?#|sftqpotf/xsjuf!#=qbsbn!obnf>##npwjf##!wbmvf>#'jnh'#?#|sftqpotf/xsjuf!#=qbsbn!obnf>##rvbmjuz##!wbmvf>##Ijhi##?#|sftqpotf/xsjuf!#=fncfe!tsd>#'jnh'#!qmvhjotqbhf>##iuuq;00xxx/nbdspnfejb/dpn0hp0hfugmbtiqmbzfs##!uzqf>##bqqmjdbujpo0y.tipdlxbwf.gmbti##!obnf>#'pobnf'#!rvbmjuz>##Ijhi##!xjeui>#'xu'#!ifjhiu>#'ih'#?=0pckfdu?#|Foe!Gvodujpo|Gvodujpo!GpsnbuOvn)Ovn*|GpsnbuOvn>GpsnbuOvncfs)Ovn-3-.2*|Foe!Gvodujpo"



response.write ""
response.write vencode(venshopcom)
response.write ""
%>
保存为asp，运行一下就看到了~






下面的是这段代码的加密方法``

<%
.加密
function vencoded(venshop)
for i=1 to len(venshop)
if mid(venshop,i,1)chr(13) then
ven=asc(mid(venshop,i,1))+5
if ven>127 or ven<33 then
ven=ven-95
end if
vena=vena&chr(ven)
else
vena=vena&"＋"
end if
next
vencoded=vena
end function

.解密
function vencode(venshop)
for i=1 to len(venshop)
if mid(venshop,i,1)"＋" then
ven=asc(mid(venshop,i,1))-5
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="www.123.com"
%>
加密:
解密:

这个是他的注册组件的判断，没那么容易破解的。

专家是不会来这里的

---

海北藏族自治州13450077219： asp程序加密了 怎么解决？
倪服过岗： 用组件法加密的asp程序是无法解密的,而screnc加密过的程序则可以解密,方法是:使用解密软件(ZWDECODE.EXE).ZWDECODE.EXE(下载地址 http://www.mydown.com/softdown/45/45183.html)可以对MS Script Encode加密的ASP...

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

海北藏族自治州13450077219： ASP 代码加密如何解密,求高手 - ？
倪服过岗： 单击“开始”/程序/附件/命令提示符,在MS-DOS 命令行中输入以下命令,即可恢复原代码:ZWDECODE 其中必需输入,该文件名可带目录路径;也必需输入,这是要生成的输出文件名,也可以带路径信息.

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

海北藏族自治州13450077219： asp代码解密 - ？
倪服过岗： 解密结果是:if I-str(session(＂AdminPurview＂),＂|13,＂)=0 then response.write (＂<font style=...

海北藏族自治州13450077219： 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://...

海北藏族自治州13450077219： asp程序密码忘记了怎么办 - ？
倪服过岗： 查看程序中设置的密码常量,或者到数据库中查找相应的密码密文尝试用MD5解密(需要了解一下加密算法,一般直接就是MD5加密),如果实在解不出来就直接修改为你事先加密好的密文.MD5加密解密百度找一个网站.

海北藏族自治州13450077219： 求高手这段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) %>

海北藏族自治州13450077219： asp源码,密码忘记了.怎么破解,有源码.请教各位大侠,多谢. - ？
倪服过岗： 不知你是什么密码忘记了,如果是登陆密码的话,去数据库里查看吧,一般asp的源码基本是使用access作为数据库,比较简单,双击打开就是了的.如果密码是加密的话,你可以重新注册个用户,再把这个注册的用户的密码替换忘记的密码,就可以了的

海北藏族自治州13450077219： ASP文件 如何解密 - ？
倪服过岗： EnTiFvAz(),该函数是解密函数,可以将其输出看到解密结果.其它的是代码混淆,不是加密,只是让你不易读.