恢復 SQL 被注入後的資料程式碼

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Inc/conn.asp"--&gt
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
server.ScriptTimeout = 1000000
'xtype=99 ntext 與text型別相似，不同的是，ntext型別採用unicode標準字符集。
'xtype=35 text 用於儲存大量文字資料。
'xtype=231 nvarchar 用來定義可變長度的二進位制資料，最大長度為4000個字元。
'xtype=167 varchar 儲存最常可以達到8000個字元的變長的字元資料
str = "'<mce:script src="http://e6t.3322.org/c.js" mce_src="http://e6t.3322.org/c.js">mce:script>'" '加在文字型別欄位後的木馬程式碼
sql = "SELECT a.name as t_name,b.name as c_name, b.xtype FROM sysobjects a,syscolumns b WHERE a.id=b.id AND a.xtype='u' AND (b.xtype=99 OR b.xtype=35 OR b.xtype=231 OR b.xtype=167)"
set rs = conn.execute(sql)
while Not rs.eof
t_name = rs("t_name") '表名
c_name = rs("c_name") '欄位名
xtype = rs("xtype") '欄位型別
If (xtype = 99 Or xtype = 35) then
conn.execute("update [" + t_name + "] set [" + c_name + "]=replace(cast([" + c_name + "] as varchar(8000)), " + str + ", '')")
Else
conn.execute("update [" + t_name + "] set [" + c_name + "]=replace([" + c_name + "], " + str + ", '')")
End If
rs.movenext
wend
response.Write("已經初步清理了掛馬資料，請重新重新整理頁面試試看！")
%>

<!--#include file="Inc/conn.asp"--&gt '" '加在文字型別欄位後的木馬程式碼 sql = "SELECT a.name as t_name,b.name as c_name, b.xtype FROM sysobjects a,syscolumns b WHERE a.id=b.id AND a.xtype='u' AND (b.xtype=99 OR b.xtype=35 OR b.xtype=231 OR b.xtype=167)" set rs = conn.execute(sql) while Not rs.eof t_name = rs("t_name") '表名 c_name = rs("c_name") '欄位名 xtype = rs("xtype") '欄位型別 If (xtype = 99 Or xtype = 35) then conn.execute("update [" + t_name + "] set [" + c_name + "]=replace(cast([" + c_name + "] as varchar(8000)), " + str + ", '')") Else conn.execute("update [" + t_name + "] set [" + c_name + "]=replace([" + c_name + "], " + str + ", '')") End If rs.movenext wend response.Write("已經初步清理了掛馬資料，請重新重新整理頁面試試看！") %>

來自 “ ITPUB部落格 ” ，連結：http://blog.itpub.net/16436858/viewspace-545241/，如需轉載，請註明出處，否則將追究法律責任。

恢復 SQL 被注入後的資料程式碼

相關文章