指定DNS服务器、本地UDP端口号获取域名IP地址组件

public class DNS
    {
        enum QueryType    //查询的资源记录类型。
        {
            A=0x01,        //指定计算机 IP 地址。
            NS=0x02,    //指定用于命名区域的 DNS 名称服务器。
            MD=0x03,    //指定邮件接收站（此类型已经过时了，使用MX代替）。
            MF=0x04,    //指定邮件中转站（此类型已经过时了，使用MX代替）。
            CNAME=0x05,    //指定用于别名的规范名称。
            SOA=0x06,    //指定用于 DNS 区域的“起始授权机构”。
            MB=0x07,    //指定邮箱域名。
            MG=0x08,    //指定邮件组成员。
            MR=0x09,    //指定邮件重命名域名。
            NULL=0x0A,    //指定空的资源记录
            WKS=0x0B,    //描述已知服务。
            PTR=0x0C,    //如果查询是 IP 地址，则指定计算机名；否则指定指向其它信息的指针。
            HINFO=0x0D,    //指定计算机 CPU 以及操作系统类型。
            MINFO=0x0E,    //指定邮箱或邮件列表信息。
            MX=0x0F,    //指定邮件交换器。
            TXT=0x10,    //指定文本信息。
            UINFO=0x64,    //指定用户信息。
            UID=0x65,    //指定用户标识符。
            GID=0x66,    //指定组名的组标识符。
            ANY=0xFF    //指定所有数据类型。
        };
        enum QueryClass    //指定信息的协议组。
        {
            IN=0x01,    //指定 Internet 类别。
            CSNET=0x02,    //指定 CSNET 类别。（已过时）
            CHAOS=0x03,    //指定 Chaos 类别。
            HESIOD=0x04,//指定 MIT Athena Hesiod 类别。
            ANY=0xFF    //指定任何以前列出的通配符。
        };
        struct ARecord
        {
            public string domain;    //查询的域名
            public QueryType queryType;    //查询类型
            public QueryClass queryClass;    //查询类
            public TimeSpan liveTime;    //生存时间
            public int dataLength;    //资源部分的长度，即指示邮件服务器的优先级及名称的那部分资源的字节数。
            public int preference;    //优先级值，其值越小越优先.
            public string IP;    //查询的域名的IP地址
        }

        public string[] DnsResolve(string hostName,string DnsServerIP,int MyPort)
        {
            string[] IPs;
            DnsQueryIP DnsSearch=new DnsQueryIP ();
            ARecord[] results=DnsSearch.AQuery (hostName,DnsServerIP,MyPort);
            if (results==null) return null;
            int Sum=0;
            for (int i=0;i<results.Length ;i++)
            {
                if (results[i].queryType ==QueryType.A )
                {
                    Sum++;
                }
            }
            IPs=new string [Sum];
            Sum=0;
            for (int i=0;i<results.Length ;i++)
            {
                if (results[i].queryType ==QueryType.A )
                {
                    IPs[Sum]=results[i].IP ;
                    Sum++;
                }
            }
            return IPs;
        }

        /**//// <summary>
        /// DNS查询 A
        /// </summary>
        sealed class DnsQueryIP
        {
            const int dnsPort = 53;
            const int MAX_SENDBUFFER_SIZE = 100;
    
            /**//// <summary>
            /// 生成随机ID
            /// </summary>
            /// <param name="size">长成的长度</param>
            /// <returns>size长度的ID字节数组</returns>
            private byte[] GetRndID(int size)
            {
                //不能使用Random类，因为此类在一秒内生成的序列是相同的。
                System.Security.Cryptography.RNGCryptoServiceProvider rnd=new System.Security.Cryptography.RNGCryptoServiceProvider();
                byte[] data = new byte[size];
                rnd.GetNonZeroBytes(data);
                return data;
            }



            UdpClient udp;
            byte[] receiveBuffer;
            IPEndPoint remotePoint;
            查询A记录#region 查询A记录
            /**//// <summary>
            /// 查询A记录
            /// </summary>
            /// <param name="servername">服务器名</param>
            /// <returns>查询到A记录数组</returns>
            public ARecord[] AQuery(string hostName,string dnsServer,int MyPort)
            {
                if (dnsServer == "")
                    return null;

                const int idSize = 2;    // DNS查询的报文ID为2个字节
                byte[] id = GetRndID(idSize);

                string server=hostName;
                if (server.Length > 68)
                    return null;

                remotePoint = new IPEndPoint(IPAddress.Parse(dnsServer),dnsPort);
                byte[] sendBuffer = new byte[100];

                int pos,fixPos; //当前位置,偏移位置
                string fixText;    //偏移位上所述的字串。
        
                Part1:发送字节数组的组成#region Part1:发送字节数组的组成
                Array.Copy(id,sendBuffer,idSize);    //填充前8位标志位
                sendBuffer[2] = 0x01;    //Qr位为1，表示是查询报文
                sendBuffer[3] = 0x00;
                sendBuffer[4] = 0x00;
                sendBuffer[5] = 0x01;    //1个问题 
                sendBuffer[6] = 0x00;
                sendBuffer[7] = 0x00;
                sendBuffer[8] = 0x00;
                sendBuffer[9] = 0x00;
                sendBuffer[10] = 0x00;
                sendBuffer[11] = 0x00;
                pos = 12;
                string[] part = server.Split('.');
                foreach (string s in part)
                {
                    if (s == "")
                        continue;
                
                    sendBuffer[pos++] = (byte)s.Length;
                    Encoding.Default.GetBytes(s,0,s.Length,sendBuffer,pos);
                    pos += s.Length;
                }
                sendBuffer[pos++] = 0x00;    //0结尾域名
                sendBuffer[pos++] = 0x00;
                sendBuffer[pos++] = (byte)QueryType.A ;    //1表示A记录查询
                sendBuffer[pos++] = 0x00;
                sendBuffer[pos++] = (byte)QueryClass.IN;    //Internet数据记录查询
                #endregion

            
                Part2:向DNS服务器进行查询#region Part2:向DNS服务器进行查询
                udp = new UdpClient(MyPort);
                udp.Send(sendBuffer,pos,remotePoint);

                System.Threading .ThreadStart 线程入口=new System.Threading.ThreadStart ( Receive);
                System.Threading .Thread 线程=new System.Threading.Thread (线程入口);
                线程.Start ();
                System.Threading .Thread .Sleep (600);
                if (receiveBuffer==null) System.Threading .Thread .Sleep (1200);
                if (receiveBuffer==null) System.Threading .Thread .Sleep (2400);
                if (receiveBuffer==null) 线程.Abort ();
                udp.Close ();
                if (receiveBuffer == null)
                    return null;    //无接收返回
                #endregion

            
                Part3:接收到字节数组处理部分#region Part3:接收到字节数组处理部分
                int queryCount,answerCount;
                ARecord record=new ARecord ();
                ARecord[] records;
            
                //判断是否为正确返回报文
                if(receiveBuffer[0]!=id[0] || receiveBuffer[1]!=id[1])
                    return null; //ID不符合
                if ((receiveBuffer[2] & 0x80) != 0x80)
                    return null;    // QR位不为1            
                queryCount = (receiveBuffer[4]<<8) | receiveBuffer[5]; 
                if (queryCount == 0)
                    return null;    //问题查询数为0
                answerCount = (receiveBuffer[6]<<8) | receiveBuffer[7];
                if (answerCount == 0)
                    return null;    //返回的回答数为0
            
                records = new ARecord[answerCount];
                pos = 12;    //从第12字位开始为DNS报文的查询及答复部分

                //跳过查询部分
                for(int i=0;i<queryCount;i++)
                {
                    while (receiveBuffer[pos] != 0x00)
                    {                    
                        pos += receiveBuffer[pos];
                        pos ++;    //要再补一位才到指示下一个的长度。
                    }
                    pos++;        //跳过指示结束的0位。
                    pos += 4;    //增加长度字节部分查询类型、查询类
                }
        

                //处理回答
                for(int i=0;i<answerCount;i++)
                {
                    record=new ARecord ();
                    //#######################处理域名#####################
                    fixText = "";
                    if (receiveBuffer[pos]==0xC0)
                    {
                        pos++;    //移到偏移位上            
                        //fixPos = receiveBuffer[pos];
                        //while (receiveBuffer[fixPos]!=0)
                        //{
                        //    int count=receiveBuffer[fixPos];
                        //    fixText += Encoding.ASCII.GetString(receiveBuffer,fixPos+1,count);                
                        //    fixText += ".";  //加上.构成完整的域名格式。
                        //    fixPos+=receiveBuffer[fixPos];
                        //    fixPos++;
                        //}
                        pos++; // pos从偏移位移到查询类型上来。
                    }
                    else
                    {
                        fixPos = pos;
                        while (receiveBuffer[fixPos]!=0x00)
                        {
                            fixText += Encoding.ASCII.GetString(receiveBuffer,fixPos+1,receiveBuffer[fixPos]);
                            fixText += ".";    
                            fixPos += receiveBuffer[fixPos];
                            fixPos++;
                        }
                        pos = fixPos+1;    //因为最后fixPox还指在域名结束标识0上，还要加上一位跳到查询类型过来。
                    }
                    //record.domain = fixText.Substring(0,fixText.Length - 1);    //去掉最后的.就是一个完整的域名。
                    //#######################处理查询类型#####################                
                    record.queryType = (QueryType)(receiveBuffer[pos]<<8 | receiveBuffer[pos+1]);
                    pos+=2;    //跳过两字节的查询类型字节数

                    //#######################处理查询类#####################
                    record.queryClass = (QueryClass)(receiveBuffer[pos]<<8 | receiveBuffer[pos+1]);
                    pos+=2;    //跳过两字节的查询类字节数

                    //#######################处理生存时间#####################
                    record.liveTime = TimeSpan.FromSeconds(receiveBuffer[pos]<<24 | receiveBuffer[pos+1]<<16 | receiveBuffer[pos+2]<<8 | receiveBuffer[pos+3]);
                    pos +=4;//跳过四字节的生存时间字节数

                    //#######################处理资源记录的长度#####################
                    record.dataLength = (receiveBuffer[pos]<<8 | receiveBuffer[pos+1]);
                    pos +=2;

                    //#######################处理IP地址#####################  answerCount
                    if (record.queryType == QueryType.A )
                    {
                        byte w3=receiveBuffer[pos];
                        byte w2=receiveBuffer[pos+1];
                        byte w1=receiveBuffer[pos+2];
                        byte w0=receiveBuffer[pos+3];
                        record.IP =w3.ToString ()+"."+w2.ToString ()+"."+w1.ToString ()+"."+w0.ToString ();
                    }
                    //在此不再加上2字节的pos的位移，邮件服务器名处理完后加上资源记录的长度跳到下一步去。
                
                    pos += record.dataLength;    //移到下一段资源记录
                    records[i] = record;
                }                
                #endregion    
            
                return records;
            }

            private void Receive()
            {
                receiveBuffer = udp.Receive(ref remotePoint);    

            }
            #endregion
        }

    }

     组件使用，如果我们想使用澳门的DNS查询百度的IP地址，而且使用本地的1234UDP端口连接：
     private void button1_Click(object sender, System.EventArgs e)
  {
   DNS a=new DNS ();
   string[] b=a.DnsResolve ("www.baidu.com", "202.175.3.8", 1234);
   if (b.Length >0) System.Windows .Forms .MessageBox .Show (b[0]);
  }
    本组件可使用在指定了网关，而没有指定DNS的电脑上。在某些需要考虑安全的情况下，电脑上不设置DNS安全性将更高。由于可指定本地UDP端口，防火墙设置可更为精确，安全性也将更高。
    本组件中小部分代码来源为开源软件《音速邮》。