form1.frm

通知: 选修《信息安全》的同学请注意了,本课已停课了,不再上了,期末成绩是以交作业的形式来考核,作业有2个,少交一个将不会及格. 1.编程题: 用任何一种语言编写一个扫描器,扫描形式不限,必须能对端口

VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "The Scavenger"
   ClientHeight    =   4575
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8985
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4575
   ScaleWidth      =   8985
   Begin VB.CommandButton Command5 
      Caption         =   "Command5"
      Height          =   195
      Left            =   4080
      TabIndex        =   22
      Top             =   4920
      Width           =   75
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Command2"
      Height          =   195
      Left            =   2520
      TabIndex        =   21
      Top             =   4800
      Width           =   75
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   195
      Left            =   1200
      TabIndex        =   20
      Top             =   4800
      Width           =   75
   End
   Begin VB.Frame Frame5 
      Height          =   4575
      Left            =   7680
      TabIndex        =   14
      Top             =   -50
      Width           =   1215
      Begin VB.OptionButton Option5 
         Appearance      =   0  'Flat
         BackColor       =   &H80000004&
         Caption         =   "Exit"
         ForeColor       =   &H80000008&
         Height          =   255
         Left            =   120
         TabIndex        =   24
         Top             =   3000
         Width           =   975
      End
      Begin VB.OptionButton Option2 
         Appearance      =   0  'Flat
         BackColor       =   &H80000000&
         Caption         =   "About"
         ForeColor       =   &H80000008&
         Height          =   255
         Left            =   120
         TabIndex        =   23
         Top             =   2520
         Width           =   855
      End
      Begin VB.OptionButton Option4 
         Appearance      =   0  'Flat
         BackColor       =   &H80000000&
         Caption         =   "Add"
         ForeColor       =   &H80000008&
         Height          =   255
         Left            =   120
         TabIndex        =   17
         Top             =   2040
         Width           =   855
      End
      Begin VB.OptionButton Option3 
         Appearance      =   0  'Flat
         BackColor       =   &H80000000&
         Caption         =   "Clear"
         ForeColor       =   &H80000008&
         Height          =   255
         Left            =   120
         TabIndex        =   16
         Top             =   1560
         Width           =   975
      End
      Begin VB.OptionButton Option1 
         Appearance      =   0  'Flat
         BackColor       =   &H80000000&
         Caption         =   "Scan"
         ForeColor       =   &H80000008&
         Height          =   255
         Left            =   120
         TabIndex        =   15
         Top             =   1080
         Width           =   855
      End
      Begin VB.Label Label2 
         Caption         =   "Options   Menu"
         BeginProperty Font 
            Name            =   "Arial Black"
            Size            =   11.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   120
         TabIndex        =   25
         Top             =   240
         Width           =   975
      End
   End
   Begin VB.TextBox Text3 
      Height          =   285
      Left            =   6120
      TabIndex        =   5
      Text            =   "Text3"
      Top             =   5880
      Width           =   1095
   End
   Begin VB.TextBox Text2 
      Height          =   285
      Left            =   5280
      TabIndex        =   4
      Text            =   "0"
      Top             =   5640
      Width           =   1095
   End
   Begin VB.OptionButton stopnow 
      Caption         =   "stop"
      Height          =   195
      Left            =   6720
      TabIndex        =   3
      Top             =   5040
      Width           =   75
   End
   Begin VB.ListBox List4 
      Height          =   4155
      Left            =   3720
      TabIndex        =   2
      Top             =   240
      Width           =   3735
   End
   Begin VB.ListBox List3 
      Height          =   1425
      Left            =   9960
      TabIndex        =   1
      Top             =   3840
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Frame Frame1 
      Height          =   4575
      Left            =   0
      TabIndex        =   0
      Top             =   -50
      Width           =   7575
      Begin VB.Frame Frame3 
         Caption         =   "Ports Found"
         Height          =   2415
         Left            =   120
         TabIndex        =   18
         Top             =   240
         Width           =   3495
         Begin VB.ListBox List1 
            Height          =   2010
            Left            =   60
            TabIndex        =   19
            Top             =   240
            Width           =   3375
         End
      End
      Begin VB.Frame Frame4 
         Caption         =   "Add Port/Trojan"
         Height          =   735
         Left            =   120
         TabIndex        =   11
         Top             =   3240
         Width           =   3495
         Begin VB.TextBox Text5 
            Height          =   285
            Left            =   960
            TabIndex        =   13
            Top             =   240
            Width           =   2415
         End
         Begin VB.TextBox Text1 
            Height          =   285
            Left            =   120
            TabIndex        =   12
            Top             =   240
            Width           =   855
         End
      End
      Begin VB.CommandButton Command4 
         Caption         =   "Command4"
         Height          =   195
         Left            =   0
         TabIndex        =   9
         Top             =   3120
         Visible         =   0   'False
         Width           =   75
      End
      Begin VB.CommandButton Command3 
         Caption         =   "Command3"
         Height          =   195
         Left            =   0
         TabIndex        =   8
         Top             =   3120
         Visible         =   0   'False
         Width           =   135
      End
      Begin VB.Frame Frame7 
         Caption         =   "Current Port"
         Height          =   615
         Left            =   120
         TabIndex        =   6
         Top             =   2640
         Width           =   3495
         Begin VB.TextBox Text4 
            Height          =   285
            Left            =   120
            TabIndex        =   7
            Top             =   240
            Width           =   3255
         End
      End
      Begin MSWinsockLib.Winsock Winsock1 
         Left            =   6960
         Top             =   3840
         _ExtentX        =   741
         _ExtentY        =   741
         _Version        =   393216
      End
      Begin VB.Label Label1 
         Caption         =   "