Socket DNS查询之实现

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

昨天突然无法访问任何网站了,可是QQ还在正常工作~~~~~`嗯,肯定是DNS出了问题~~

 用自己做的TraceRoute察看了一下,6个网关都工作正常~~~确实是DNS坏了~~

 烂铁通的DNS太差~~换~~~可是哪个DNS更好?

 自己做一个工具比较一下吧~~可是还不懂DNS的工作原理^_^

 搜索百度,下载TCP/IP 详解2卷~~竟然没有一个能下的了......还中了木马~~~~`晕倒!

 不过有收获!找到了全国的各大城市DNS列表!

 看来只有自己蒙了!好在还有IRIS。不过试用期只剩10天了!呵呵,抓包......原来是这样的:Windows向DNS发送了一个UDP包,这个包中当然有'www.xxx.com',然后DNS服务器返回一个包含IP地址的UDP包,我们的工作就是分解这个包~~~~~



 DNS服务器的端口是53,接受的Query package格式如下:

 PDomainQuery = ^YDomainQuery;

 YDomainQuery = record

 u16id : word;//任意

 u16flag : word;//$0100; //标准查询

 u16question : word;//1

 u16answer : word;//0

 u16author : word;//0

 u16addition : word;//0

 u8secB : byte;//section begin

 u8secE : byte;//section end

 u16type : word;//1

 u16class : word;//1

 end;



我们这样填充这个包:

procedure FillDomainQuery( pdq: PDomainQuery; sAddr: string );

var

 pData, pTemp : PChar;

 i, cbLen : Integer;

 pu16 : PWord;

begin

 FillChar( pdq^, sizeof(YDomainQuery) + Length(sAddr), 0 );



 pdq^.u16id := htons( DNS_ID );

 pdq^.u16flag := htons( DNS_STAND_QUERY );

 pdq^.u16question := htons( DNS_QUESTION );

 //pdq^.u16answer := 0; //pdq^.u16author := 0; //pdq^.u16addition := 0;



 //初始化域名数据缓冲区

 cbLen := Length(sAddr) + 2;

 pData := AllocMem( cbLen );

 Inc( pData );

 Move( sAddr[1], pData^, Length(sAddr) );

 Dec( pData );



 //填充域名数据缓冲区

 pTemp := pData;

 i := Pos( '.', sAddr ); //www.baidu.com --- example

 while i > 0 do

 begin //i=4; i=6

 pTemp^ := Chr(i-1); // 3 5

 Inc( pTemp, i ); // ^ ^

 Delete( sAddr, 1, i ); //s='baidu.com'; s='com'

 i := Pos( '.', sAddr );

 end;

 pTemp^ := Chr( Length(sAddr) ); //s='com'

 Inc( pTemp, Length(sAddr)+1 );

 pTemp^ := #0;



 //把域名数据拷贝到pdq^.u8secB

 pTemp := @pdq^.u8secB;

 Move( pData^, pTemp^, cbLen );

 FreeMem( pData );



 //最后填写Type/Class

 pu16 := PWord( pTemp + cbLen );

 pu16^ := htons( DNS_TYPE_HOST );

 Inc( pu16 );

 pu16^ := htons( DNS_CLASS_INET );

end;



//把构造好的包发送出去

var

 pdq : PDomainQuery;

 pdq := AllocMem( sizeof(YDomainQuery) + Length(edtDomain.text) );

 FillDomainQuery( pdq, edtDomain.text );

 udp.SendBuf( PChar(pdq), sizeof(YDomainQuery) + Length(edtDomain.text) );



//不过DNS返回的包更复杂~~~不给它定义什么结构了,直接整!!!

function DecodeDomainAnwser( pbuf: PChar; len: Integer ):string;

var

 p : PChar;

 w : Word;

 j : Integer;

 s1,s2,s3,s4: string;

begin

 p := pbuf; j:=0;

 result := 'TransactionID: ' + IntToStr( PWord(p)^ ) +#13#10;



 Inc( p, 2 ); Inc( j, 2 );

 result := result + 'Response Flag:' + Format('%x', [ntohs(PWord(p)^)]) +#13#10;

 if ntohs( PWord(p)^ ) <> DNS_STAND_RES then

 begin

 result := result + 'Response error...' +#13#10;

 Exit;

 end;



 Inc( p, 2 ); Inc( j, 2 );

 result := result + 'Question: ' +IntToStr( ntohs(PWord(p)^) )+ #13#10;

 Inc( p, 2 ); Inc( j, 2 );

 result := result + 'Answer: ' +IntToStr( ntohs(PWord(p)^) )+ #13#10;

 Inc( p, 2 ); Inc( j, 2 );

 result := result + 'Authority: ' +IntToStr( ntohs(PWord(p)^) )+ #13#10;

 Inc( p, 2 ); Inc( j, 2 );

 result := result + 'Addition: ' +IntToStr( ntohs(PWord(p)^) )+ #13#10;



 Inc( p, 2 ); Inc( j, 2 );

 w := Byte( p^ );

 while w > 0 do //跳过DNS HOST返回的要查询的域名

 begin

 Inc( p, w + 1 ); Inc( j, w+1 );

 w := Byte( p^ );

 end;



 Inc( p ); Inc( j );

 Inc( p, 4 ); Inc( j, 4 );//type/class

 Inc( p, 6 ); Inc( j, 6 );//name/type/class

 Inc( p, 4 ); Inc( j, 4 );//time



 w := ntohs( PWord(p)^ ); //得到数据长度

 Inc( p, 2 ); Inc( j, 2 );//到达真正的数据地址

 Inc( p, w ); Inc( j, w );

 Inc( p, 10 ); Inc( j, 10 );

 Inc( p, 2 ); Inc( j, 2 );

 s1 := IntToStr( Byte(p^) ); Inc( p ); Inc( j );

 s2 := IntToStr( Byte(p^) ); Inc( p ); Inc( j );

 s3 := IntToStr( Byte(p^) ); Inc( p ); Inc( j );

 s4 := IntToStr( Byte(p^) ); Inc( p ); Inc( j );

 result := result + 'IP: ' + s1 + '.' + s2 + '.' + s3 + '.' + s4 + #13#10;



 if len < j+32 then

 Exit;



 Inc( p, 6 ); //+name/type/class

 Inc( p, 4 ); //+time



 Inc( p, 2 ); //到达真正的数据地址

 s1 := IntToStr( Byte(p^) ); Inc( p );

 s2 := IntToStr( Byte(p^) ); Inc( p );

 s3 := IntToStr( Byte(p^) ); Inc( p );

 s4 := IntToStr( Byte(p^) );

 result := result + 'IP: ' + s1 + '.' + s2 + '.' + s3 + '.' + s4 +#13#10;

end;



 呵呵,试验一下,全国的各大城市DNS列表中的Host竟然大都不能用~~~~~~~

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航