网站公告列表

  没有公告

加入收藏
设为首页
在线投稿

您现在的位置: IT知识网 >> IT知识 >> 网络编程 >> Asp.net专区 >> 文章正文

 

  ASP.NET追捕休整版           

ASP.NET追捕休整版
作者:佚名 文章来源:不详 点击数: 更新时间:2006-12-4 18:54:44
C#第一个正式应用,ASP.NET追捕休整版!
 这个程序,是前天我买到Visual Studio.net beta 2 中文版后编写的第一个正式程序,感觉只真是好极了!!
 
 这个追捕的代码参考过飞刀的ASP.NET 追捕的文章,但他文章中是针对.NET 框架beta1的,而BETA2中好多的地方都修改调整了,顺便也给程序增加了列表IP的功能,也就是说主机的多个IP地址都可以列出来的.只是那个根据IP查到IP所在地的功能暂时没做,因为当时我用的机器是朋友的,而手头没有IP数据库:~(
 
 static void Main()
 {
 Application.Run(new Form1());
 }
 
 private void Form1_Load(object sender, System.EventArgs e)
 {
 string Localhost = System.Net.Dns.GetHostName();
 int i = 0;
 int n = Dns.Resolve(Localhost.ToString()).AddressList.GetLength(0);
 lblIpInfo.Text = Localhost.ToString()+",就是你啊!";
 txtHostname.Text = Dns.Resolve(Localhost.ToString()).AddressList.GetValue(0).ToString();
 lblSystem.Text = "待命中...";
 lblHttp.Text = "待命中...";
 lblFtp.Text = "待命中...";
 lblDns.Text = "待命中...";
 lblTelnet.Text = "待命中...";
 lblSmtp.Text = "待命中...";
 lblPop.Text = "待命中...";
 for(;i<n;i++)
 {
 IPListbox.Items.Add(Dns.Resolve(Localhost.ToString()).AddressList.GetValue(i).ToString());
 }
 }
 
 private void cmdExec_Click(object sender, System.EventArgs e)
 {
 IPAddress theIP;
 txtHostname.Focus();
 if(txtHostname.Text.Length==0)
 {
 MessageBox.Show("您可以输入要追捕的IP或者主机名称!但不能为空","系统提示");
 return; //false
 }
 try
 {
 int i = 0;
 int n = Dns.Resolve(txtHostname.Text.ToString()).AddressList.GetLength(0);
 IPListbox.Items.Clear();
 for(;i<n;i++)
 {
 IPListbox.Items.Add(Dns.Resolve(txtHostname.Text.ToString()).AddressList.GetValue(i).ToString());
 }
 theIP = (IPAddress)Dns.Resolve(txtHostname.Text.ToString()).AddressList.GetValue(0);
 lblIpInfo.Text = theIP.ToString();
 if(check1.Checked==true)
 {//
 lblSystem.Text = "检测中...";
 lblHttp.Text = "检测中...";
 lblFtp.Text = "检测中...";
 lblDns.Text = "检测中...";
 lblTelnet.Text = "检测中...";
 lblSmtp.Text = "检测中...";
 lblPop.Text = "检测中...";
 //检查服务
 DetectService(theIP);
 DetectPort(theIP);
 lblSystem.Text = strSystem.ToString();
 lblHttp.Text = strHttp.ToString();
 lblFtp.Text = strFtp.ToString();
 lblDns.Text = strDns.ToString();
 lblTelnet.Text = strTelnet.ToString();
 lblSmtp.Text = strSmtp.ToString();
 lblPop.Text = strPop.ToString();
 }
 
 if(check2.Checked==true)
 {
 //查IP 所在地区,未实现
 }
 }
 catch
 {
 MessageBox.Show("这个主机无法连接哦!\r\n请重新输入一个正确的吧!","系统提示");
 txtHostname.Text = "";
 txtHostname.Focus();
 lblIpInfo.Text = "无法连接或转换IP,所在地大概是外星球!";
 lblSystem.Text = "待命中...";
 lblHttp.Text = "待命中...";
 lblFtp.Text = "待命中...";
 lblDns.Text = "待命中...";
 lblTelnet.Text = "待命中...";
 lblSmtp.Text = "待命中...";
 lblPop.Text = "待命中...";
 }
 return;
 }
 
 private void DetectService(IPAddress theIP)
 {
 string tFtp = TcpConnect(theIP,21); //is ftp service
 string tTelnet = TcpConnect(theIP,23); //is Telnet service
 string tDns = TcpConnect(theIP,43); //is Dns service
 string tPop = TcpConnect(theIP,110); //is Pop3 service
 string tSmtp = TcpConnect(theIP,25); //is Mail smtp service
 if(tFtp!="None")strFtp = tFtp;
 if(tTelnet!="None")strTelnet = tTelnet;
 if(tDns!="None")strDns = tDns;
 if(tPop!="None")strPop = tPop;
 if(tSmtp!="None")strSmtp = tSmtp;
 
 TcpClient tcp = new TcpClient();
 tcp.Connect(theIP,80);
 int tHttpStart;
 string tHttp;
 string tMsg = "POST /index.htm HTTP/1.1\r\n" +
  "Connection: Keep-Alive\r\n\r\n";
 Stream sm = tcp.GetStream();
 sm.Write(Encoding.Default.GetBytes(tMsg.ToCharArray()),0,tMsg.Length);
 StreamReader sr = new StreamReader(tcp.GetStream(),Encoding.Default);
 while(sr.Peek()!=-1)
 {
 tHttp= sr.ReadLine();
 tHttpStart = tHttp.IndexOf("Server");
 if(tHttpStart!=-1)
 {
 strHttp = tHttp;
 break;
 }
 }
 tcp.Close();
 }
 
 private string TcpConnect(IPAddress theIP,int Port)
 {
 TcpClient tcp = new TcpClient();
 StreamReader sr;
 string result;
 try
 {
 checked
 {
 tcp.Connect(theIP,Port);
 sr = new StreamReader(tcp.GetStream().ToString(),Encoding.Default);
 result = sr.ReadLine().ToString();
 tcp.Close();
 }
 }
 catch
 {
 result = "None";
 }
 return result;
 }
 
 private void DetectPort(IPAddress theIP)
 {
 //is
 if(strHttp.IndexOf("Microsoft")!=-1)
 {
 strSystem = "Windows";
 if(strHttp.IndexOf("IIS")!=-1)
 {
 strSystem="Windows NT/2000";
 if(strHttp.IndexOf("5.0")!=-1)
 strSystem="Windows 2000";
 else
 strSystem="Windows NT";
 }
 }
 else if(strHttp.IndexOf("Apache")!=-1)
 {
 strSystem = "Unix/Linux";
 if(strHttp.IndexOf("Unix")!=-1)
 strSystem="Unix";
 }
 else
 {
 if(TcpConnect(theIP,139)!="None")
 strSystem="Windows 98/Me";
 else if(TcpConnect(theIP,1433)!="None")
 strSystem="Windows NT/2000";
 else
 strSystem="Windows/Linux/Unix";
 }
 }
 
 private void IPListbox_SelectedIndexChanged(object sender, System.EventArgs e)
 {
 lblIpInfo.Text = IPListbox.Text.ToString()+",所在地查询未实现!";
 txtHostname.Text = IPListbox.Text.ToString();
 }
 
 private void button1_Click(object sender, System.EventArgs e)
 {
 Application.Exit();
 }
 
 private void linkLabel1_LinkClicked(object sender, System.Windows.Forms.LinkLabelLinkClickedEventArgs e)
 {
 linkLabel1.Show();
 }
 
 
 完整的代码和编译过的程序:http://202.103.224.224/icools/bbs/non-cgi/usr/5_2.zip
 
 记得一定要装 .NET FrameworkSDK beta2
 
 我是初学者,有问题一起研究!
 
 by 萧寒雪(S.F.)

文章录入:bolang    责任编辑:bolang 
  • 上一篇文章:

  • 下一篇文章:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
    最 新 热 门
    相 关 文 章
    在单个区域办配置OSPF
    Cisco IOS OSPF邻居关系
    配置OSPF非纯 Stub 区域
    探讨关于OSPF的network配
    OSPF相邻之前的几个邻居
    Cisco路由器OSPF协议经典
    双nat路由试验,走ospf动
    NBMA环境下OSPF配置需要
    OSPF协议的区域认证和接
    使用OSPF路由协议配置的
     
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)
    Copyright© ITZS.NET All Rights Reserved
    QQ:272895858   ICP备案编号:吉ICP备07000044号
    IT知识网 站长:博浪