scanmain.dfm

多线程端口扫描演示

object ScanMainForm: TScanMainForm
  Left = 262
  Top = 192
  Width = 551
  Height = 442
  Caption = #22810#32447#31243#31471#21475#25195#25551' '#25945#23398#28436#31034' '#25104#37117#29702#24037#22823#23398'  '#37011#39134' 2004.7'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001001010000001000800680500001600000028000000100000002000
    000001000800000000000000000012170000121700000001000000000000443E
    3C001CA62C00B4A69C00BCDABC0094929400CCCACC009CC69C00ECEAE4001C7A
    1C008C7A6400BCB2B400FCEAB40034CA6400BCB69C00CCDACC00B4C2B4002C82
    3400BCA6A400647EF400FCFAF400FCDAAC00949A9C00CCC2A400549654004CDE
    7C0084B264000C921400FCE2AC00FCFEDC00F4F2CC00C4AEA40074967400FCE2
    BC00FCF6EC00A4AAAC00D4B2B40044DA7400A49E9400E4CA9C00248A24005C5A
    540084A254009C969C00ACCE9C00F4F2C40034CE6C00448E3400DCC6A4004CE6
    7C00ACA69400ECE6B4002CB64C00A4A6A40094969400ACBAEC000C861C009C86
    6C00B4BABC00ECE6C400C4C6C400CCAAAC00FCFEFC009C9E9C00D4C6A400549E
    5C00FCFAE400BCAEAC0084968400FCFEEC0014922400846E5C00449644004CE6
    84008CB68C00FCE2B400BCBEA4001C7E1C007C7A7400FCEEC4003CCE6400BCB6
    A400C4AAA400FCFEF400FCDEAC009C9A9C00D4C2A4004C9A54000C961C00F4F2
    D4008C9A7C00FCE6BC00FCFAEC00ACAEAC00DCB6B400AC9A9C00248E2C005C5E
    5C00ACCEAC00FCF6C40044CE6C002CC24C00ACA6A4009C969400ACBEF400BCBA
    BC00FCE6C400D4CAC400FCFEE400CCAEAC0044964C0054EA8400BCBE8C00FCE6
    B400000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000053B
    053B053B053B053B053B053B053B053B053B053B545E115E42053B053B053B05
    3B053504250D0D501123223B053B3B056A10433F4E07122158315D683B05053B
    56182732705314202141026C053B3B4033306E2E0B70705314133A3C39054033
    0C24486319621B4A5369411E653B4C4C4C2D0C4C47596009383867350A05053B
    4C6437031C4B4D001D26362A423B3B0508643761446B1D2846204E663405053B
    1F1A64373D526B2C283816046A053B05051757016D06032B6F2F6635053B053B
    0505495F45370829553434053B053B053B0522420E0F6A393B5C053B053B053B
    053B0505220A5C425C053B053B053B053B053B053B053B05053B053B053B0000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  DesignSize = (
    543
    415)
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 16
    Top = 24
    Width = 36
    Height = 12
    Caption = 'IP'#33539#22260
  end
  object Label2: TLabel
    Left = 192
    Top = 24
    Width = 18
    Height = 12
    Caption = '-->'
  end
  object ScanBtn: TSpeedButton
    Left = 480
    Top = 19
    Width = 23
    Height = 22
    Flat = True
    Glyph.Data = {
      36060000424D3606000000000000360000002800000020000000100000000100
      18000000000000060000C40E0000C40E00000000000000000000C8D0D4C8D0D4
      C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
      D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
      D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
      C8D0D4C8D0D4189418005A00005A00C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
      D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4666666383838383838D0
      D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
      C8D0D4C8D0D418941831C65231C652005A00C8D0D4C8D0D4C8D0D4C8D0D4C8D0
      D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D466666696969696969638
      3838D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
      C8D0D4C8D0D418941842CE6331C65A31C65A005A00C8D0D4C8D0D4C8D0D4C8D0
      D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4666666A2A2A298989898
      9898383838D0D0D0D0D0D0D0D0D0D0D0D0C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
      C8D0D4C8D0D41894184AD67339C65A39C65A39C65A005A00C8D0D4C8D0D4C8D0
      D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4666666ACACAC99999999
      9999999999383838D0D0D0D0D0D0D0D0D0C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
      C8D0D4C8D0D41894185ADE8439CE6339CE6339CE6339CE63005A00C8D0D4C8D0
      D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4666666B7B7B7A1A1A1A1
      A1A1A1A1A1A1A1A1383838D0D0D0D0D0D0C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
      C8D0D4C8D0D418941863E78C39D66B39D66B39D66B39D66B39D66B005A00C8D0
      D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4666666C0C0C0A8A8A8A8
      A8A8A8A8A8A8A8A8A8A8A8383838D0D0D0C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
      C8D0D4C8D0D418941873EF9C42D66B42D66B42D66B42D66B42D66B42D66B005A
      00C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4666666CBCBCBA9A9A9A9
      A9A9A9A9A9A9A9A9A9A9A9A9A9A9383838C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
      C8D0D4C8D0D41894187BF7A542DE7342DE7342DE7342DE7342DE737BF7A51894
      18C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4666666D3D3D3B0B0B0B0
      B0B0B0B0B0B0B0B0B0B0B0D3D3D3666666C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
      C8D0D4C8D0D418941884F7AD4AE77B4AE77B4AE77B4AE77B7BF7A5189418C8D0
      D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4666666D6D6D6B8B8B8B8
      B8B8B8B8B8B8B8B8D3D3D3666666D0D0D0C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
      C8D0D4C8D0D41894188CFFB54AE7844AE7844AE7847BF7A5189418C8D0D4C8D0
      D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4666666DEDEDEBBBBBBBB
      BBBBBBBBBBD3D3D3666666D0D0D0D0D0D0C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
      C8D0D4C8D0D41894189CFFBD4AEF844AEF847BF7A5189418C8D0D4C8D0D4C8D0
      D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4666666E2E2E2C0C0C0C0
      C0C0D3D3D3666666D0D0D0D0D0D0D0D0D0C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
      C8D0D4C8D0D4189418A5FFC652EF8C7BF7A5189418C8D0D4C8D0D4C8D0D4C8D0
      D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4666666E6E6E6C3C3C3D3
      D3D3666666D0D0D0D0D0D0D0D0D0D0D0D0C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
      C8D0D4C8D0D4189418A5FFC6A5FFC6189418C8D0D4C8D0D4C8D0D4C8D0D4C8D0
      D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4666666E6E6E6E6E6E666
      6666D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
      C8D0D4C8D0D4189418189418189418C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
      D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4666666666666666666D0
      D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
      C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
      D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
      D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4}
    NumGlyphs = 2
    OnClick = ScanBtnClick
  end
  object StopBtn: TSpeedButton
    Left = 504
    Top = 19
    Width = 23
    Height = 22
    Enabled = False
    Flat = True
    Glyph.Data = {
      36080000424D3608000000000000360000002800000020000000100000000100
      20000000000000080000C40E0000C40E00000000000000000000C8D0D400C8D0
      D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D4000808BD0000006300000063000000630000006300000063000000
      630000006300000063000000630000006300C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D4003535350019191900191919001919190019191900191919001919
      190019191900191919001919190019191900C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D4000808BD001818FF000808FF000808FF000808FF000808FF000808
      FF000808FF000808FF000808FF0000006300C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D4003535350052525200464646004646460046464600464646004646
      460046464600464646004646460019191900C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D4000808BD003139FF001010FF001010FF001010FF001010FF001010
      FF001010FF001010FF001010FF0000006300C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D400353535006A6A6A004C4C4C004C4C4C004C4C4C004C4C4C004C4C
      4C004C4C4C004C4C4C004C4C4C0019191900C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D4000808BD004A52FF001821FF001821FF001821FF001821FF001821
      FF001821FF001821FF001821FF0000006300C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D400353535007C7C7C00575757005757570057575700575757005757
      570057575700575757005757570019191900C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D4000808BD00636BFF002929FF002929FF002929FF002929FF002929
      FF002929FF002929FF002929FF0000006300C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D400353535008F8F8F005F5F5F005F5F5F005F5F5F005F5F5F005F5F
      5F005F5F5F005F5F5F005F5F5F0019191900C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D4000808BD007B7BFF003139FF003139FF003139FF003139FF003139
      FF003139FF003139FF003139FF0000006300C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D400353535009C9C9C006A6A6A006A6A6A006A6A6A006A6A6A006A6A
      6A006A6A6A006A6A6A006A6A6A0019191900C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D4000808BD008C8CFF00424AFF00424AFF00424AFF00424AFF00424A
      FF00424AFF00424AFF00424AFF0000006300C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D40035353500A9A9A900767676007676760076767600767676007676
      760076767600767676007676760019191900C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D4000808BD00949CFF004A52FF004A52FF004A52FF004A52FF004A52
      FF004A52FF004A52FF004A52FF0000006300C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D40035353500B4B4B4007C7C7C007C7C7C007C7C7C007C7C7C007C7C
      7C007C7C7C007C7C7C007C7C7C0019191900C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D4000808BD009CA5FF00525AFF00525AFF00525AFF00525AFF00525A
      FF00525AFF00525AFF00525AFF0000006300C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D40035353500BABABA00828282008282820082828200828282008282
      820082828200828282008282820019191900C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D4000808BD009CA5FF009CA5FF009CA5FF009CA5FF009CA5FF009CA5
      FF009CA5FF009CA5FF009CA5FF0000006300C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D40035353500BABABA00BABABA00BABABA00BABABA00BABABA00BABA
      BA00BABABA00BABABA00BABABA0019191900C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D4000808BD000808BD000808BD000808BD000808BD000808BD000808
      BD000808BD000808BD000808BD000808BD00C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D4003535350035353500353535003535350035353500353535003535
      350035353500353535003535350035353500C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0
      D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400C8D0D400}
    NumGlyphs = 2
    OnClick = StopBtnClick
  end
  object Label3: TLabel
    Left = 16
    Top = 384
    Width = 36
    Height = 12
    Anchors = [akLeft, akBottom]
    Caption = 'IP'#22320#22336
  end
  object Label4: TLabel
    Left = 352
    Top = 24
    Width = 48
    Height = 12
    Caption = #36830#25509#36229#26102
  end
  object BeginIPEdit: TEdit
    Left = 64
    Top = 19
    Width = 121
    Height = 23
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    Text = '202.115.128.33'
  end
  object EndIPEdit: TEdit
    Left = 216
    Top = 19
    Width = 121
    Height = 23
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    Text = '202.115.128.34'
  end
  object Panel1: TPanel
    Left = 16
    Top = 56
    Width = 511
    Height = 311
    Anchors = [akLeft, akTop, akRight, akBottom]
    BevelOuter = bvNone
    TabOrder = 2
    object Splitter1: TSplitter
      Left = 321
      Top = 0
      Height = 311
    end
    object ResultTreeView: TTreeView
      Left = 324
      Top = 0
      Width = 187
      Height = 311
      Align = alClient
      Images = ResultImageList
      Indent = 19
      TabOrder = 0
    end
    object PortListBox: TCheckListBox
      Left = 0
      Top = 0
      Width = 321
      Height = 311
      Align = alLeft
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      ItemHeight = 14
      Items.Strings = (
        '1->TCP Port Service Multiplexer '
        '2->Management Utility '
        '3->Compression Process '
        '5->Remote Job Entry '
        '7->Echo '
        '9->Discard '
        '11->Active Users '
        '13->Daytime '
        '17->Quote of the Day '
        '18->Message Send Protocol '
        '19->Character Generator '
        '20->File Transfer [Default Data] '
        '21->File Transfer Protocol [Control]->->ftp://%a:%p/->\r\n'
        '22->SSH Remote Login Protocol '
        '23->Telnet->telnet.exe->%a %p->\r\n'
        '24->any private mail system '
        '25->Simple Mail Transfer '
        '27->NSW User System FE '
        '29->MSG ICP '
        '31->MSG Authentication '
        '33->Display Support Protocol '
        '35->any private printer server '
        '37->Time '
        '38->Route Access Protocol '
        '39->Resource Location Protocol '
        '41->Graphics '
        '42->WINS Host Name Server '
        '43->Who Is '
        '44->MPM FLAGS Protocol '
        '45->Message Processing Module [recv] '
        '46->MPM [default send] '
        '47->NI FTP '
        '48->Digital Audit Daemon '
        '49->Login Host Protocol (TACACS) '
        '50->Remote Mail Checking Protocol '
        '51->IMP Logical Address Maintenance '
        '52->XNS Time Protocol '
        '53->Domain Name Server '
        '54->XNS Clearinghouse '
        '55->ISI Graphics Language '
        '56->XNS Authentication '
        '57->any private terminal access '
        '58->XNS Mail '
        '59->any private file service '
        '60->Unassigned '
        '61->NI MAIL '
        '62->ACA Services '
        '63->whois++ '
        '64->Communications Integrator (CI) '
        '65->TACACS-Database Service '
        '66->Oracle SQL*NET '
        '67->Bootstrap Protocol Server '
        '68->Bootstrap Protocol Client '
        '69->Trivial File Transfer '
        '70->Gopher '
        '71->Remote Job Service '
        '72->Remote Job Service '
        '73->Remote Job Service '
        '74->Remote Job Service '
        '75->any private dial out service '
        '76->Distributed External Object Store '
        '77->any private RJE service '
        '78->vettcp '