'// The IP packet is like this. Took from RFC791.
' 0 1 2 3
' 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1
' +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
' |Version| IHL |Type of Service| Total Length |
' +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
' | Identification |Flags| Fragment Offset |
' +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
' | Time to Live | Protocol | Header Checksum |
' +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
' | Source Address |
' +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
' | Destination Address |
' +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
' | Options | Padding |
' +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
'*/
Type IPHeader ' 20 Bytes
lenver As Byte
Tos As Byte
len As Integer
ident As Integer
Flags As Integer
Ttl As Byte
proto As Byte
checksum As Integer
sourceIP As Long
destIP As Long
End Type
'-------------------------------------------------------------------------------------
'// The TCP packet is like this. Took from RFC793.
' 0 1 2 3
' 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1
' +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
' | Source Port | Destination Port |
' +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
' | Sequence Number |
' +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
' | Acknowledgment Number |
' +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
' | Data | |U|A|P|R|S|F| |
' | Offset| Reserved |R|C|S|S|Y|I| Window |
' | | |G|K|H|T|N|N| |
' +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
' | Checksum | Urgent Pointer |
' +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
' | Options | Padding |
' +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
' | data |
' +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
'*/
Type TCPHEADER ' 20 Bytes
th_sport As Integer
th_dport As Integer
th_seq As Long
th_ack As Long
th_lenres As Byte
th_flag As Byte
th_win As Integer
th_sum As Integer
th_urp As Integer
End Type 'TCP_HEADER as long
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'// The TCP's pseudo header is like this. Took from RFC793.
' +--------+--------+--------+--------+
' | Source Address |
' +--------+--------+--------+--------+
' | Destination Address |
' +--------+--------+--------+--------+
' | zero | PTCL | TCP Length |
' +--------+--------+--------+--------+
'*/
Type PSD_HEADER ' 16 Bytes
saddr As Long
daddr As Long
mbz As Byte
ptcl As Byte
tcpl As Integer
End Type 'PSD_HEADER as long
'-------------------------------------------------------------------
'// The UDP packet is lick this. Took from RFC768.
' 0 7 8 15 16 23 24 31
' +--------+--------+--------+--------+
' | Source | Destination |
' | Port | Port |
' +--------+--------+--------+--------+
' | | |
' | Length | Checksum |
' +--------+--------+--------+--------+
' |
' | data octets ...
' +---------------- ...
'*/
Type UDPHEADER ' 8 Bytes
uh_sport As Integer
uh_dport As Integer
uh_len As Integer
uh_sum As Integer
End Type ' UDP_HEADER as long
Type ICMPHEADER
i_type As Long
i_code As Long
i_cksum As Integer
i_id As Integer
i_seq As Integer
timestamp As Long
End Type 'ICMP_HEADER as long
Type ICMP_OPTIONS
Ttl As Byte
Tos As Byte
Flags As Byte
OptionsSize As Byte
OptionsData As Long
End Type
Public Type ICMP_ECHO_REPLY
Address As Long
status As Long
RoundTripTime As Long
DataSize As Long '注释：formerlyinteger
'注释：Reserved As Integer
DataPointer As Long
Options As ICMP_OPTIONS
Data As String * 250
End Type
' The protocol's map.
Type PROTOMAP
ProtoNum As Long
ProtoText(MAX_PROTO_TEXT_LEN) As Byte
End Type 'PROTOMAP as long
'static PROTOMAP ProtoMap[MAX_PROTO_NUM]=
'
' IPPROTO_IP , "IP " end type ',
' IPPROTO_ICMP , "ICMP" end type ',
' IPPROTO_IGMP , "IGMP" end type ',
' IPPROTO_GGP , "GGP " end type ',
' IPPROTO_TCP , "TCP " end type ',
' IPPROTO_PUP , "PUP " end type ',
' IPPROTO_UDP , "UDP " end type ',
' IPPROTO_IDP , "IDP " end type ',
' IPPROTO_ND , "NP " end type ',
' IPPROTO_RAW , "RAW " end type ',
' IPPROTO_MAX , "MAX " end type ',
' NULL , "" end type '
'End Type ' as long
