Artifact 5a823418cedc80e87182c2b1dc53862acfc82768:
0000: 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a /***************
0010: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0020: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0030: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0040: 2a 2a 2a 2a 2a 2a 2a 2a 5c 0a 2a 20 20 20 20 20 ********\.*
0050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0060: 20 20 20 20 20 20 20 20 20 20 69 70 65 78 70 6f ipexpo
0070: 72 74 2e 64 20 20 20 20 20 20 20 20 20 20 20 20 rt.d
0080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0090: 20 20 2a 0a 2a 20 20 20 20 20 20 20 20 20 20 20 *.*
00a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00d0: 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 2a 20 *.*
00e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00f0: 20 20 20 20 20 20 57 69 6e 64 6f 77 73 20 41 50 Windows AP
0100: 49 20 68 65 61 64 65 72 20 6d 6f 64 75 6c 65 20 I header module
0110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0120: 20 20 20 20 20 20 2a 0a 2a 20 20 20 20 20 20 20 *.*
0130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0170: 2a 0a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 *.*
0180: 20 20 20 20 54 72 61 6e 73 6c 61 74 65 64 20 66 Translated f
0190: 72 6f 6d 20 4d 69 6e 47 57 20 57 69 6e 64 6f 77 rom MinGW Window
01a0: 73 20 68 65 61 64 65 72 73 20 20 20 20 20 20 20 s headers
01b0: 20 20 20 20 20 20 20 20 20 20 2a 0a 2a 20 20 20 *.*
01c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01d0: 20 20 20 20 20 20 20 20 62 79 20 53 74 65 77 61 by Stewa
01e0: 72 74 20 47 6f 72 64 6f 6e 20 20 20 20 20 20 20 rt Gordon
01f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0200: 20 20 20 20 2a 0a 2a 20 20 20 20 20 20 20 20 20 *.*
0210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a *.
0250: 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 *
0260: 20 20 20 20 20 20 20 20 50 6c 61 63 65 64 20 69 Placed i
0270: 6e 74 6f 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 nto public domai
0280: 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 n
0290: 20 20 20 20 20 20 20 20 2a 0a 5c 2a 2a 2a 2a 2a *.\*****
02a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02e0: 2a 2a 2f 0a 6d 6f 64 75 6c 65 20 77 69 6e 33 32 **/.module win32
02f0: 2e 69 70 65 78 70 6f 72 74 3b 0a 0a 70 72 69 76 .ipexport;..priv
0300: 61 74 65 20 69 6d 70 6f 72 74 20 77 69 6e 33 32 ate import win32
0310: 2e 77 69 6e 64 65 66 3b 0a 0a 63 6f 6e 73 74 20 .windef;..const
0320: 73 69 7a 65 5f 74 20 4d 41 58 5f 41 44 41 50 54 size_t MAX_ADAPT
0330: 45 52 5f 4e 41 4d 45 20 3d 20 31 32 38 3b 0a 0a ER_NAME = 128;..
0340: 2f 2f 20 49 50 20 53 54 41 54 55 53 20 66 6c 61 // IP STATUS fla
0350: 67 73 0a 65 6e 75 6d 20 3a 20 49 50 5f 53 54 41 gs.enum : IP_STA
0360: 54 55 53 20 7b 0a 09 49 50 5f 53 55 43 43 45 53 TUS {..IP_SUCCES
0370: 53 20 20 20 20 20 20 20 20 20 3d 20 20 20 20 20 S =
0380: 30 2c 0a 09 49 50 5f 53 54 41 54 55 53 5f 42 41 0,..IP_STATUS_BA
0390: 53 45 20 20 20 20 20 3d 20 31 31 30 30 30 2c 0a SE = 11000,.
03a0: 09 49 50 5f 42 55 46 5f 54 4f 4f 5f 53 4d 41 4c .IP_BUF_TOO_SMAL
03b0: 4c 2c 0a 09 49 50 5f 44 45 53 54 5f 4e 45 54 5f L,..IP_DEST_NET_
03c0: 55 4e 52 45 41 43 48 41 42 4c 45 2c 0a 09 49 50 UNREACHABLE,..IP
03d0: 5f 44 45 53 54 5f 48 4f 53 54 5f 55 4e 52 45 41 _DEST_HOST_UNREA
03e0: 43 48 41 42 4c 45 2c 0a 09 49 50 5f 44 45 53 54 CHABLE,..IP_DEST
03f0: 5f 50 52 4f 54 5f 55 4e 52 45 41 43 48 41 42 4c _PROT_UNREACHABL
0400: 45 2c 0a 09 49 50 5f 44 45 53 54 5f 50 4f 52 54 E,..IP_DEST_PORT
0410: 5f 55 4e 52 45 41 43 48 41 42 4c 45 2c 0a 09 49 _UNREACHABLE,..I
0420: 50 5f 4e 4f 5f 52 45 53 4f 55 52 43 45 53 2c 0a P_NO_RESOURCES,.
0430: 09 49 50 5f 42 41 44 5f 4f 50 54 49 4f 4e 2c 0a .IP_BAD_OPTION,.
0440: 09 49 50 5f 48 57 5f 45 52 52 4f 52 2c 0a 09 49 .IP_HW_ERROR,..I
0450: 50 5f 50 41 43 4b 45 54 5f 54 4f 4f 5f 42 49 47 P_PACKET_TOO_BIG
0460: 2c 0a 09 49 50 5f 52 45 51 5f 54 49 4d 45 44 5f ,..IP_REQ_TIMED_
0470: 4f 55 54 2c 0a 09 49 50 5f 42 41 44 5f 52 45 51 OUT,..IP_BAD_REQ
0480: 2c 0a 09 49 50 5f 42 41 44 5f 52 4f 55 54 45 2c ,..IP_BAD_ROUTE,
0490: 0a 09 49 50 5f 54 54 4c 5f 45 58 50 49 52 45 44 ..IP_TTL_EXPIRED
04a0: 5f 54 52 41 4e 53 49 54 2c 0a 09 49 50 5f 54 54 _TRANSIT,..IP_TT
04b0: 4c 5f 45 58 50 49 52 45 44 5f 52 45 41 53 53 45 L_EXPIRED_REASSE
04c0: 4d 2c 0a 09 49 50 5f 50 41 52 41 4d 5f 50 52 4f M,..IP_PARAM_PRO
04d0: 42 4c 45 4d 2c 0a 09 49 50 5f 53 4f 55 52 43 45 BLEM,..IP_SOURCE
04e0: 5f 51 55 45 4e 43 48 2c 0a 09 49 50 5f 4f 50 54 _QUENCH,..IP_OPT
04f0: 49 4f 4e 5f 54 4f 4f 5f 42 49 47 2c 0a 09 49 50 ION_TOO_BIG,..IP
0500: 5f 42 41 44 5f 44 45 53 54 49 4e 41 54 49 4f 4e _BAD_DESTINATION
0510: 2c 0a 09 49 50 5f 41 44 44 52 5f 44 45 4c 45 54 ,..IP_ADDR_DELET
0520: 45 44 2c 0a 09 49 50 5f 53 50 45 43 5f 4d 54 55 ED,..IP_SPEC_MTU
0530: 5f 43 48 41 4e 47 45 2c 0a 09 49 50 5f 4d 54 55 _CHANGE,..IP_MTU
0540: 5f 43 48 41 4e 47 45 2c 0a 09 49 50 5f 55 4e 4c _CHANGE,..IP_UNL
0550: 4f 41 44 2c 20 20 20 20 20 20 2f 2f 20 3d 20 49 OAD, // = I
0560: 50 5f 53 54 41 54 55 53 5f 42 41 53 45 20 2b 20 P_STATUS_BASE +
0570: 32 32 0a 09 49 50 5f 47 45 4e 45 52 41 4c 5f 46 22..IP_GENERAL_F
0580: 41 49 4c 55 52 45 20 3d 20 49 50 5f 53 54 41 54 AILURE = IP_STAT
0590: 55 53 5f 42 41 53 45 20 2b 20 35 30 2c 0a 09 4d US_BASE + 50,..M
05a0: 41 58 5f 49 50 5f 53 54 41 54 55 53 20 20 20 20 AX_IP_STATUS
05b0: 20 20 3d 20 49 50 5f 47 45 4e 45 52 41 4c 5f 46 = IP_GENERAL_F
05c0: 41 49 4c 55 52 45 2c 0a 09 49 50 5f 50 45 4e 44 AILURE,..IP_PEND
05d0: 49 4e 47 20 20 20 20 20 20 20 20 20 3d 20 49 50 ING = IP
05e0: 5f 53 54 41 54 55 53 5f 42 41 53 45 20 2b 20 32 _STATUS_BASE + 2
05f0: 35 35 0a 7d 0a 0a 2f 2f 20 49 50 20 68 65 61 64 55.}..// IP head
0600: 65 72 20 46 6c 61 67 73 20 76 61 6c 75 65 73 0a er Flags values.
0610: 63 6f 6e 73 74 20 62 79 74 65 20 49 50 5f 46 4c const byte IP_FL
0620: 41 47 5f 44 46 20 3d 20 32 3b 0a 0a 2f 2f 20 49 AG_DF = 2;..// I
0630: 50 20 4f 70 74 69 6f 6e 20 74 79 70 65 73 0a 65 P Option types.e
0640: 6e 75 6d 20 3a 20 75 62 79 74 65 20 7b 0a 09 49 num : ubyte {..I
0650: 50 5f 4f 50 54 5f 45 4f 4c 20 20 20 20 20 20 20 P_OPT_EOL
0660: 20 20 20 3d 20 30 2c 0a 09 49 50 5f 4f 50 54 5f = 0,..IP_OPT_
0670: 4e 4f 50 20 20 20 20 20 20 20 20 20 20 3d 20 30 NOP = 0
0680: 78 30 31 2c 0a 09 49 50 5f 4f 50 54 5f 52 52 20 x01,..IP_OPT_RR
0690: 20 20 20 20 20 20 20 20 20 20 3d 20 30 78 30 37 = 0x07
06a0: 2c 0a 09 49 50 5f 4f 50 54 5f 53 45 43 55 52 49 ,..IP_OPT_SECURI
06b0: 54 59 20 20 20 20 20 3d 20 30 78 38 32 2c 0a 09 TY = 0x82,..
06c0: 49 50 5f 4f 50 54 5f 4c 53 52 52 20 20 20 20 20 IP_OPT_LSRR
06d0: 20 20 20 20 3d 20 30 78 38 33 2c 0a 09 49 50 5f = 0x83,..IP_
06e0: 4f 50 54 5f 53 53 52 52 20 20 20 20 20 20 20 20 OPT_SSRR
06f0: 20 3d 20 30 78 38 39 2c 0a 09 49 50 5f 4f 50 54 = 0x89,..IP_OPT
0700: 5f 54 53 20 20 20 20 20 20 20 20 20 20 20 3d 20 _TS =
0710: 30 78 34 34 2c 0a 09 49 50 5f 4f 50 54 5f 53 49 0x44,..IP_OPT_SI
0720: 44 20 20 20 20 20 20 20 20 20 20 3d 20 30 78 38 D = 0x8
0730: 38 2c 0a 09 49 50 5f 4f 50 54 5f 52 4f 55 54 45 8,..IP_OPT_ROUTE
0740: 52 5f 41 4c 45 52 54 20 3d 20 30 78 39 34 0a 7d R_ALERT = 0x94.}
0750: 0a 0a 63 6f 6e 73 74 20 75 62 79 74 65 20 4d 41 ..const ubyte MA
0760: 58 5f 4f 50 54 5f 53 49 5a 45 20 3d 20 34 30 3b X_OPT_SIZE = 40;
0770: 0a 0a 61 6c 69 61 73 20 75 69 6e 74 20 49 50 41 ..alias uint IPA
0780: 64 64 72 2c 20 49 50 4d 61 73 6b 2c 20 49 50 5f ddr, IPMask, IP_
0790: 53 54 41 54 55 53 3b 0a 0a 73 74 72 75 63 74 20 STATUS;..struct
07a0: 49 50 5f 4f 50 54 49 4f 4e 5f 49 4e 46 4f 52 4d IP_OPTION_INFORM
07b0: 41 54 49 4f 4e 20 7b 0a 09 75 62 79 74 65 20 20 ATION {..ubyte
07c0: 54 74 6c 3b 0a 09 75 62 79 74 65 20 20 54 6f 73 Ttl;..ubyte Tos
07d0: 3b 0a 09 75 62 79 74 65 20 20 46 6c 61 67 73 3b ;..ubyte Flags;
07e0: 0a 09 75 62 79 74 65 20 20 4f 70 74 69 6f 6e 73 ..ubyte Options
07f0: 53 69 7a 65 3b 0a 09 75 62 79 74 65 2a 20 4f 70 Size;..ubyte* Op
0800: 74 69 6f 6e 73 44 61 74 61 3b 0a 7d 0a 61 6c 69 tionsData;.}.ali
0810: 61 73 20 49 50 5f 4f 50 54 49 4f 4e 5f 49 4e 46 as IP_OPTION_INF
0820: 4f 52 4d 41 54 49 4f 4e 2a 20 50 49 50 5f 4f 50 ORMATION* PIP_OP
0830: 54 49 4f 4e 5f 49 4e 46 4f 52 4d 41 54 49 4f 4e TION_INFORMATION
0840: 3b 0a 0a 73 74 72 75 63 74 20 49 43 4d 50 5f 45 ;..struct ICMP_E
0850: 43 48 4f 5f 52 45 50 4c 59 20 7b 0a 20 20 49 50 CHO_REPLY {. IP
0860: 41 64 64 72 20 41 64 64 72 65 73 73 3b 0a 20 20 Addr Address;.
0870: 75 69 6e 74 20 20 20 53 74 61 74 75 73 3b 0a 20 uint Status;.
0880: 20 75 69 6e 74 20 20 20 52 6f 75 6e 64 54 72 69 uint RoundTri
0890: 70 54 69 6d 65 3b 0a 20 20 75 73 68 6f 72 74 20 pTime;. ushort
08a0: 44 61 74 61 53 69 7a 65 3b 0a 20 20 75 73 68 6f DataSize;. usho
08b0: 72 74 20 52 65 73 65 72 76 65 64 3b 0a 20 20 76 rt Reserved;. v
08c0: 6f 69 64 2a 20 20 44 61 74 61 3b 0a 20 20 49 50 oid* Data;. IP
08d0: 5f 4f 50 54 49 4f 4e 5f 49 4e 46 4f 52 4d 41 54 _OPTION_INFORMAT
08e0: 49 4f 4e 20 4f 70 74 69 6f 6e 73 3b 0a 7d 0a 61 ION Options;.}.a
08f0: 6c 69 61 73 20 49 43 4d 50 5f 45 43 48 4f 5f 52 lias ICMP_ECHO_R
0900: 45 50 4c 59 2a 20 50 49 43 4d 50 5f 45 43 48 4f EPLY* PICMP_ECHO
0910: 5f 52 45 50 4c 59 3b 0a 0a 73 74 72 75 63 74 20 _REPLY;..struct
0920: 49 50 5f 41 44 41 50 54 45 52 5f 49 4e 44 45 58 IP_ADAPTER_INDEX
0930: 5f 4d 41 50 20 7b 0a 09 55 4c 4f 4e 47 20 20 20 _MAP {..ULONG
0940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0950: 49 6e 64 65 78 3b 0a 09 57 43 48 41 52 5b 4d 41 Index;..WCHAR[MA
0960: 58 5f 41 44 41 50 54 45 52 5f 4e 41 4d 45 5d 20 X_ADAPTER_NAME]
0970: 4e 61 6d 65 3b 0a 7d 0a 61 6c 69 61 73 20 49 50 Name;.}.alias IP
0980: 5f 41 44 41 50 54 45 52 5f 49 4e 44 45 58 5f 4d _ADAPTER_INDEX_M
0990: 41 50 2a 20 50 49 50 5f 41 44 41 50 54 45 52 5f AP* PIP_ADAPTER_
09a0: 49 4e 44 45 58 5f 4d 41 50 3b 0a 0a 73 74 72 75 INDEX_MAP;..stru
09b0: 63 74 20 49 50 5f 49 4e 54 45 52 46 41 43 45 5f ct IP_INTERFACE_
09c0: 49 4e 46 4f 20 7b 0a 09 4c 4f 4e 47 20 20 20 20 INFO {..LONG
09d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
09e0: 4e 75 6d 41 64 61 70 74 65 72 73 3b 0a 09 49 50 NumAdapters;..IP
09f0: 5f 41 44 41 50 54 45 52 5f 49 4e 44 45 58 5f 4d _ADAPTER_INDEX_M
0a00: 41 50 5b 31 5d 20 5f 41 64 61 70 74 65 72 3b 0a AP[1] _Adapter;.
0a10: 0a 09 49 50 5f 41 44 41 50 54 45 52 5f 49 4e 44 ..IP_ADAPTER_IND
0a20: 45 58 5f 4d 41 50 2a 20 41 64 61 70 74 65 72 28 EX_MAP* Adapter(
0a30: 29 20 7b 20 72 65 74 75 72 6e 20 5f 41 64 61 70 ) { return _Adap
0a40: 74 65 72 2e 70 74 72 3b 20 7d 0a 7d 0a 61 6c 69 ter.ptr; }.}.ali
0a50: 61 73 20 49 50 5f 49 4e 54 45 52 46 41 43 45 5f as IP_INTERFACE_
0a60: 49 4e 46 4f 2a 20 50 49 50 5f 49 4e 54 45 52 46 INFO* PIP_INTERF
0a70: 41 43 45 5f 49 4e 46 4f 3b 0a 0a 73 74 72 75 63 ACE_INFO;..struc
0a80: 74 20 49 50 5f 55 4e 49 44 49 52 45 43 54 49 4f t IP_UNIDIRECTIO
0a90: 4e 41 4c 5f 41 44 41 50 54 45 52 5f 41 44 44 52 NAL_ADAPTER_ADDR
0aa0: 45 53 53 20 7b 0a 09 55 4c 4f 4e 47 20 20 20 20 ESS {..ULONG
0ab0: 20 4e 75 6d 41 64 61 70 74 65 72 73 3b 0a 09 49 NumAdapters;..I
0ac0: 50 41 64 64 72 5b 31 5d 20 5f 41 64 64 72 65 73 PAddr[1] _Addres
0ad0: 73 3b 0a 0a 09 49 50 41 64 64 72 2a 20 41 64 64 s;...IPAddr* Add
0ae0: 72 65 73 73 28 29 20 7b 20 72 65 74 75 72 6e 20 ress() { return
0af0: 5f 41 64 64 72 65 73 73 2e 70 74 72 3b 20 7d 0a _Address.ptr; }.
0b00: 7d 0a 61 6c 69 61 73 20 49 50 5f 55 4e 49 44 49 }.alias IP_UNIDI
0b10: 52 45 43 54 49 4f 4e 41 4c 5f 41 44 41 50 54 45 RECTIONAL_ADAPTE
0b20: 52 5f 41 44 44 52 45 53 53 2a 20 50 49 50 5f 55 R_ADDRESS* PIP_U
0b30: 4e 49 44 49 52 45 43 54 49 4f 4e 41 4c 5f 41 44 NIDIRECTIONAL_AD
0b40: 41 50 54 45 52 5f 41 44 44 52 45 53 53 3b 0a APTER_ADDRESS;.