mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-30 16:22:36 +02:00
141 lines
3.0 KiB
PHP
141 lines
3.0 KiB
PHP
|
|
Type
|
|
Ptimestamp = ^timestamp;
|
|
timestamp = record
|
|
len : u_int8_t;
|
|
ptr : u_int8_t;
|
|
flag0 : dword;
|
|
data : array[0..8] of u_int32_t;
|
|
end;
|
|
|
|
Piphdr = ^iphdr;
|
|
iphdr = record
|
|
flag0 : byte;
|
|
tos : u_int8_t;
|
|
tot_len : u_int16_t;
|
|
id : u_int16_t;
|
|
frag_off : u_int16_t;
|
|
ttl : u_int8_t;
|
|
protocol : u_int8_t;
|
|
check : u_int16_t;
|
|
saddr : u_int32_t;
|
|
daddr : u_int32_t;
|
|
end;
|
|
|
|
Pip = ^ip;
|
|
ip = record
|
|
flag0 : byte;
|
|
ip_tos : u_int8_t;
|
|
ip_len : u_short;
|
|
ip_id : u_short;
|
|
ip_off : u_short;
|
|
ip_ttl : u_int8_t;
|
|
ip_p : u_int8_t;
|
|
ip_sum : u_short;
|
|
ip_src : in_addr;
|
|
ip_dst : in_addr;
|
|
end;
|
|
|
|
const
|
|
IP_RF = $8000;
|
|
IP_DF = $4000;
|
|
IP_MF = $2000;
|
|
IP_OFFMASK = $1fff;
|
|
|
|
type
|
|
Pip_timestamp = ^ip_timestamp;
|
|
ip_timestamp = record
|
|
ipt_code : u_int8_t;
|
|
ipt_len : u_int8_t;
|
|
ipt_ptr : u_int8_t;
|
|
flag0 : dword;
|
|
data : array[0..8] of u_int32_t;
|
|
end;
|
|
|
|
const
|
|
IPVERSION = 4;
|
|
IP_MAXPACKET = 65535;
|
|
IPTOS_TOS_MASK = $1E;
|
|
|
|
function IPTOS_TOS(tos : longint) : longint;
|
|
|
|
|
|
const
|
|
IPTOS_LOWDELAY = $10;
|
|
IPTOS_THROUGHPUT = $08;
|
|
IPTOS_RELIABILITY = $04;
|
|
IPTOS_LOWCOST = $02;
|
|
IPTOS_MINCOST = IPTOS_LOWCOST;
|
|
IPTOS_PREC_MASK = $e0;
|
|
|
|
function IPTOS_PREC(tos : longint) : longint;
|
|
|
|
|
|
const
|
|
IPTOS_PREC_NETCONTROL = $e0;
|
|
IPTOS_PREC_INTERNETCONTROL = $c0;
|
|
IPTOS_PREC_CRITIC_ECP = $a0;
|
|
IPTOS_PREC_FLASHOVERRIDE = $80;
|
|
IPTOS_PREC_FLASH = $60;
|
|
IPTOS_PREC_IMMEDIATE = $40;
|
|
IPTOS_PREC_PRIORITY = $20;
|
|
IPTOS_PREC_ROUTINE = $00;
|
|
IPOPT_COPY = $80;
|
|
IPOPT_CLASS_MASK = $60;
|
|
IPOPT_NUMBER_MASK = $1f;
|
|
|
|
function IPOPT_COPIED(o : longint) : longint;
|
|
|
|
function IPOPT_CLASS(o : longint) : longint;
|
|
|
|
function IPOPT_NUMBER(o : longint) : longint;
|
|
|
|
|
|
const
|
|
IPOPT_CONTROL = $00;
|
|
IPOPT_RESERVED1 = $20;
|
|
IPOPT_DEBMEAS = $40;
|
|
IPOPT_MEASUREMENT = IPOPT_DEBMEAS;
|
|
IPOPT_RESERVED2 = $60;
|
|
IPOPT_EOL = 0;
|
|
IPOPT_END = IPOPT_EOL;
|
|
IPOPT_NOP = 1;
|
|
IPOPT_NOOP = IPOPT_NOP;
|
|
IPOPT_RR = 7;
|
|
IPOPT_TS = 68;
|
|
IPOPT_TIMESTAMP = IPOPT_TS;
|
|
IPOPT_SECURITY = 130;
|
|
IPOPT_SEC = IPOPT_SECURITY;
|
|
IPOPT_LSRR = 131;
|
|
IPOPT_SATID = 136;
|
|
IPOPT_SID = IPOPT_SATID;
|
|
IPOPT_SSRR = 137;
|
|
IPOPT_RA = 148;
|
|
IPOPT_OPTVAL = 0;
|
|
IPOPT_OLEN = 1;
|
|
IPOPT_OFFSET = 2;
|
|
IPOPT_MINOFF = 4;
|
|
MAX_IPOPTLEN = 40;
|
|
IPOPT_TS_TSONLY = 0;
|
|
IPOPT_TS_TSANDADDR = 1;
|
|
IPOPT_TS_PRESPEC = 3;
|
|
IPOPT_SECUR_UNCLASS = $0000;
|
|
IPOPT_SECUR_CONFID = $f135;
|
|
IPOPT_SECUR_EFTO = $789a;
|
|
IPOPT_SECUR_MMMM = $bc4d;
|
|
IPOPT_SECUR_RESTR = $af13;
|
|
IPOPT_SECUR_SECRET = $d788;
|
|
IPOPT_SECUR_TOPSECRET = $6bc5;
|
|
MAXTTL = 255;
|
|
IPDEFTTL = 64;
|
|
IPFRAGTTL = 60;
|
|
IPTTLDEC = 1;
|
|
IP_MSS = 576;
|
|
|
|
|
|
{ ---------------------------------------------------------------------
|
|
Borland compatibility types
|
|
---------------------------------------------------------------------}
|
|
|
|
// Type
|