object MonForm: TMonForm Left = 44 Top = 96 Caption = 'ICS Internet Packet Monitoring Components - Display Raw Packets ' + '- http://www.overbyte.be - V8.71 - 21st July 2023' ClientHeight = 720 ClientWidth = 1024 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Position = poDefault OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow TextHeight = 14 object PageControl1: TPageControl Left = 0 Top = 0 Width = 1024 Height = 720 ActivePage = TabSettings Align = alClient TabOrder = 0 object TabSettings: TTabSheet Caption = 'Monitor Settings' object GroupBox2: TGroupBox Left = 5 Top = 5 Width = 415 Height = 452 Caption = 'Monitoring Adaptor or IP Address' TabOrder = 0 object Label3: TLabel Left = 10 Top = 198 Width = 198 Height = 14 Caption = 'IP Address to Monitor (Socket Monitoring)' end object Label4: TLabel Left = 10 Top = 45 Width = 155 Height = 14 Caption = 'Adapter to Monitor (NPCap only)' end object LabelAdmin: TLabel Left = 10 Top = 357 Width = 310 Height = 13 Caption = 'Program does not have Administrator Rights, no socket monitoring' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 9 Top = 385 Width = 376 Height = 42 Caption = 'Note: Socket Monitoring may not capture from some network adapto' + 'rs, or may be one way ony.'#13#10'Socket Monitoring IPv6 traffic deco' + 'ding is partial. ' WordWrap = True end object MonIpList: TListBox Left = 10 Top = 218 Width = 254 Height = 126 ItemHeight = 14 TabOrder = 0 end object UseWinNCap: TCheckBox Left = 10 Top = 22 Width = 188 Height = 17 Caption = 'Use NPCap Driver' Enabled = False TabOrder = 1 OnClick = UseWinNCapClick end object MonAdptList: TListBox Left = 10 Top = 71 Width = 390 Height = 121 ItemHeight = 14 TabOrder = 2 OnClick = MonAdptListClick end object ShowFullData: TCheckBox Left = 275 Top = 222 Width = 101 Height = 17 Caption = 'Display Full Data' TabOrder = 3 end object ShowIgnoreData: TCheckBox Left = 275 Top = 245 Width = 81 Height = 17 Caption = 'Ignore Data' TabOrder = 4 end object MonPromiscuous: TCheckBox Left = 189 Top = 45 Width = 81 Height = 17 Caption = 'Promiscuous (Sockets)' Checked = True Enabled = False State = cbChecked TabOrder = 5 end object doExit: TButton Left = 273 Top = 18 Width = 75 Height = 25 Caption = 'Exit' TabOrder = 6 OnClick = doExitClick end end object GroupBox3: TGroupBox Left = 668 Top = 4 Width = 300 Height = 452 Caption = 'Filter by IP Address' TabOrder = 1 object IpAddrList: TMemo Left = 14 Top = 108 Width = 226 Height = 333 Lines.Strings = ( '192.168.1.4' '192.168.1.255') ScrollBars = ssVertical TabOrder = 0 OnExit = IpAddrListExit end object FilterIpAddr: TRadioGroup Left = 10 Top = 27 Width = 131 Height = 75 Caption = 'Filter Method' ItemIndex = 0 Items.Strings = ( 'No Filter' 'Ignore Selections' 'Only Selections') TabOrder = 1 OnClick = FilterIpAddrClick end object IpAddrLocal: TCheckBox Left = 161 Top = 35 Width = 120 Height = 17 Caption = 'Local Addresses' TabOrder = 2 OnClick = IpAddrLocalClick end end object GroupBox1: TGroupBox Left = 426 Top = 5 Width = 236 Height = 452 Caption = 'Filter by Protocol and Service' TabOrder = 2 object LaberlPorts: TLabel Left = 154 Top = 22 Width = 51 Height = 14 Caption = 'Filter Ports' end object FilterProtocol: TRadioGroup Left = 5 Top = 22 Width = 131 Height = 75 Caption = 'Filter Method' ItemIndex = 0 Items.Strings = ( 'No Filter' 'Ignore Selections' 'Only Selections') TabOrder = 0 OnClick = FilterProtocolClick end object ProtocolIPv4: TCheckBox Left = 5 Top = 105 Width = 120 Height = 17 Caption = 'IPv4 Traffic' TabOrder = 1 OnClick = ProtocolIPv4Click end object ProtocolIPv6: TCheckBox Left = 5 Top = 125 Width = 120 Height = 17 Caption = 'IPv6 Traffic' TabOrder = 2 OnClick = ProtocolIPv6Click end object ProtocolUdp: TCheckBox Left = 5 Top = 145 Width = 120 Height = 17 Caption = 'UDP Traffic' TabOrder = 3 OnClick = ProtocolUdpClick end object ProtocolARP: TCheckBox Left = 5 Top = 185 Width = 137 Height = 17 Caption = 'Addr Resolution Traffic' TabOrder = 4 OnClick = ProtocolARPClick end object ProtocolICMP: TCheckBox Left = 5 Top = 365 Width = 120 Height = 17 Caption = 'ICMP Traffic' TabOrder = 5 OnClick = ProtocolICMPClick end object ProtocolDns: TCheckBox Left = 5 Top = 325 Width = 138 Height = 17 Caption = 'Name Resolution Traffic' TabOrder = 6 OnClick = ProtocolDnsClick end object ProtocolNonIp: TCheckBox Left = 5 Top = 225 Width = 120 Height = 17 Caption = 'Non-IP Traffic' TabOrder = 7 OnClick = ProtocolNonIpClick end object ProtocolSyslog: TCheckBox Left = 5 Top = 245 Width = 120 Height = 17 Caption = 'Syslog Traffic' TabOrder = 8 OnClick = ProtocolSyslogClick end object ProtocolHttp: TCheckBox Left = 5 Top = 285 Width = 120 Height = 17 Caption = 'HTTP Traffic' TabOrder = 9 OnClick = ProtocolHttpClick end object ProtocolSNMP: TCheckBox Left = 5 Top = 205 Width = 120 Height = 17 Caption = 'SNMP Traffic' TabOrder = 10 OnClick = ProtocolSNMPClick end object ProtocolUPnP: TCheckBox Left = 5 Top = 305 Width = 120 Height = 17 Caption = 'UPnP Traffic' TabOrder = 11 OnClick = ProtocolUPnPClick end object ProtocolIRC: TCheckBox Left = 5 Top = 265 Width = 120 Height = 17 Caption = 'IRC Traffic' TabOrder = 12 OnClick = ProtocolIRCClick end object PortsList: TMemo Left = 154 Top = 41 Width = 73 Height = 214 ScrollBars = ssVertical TabOrder = 13 OnChange = PortsListChange end object ProtocolBroadcast: TCheckBox Left = 5 Top = 345 Width = 138 Height = 17 Caption = 'Broadcast Traffic' TabOrder = 14 OnClick = ProtocolBroadcastClick end object ProtocolTCP: TCheckBox Left = 5 Top = 165 Width = 86 Height = 17 Caption = 'TCP Traffic' TabOrder = 15 OnClick = ProtocolTCPClick end end object GroupBox4: TGroupBox Left = 5 Top = 462 Width = 238 Height = 105 Caption = 'DNS Cache' TabOrder = 3 object DnsCacheLog: TCheckBox Left = 15 Top = 21 Width = 130 Height = 17 Caption = 'Log Activity' TabOrder = 0 end object doDnsCacheClear: TButton Left = 27 Top = 55 Width = 75 Height = 25 Caption = 'Clear Cache' TabOrder = 1 OnClick = doDnsCacheClearClick end object doDnsCacheList: TButton Left = 122 Top = 55 Width = 75 Height = 25 Caption = 'List Cache' TabOrder = 2 OnClick = doDnsCacheListClick end end end object TabPacketsLog: TTabSheet Caption = 'Packets (Log)' ImageIndex = 1 object MonLogWin: TMemo Left = 0 Top = 41 Width = 1016 Height = 650 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -10 Font.Name = 'Lucida Console' Font.Style = [] ParentFont = False ScrollBars = ssBoth TabOrder = 0 end object Panel3: TPanel Left = 0 Top = 0 Width = 1016 Height = 41 Align = alTop TabOrder = 1 object LabelTrafficLog: TLabel Left = 305 Top = 5 Width = 33 Height = 13 Caption = 'Traffic:' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object doPackLogStart: TButton Left = 5 Top = 5 Width = 91 Height = 25 Caption = 'Start Monitor' TabOrder = 0 OnClick = doPackLogStartClick end object doClearLog: TButton Left = 209 Top = 5 Width = 75 Height = 25 Caption = 'Clear' TabOrder = 1 OnClick = doClearLogClick end object doPackLogStop: TButton Left = 107 Top = 5 Width = 91 Height = 25 Caption = 'Stop Monitor' TabOrder = 2 OnClick = doPackLogStopClick end end end object TabPacketsGrid: TTabSheet Caption = 'Packets (Grid)' ImageIndex = 2 object MonGridWin: TListView Left = 0 Top = 41 Width = 1016 Height = 650 Align = alClient Columns = < item Caption = 'Time' Width = 80 end item Caption = 'Prot' end item Caption = 'PLen' Width = 40 end item Caption = 'Source IP and Host Name' Width = 200 end item Caption = 'Port' end item Caption = 'Destination IP and Host Name' Width = 200 end item Caption = 'Port' end item Caption = 'Service' Width = 80 end item Caption = 'DLen' Width = 40 end item Caption = 'Packet Data' Width = 2000 end item end> GridLines = True OwnerData = True ReadOnly = True RowSelect = True TabOrder = 0 ViewStyle = vsReport OnData = MonGridWinData OnSelectItem = MonGridWinSelectItem end object Panel2: TPanel Left = 0 Top = 0 Width = 1016 Height = 41 Align = alTop TabOrder = 1 object LabelTrafficGrid: TLabel Left = 500 Top = 5 Width = 33 Height = 13 Caption = 'Traffic:' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object doPackGridStart: TButton Left = 5 Top = 4 Width = 91 Height = 25 Caption = 'Start Monitor' TabOrder = 0 OnClick = doPackGridStartClick end object doPackGridStop: TButton Left = 105 Top = 5 Width = 91 Height = 25 Caption = 'Stop Monitor' TabOrder = 1 OnClick = doPackGridStopClick end object doPackGridClear: TButton Left = 209 Top = 5 Width = 75 Height = 25 Caption = 'Clear' TabOrder = 2 OnClick = doPackGridClearClick end object GridAutoScroll: TCheckBox Left = 304 Top = 7 Width = 97 Height = 17 Caption = 'Auto Scroll' TabOrder = 3 end end end object TabTraffic: TTabSheet Caption = 'Traffic Totals Only' ImageIndex = 3 object MonTrafficWin: TListView Left = 0 Top = 41 Width = 1016 Height = 650 Align = alClient Columns = < item Caption = 'Source IP/Host' Width = 200 end item Caption = 'Target IP/Host' Width = 200 end item Caption = 'Service' Width = 100 end item Caption = 'Sent ' Width = 70 end item Caption = 'Packets' Width = 70 end item Caption = 'Received' Width = 70 end item Caption = 'Packets' Width = 70 end item Caption = 'First Time' Width = 100 end item Caption = 'Last Time' Width = 100 end item Width = 100 end> GridLines = True OwnerData = True ReadOnly = True RowSelect = True TabOrder = 0 ViewStyle = vsReport OnData = MonTrafficWinData OnSelectItem = MonGridWinSelectItem ExplicitLeft = 7 ExplicitTop = 38 end object Panel1: TPanel Left = 0 Top = 0 Width = 1016 Height = 41 Align = alTop TabOrder = 1 object LabelTrafficTotals: TLabel Left = 606 Top = 5 Width = 33 Height = 13 Caption = 'Traffic:' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object doTrafficStart: TButton Left = 5 Top = 5 Width = 91 Height = 25 Caption = 'Start Monitor' TabOrder = 0 OnClick = doTrafficStartClick end object doTrafficStop: TButton Left = 106 Top = 5 Width = 91 Height = 25 Caption = 'Stop Monitor' TabOrder = 1 OnClick = doTrafficStopClick end object doTrafficClear: TButton Left = 209 Top = 5 Width = 75 Height = 25 Caption = 'Clear' TabOrder = 2 OnClick = doTrafficClearClick end object doTrafficLogTotals: TButton Left = 296 Top = 5 Width = 151 Height = 25 Caption = 'Log Totals (in Log window)' TabOrder = 3 OnClick = doTrafficLogTotalsClick end object TrafficHostNames: TCheckBox Left = 460 Top = 5 Width = 125 Height = 17 Caption = 'Show Host Names' TabOrder = 4 end end end end object Timer: TTimer OnTimer = TimerTimer Left = 124 Top = 126 end object IcsDomainNameCache1: TIcsDomainNameCache DNMethod = MethodWinsock DnsServerStrat = SrvStratOne DefTTL = 3600 MaxLookups = 5 QTimeout = 5 AddLocalhost = False DBLANlookup = LanLookDef OnDNLogEvent = IcsDomainNameCache1DNLogEvent Left = 232 Top = 131 end end