Difference between revisions of "Unit DNS"

Revision as of 00:54, 18 January 2017

@@ Line 282: / Line 282: @@
 |-
 | &nbsp;
-| style="width: 90%;"|&nbsp;
+| style="width: 50%;"|&nbsp;
 |-
 |}

`DNS_TIMEOUT = 5000;`	We wait for 5 seconds for a DNS reply
`DNS_RETRIES = 4;`	Try the request 4 times

`DNS_HEADER_SIZE = 12;`	SizeOf(TDNSHeader);

`DNS_QUESTION_SIZE = 4;`	SizeOf(TDNSQuestion);
`DNS_RESOURCE_SIZE = 10;`	SizeOf(TDNSResource); Not including Record Data

`MAX_DNS_NAME = 255;`
`MAX_DNS_LABEL = 63;`
`MAX_DNS_MESSAGE = 512;`	Maximum Size of DNS Message

`DNS_FLAG_RESPONSE = $8000;`	query = 0, response = 1
`DNS_FLAG_AUTHORITY = $0400;`	Authoritative answer
`DNS_FLAG_TRUNCATED = $0200;`	Truncation, response was cut off at 512
`DNS_FLAG_DO_RECURSE = $0100;`	Recursion desired
`DNS_FLAG_CAN_RECURSE = $0080;`	Recursion available

`DNS_OPCODE_MASK = $7800;`	Opcode
`DNS_RESPONSE_MASK = $000F;`	Response code

`DNS_QUERY = 0;`	A standard query
`DNS_INV_QUERY = 1;`	An inverse query
`DNS_COMP_QUERY_MULTI = 2;`	A completion query, multiple reply (Obsolete)
`DNS_COMP_QUERY_SINGLE = 3;`	A completion query, single reply (Obsolete)

`DNS_TYPE_A = 1;`	Host address resource record (RR)
`DNS_TYPE_NS = 2;`
`DNS_TYPE_MD = 3;`
`DNS_TYPE_MF = 4;`
`DNS_TYPE_CNAME = 5;`
`DNS_TYPE_SOA = 6;`
`DNS_TYPE_MB = 7;`
`DNS_TYPE_MG = 8;`
`DNS_TYPE_MR = 9;`
`DNS_TYPE_RT_NULL = 10;`
`DNS_TYPE_WKS = 11;`
`DNS_TYPE_PTR = 12;`	A domain name ptr
`DNS_TYPE_HINFO = 13;`
`DNS_TYPE_MINFO = 14;`
`DNS_TYPE_MX = 15;`	Mail exchange

`DNS_CLASS_IN = 1;`	ARPA internet class
`DNS_CLASS_CS = 2;`
`DNS_CLASS_WILD = 255;`	Wildcard for several of the classifications

Note: All Network Order
`Identifier:Word;`	unique identifier
`Flags:Word;`	QD/Opcode/AA/TC/RD/RA/RCODE
`QuestionCount:Word;`	question section, number of entries
`AnswerCount:Word;`	answers, how many
`AuthorityCount:Word;`	count of name server RRs
`AdditionalCount:Word;`	number of "additional" records

`DNS:TDNSHeader;`
`Data:array[0..(MAX_DNS_MESSAGE - DNS_HEADER_SIZE) - 1] of Byte;`

Note: All Network Order
`Name:TDNSName;`	variable length question name
`QuestionType:Word;`	question type (eg DNS_TYPE_A)
`QuestionClass:Word;`	question class (eg DNS_CLASS_IN)

Note: All Network Order
`Name:TDNSName;`	variable length resource name
`RecordType:Word;`	resource record type (eg DNS_TYPE_A)
`RecordClass:Word;`	resource record class (eg DNS_CLASS_IN)
`Ttl:LongWord;`	time-to-live, changed to 32 bits
`DataLength:Word;`	length of data field
`RecordData:array[0..MAX_DNS_MESSAGE - 1] of Byte;`	data field

Note: Used for TLS Data
Host Ent
`HostEnt:THostEnt;`
`HostEntName:array[0..MAX_NAME_SIZE - 1] of Char;`
`HostAliasesPtr:PChar;`
`HostAliases:array[0..(MAX_NAME_SIZE * MAX_NAME_ALIASES) - 1] of Char;`
`HostAddrListPtr:PChar;`
`HostAddrList:array[0..MAX_HOST_ALIASES - 1] of TInAddr;`
Net Ent
`NetEnt:TNetEnt;`
`NetEntName:array[0..MAX_NAME_SIZE - 1] of Char;`
`NetAliasesPtr:PChar;`
`NetAliases:array[0..(MAX_NAME_SIZE * MAX_NAME_ALIASES) - 1] of Char;`
Serv Ent
`ServEnt:TServEnt;`
`ServEntName:array[0..MAX_NAME_SIZE - 1] of Char;`
`ServAliasesPtr:PChar;`
`ServAliases:array[0..(MAX_NAME_SIZE * MAX_NAME_ALIASES) - 1] of Char;`
`ServEntProto:array[0..MAX_NAME_SIZE - 1] of Char;`
Proto Ent
`ProtoEnt:TProtoEnt;`
`ProtoEntName:array[0..MAX_NAME_SIZE - 1] of Char;`
`ProtoAliasesPtr:PChar;`
`ProtoAliases:array[0..(MAX_NAME_SIZE * MAX_NAME_ALIASES) - 1] of Char;`