📄 form1.frm
字号:
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form Form1
ClientHeight = 3465
ClientLeft = 60
ClientTop = 345
ClientWidth = 3990
LinkTopic = "Form1"
ScaleHeight = 3465
ScaleWidth = 3990
StartUpPosition = 3 'Windows Default
Begin VB.TextBox Text3
Height = 285
Left = 4560
TabIndex = 18
Text = "Text3"
Top = 120
Width = 1095
End
Begin VB.TextBox Text2
Height = 285
Left = 4080
TabIndex = 17
Text = "0"
Top = 2880
Width = 1095
End
Begin VB.OptionButton stopnow
Caption = "stop"
Height = 375
Left = 4440
TabIndex = 14
Top = 480
Width = 735
End
Begin VB.ListBox List4
Height = 675
Left = 1320
TabIndex = 13
Top = 3720
Width = 2295
End
Begin VB.ListBox List3
Height = 675
Left = 120
TabIndex = 12
Top = 3720
Width = 1095
End
Begin VB.Frame Frame1
Height = 3495
Left = 0
TabIndex = 0
Top = -50
Width = 3975
Begin VB.Frame Frame7
Caption = "Current Port"
Height = 615
Left = 120
TabIndex = 19
Top = 2760
Width = 1815
Begin VB.TextBox Text4
Height = 285
Left = 120
TabIndex = 20
Top = 240
Width = 1575
End
End
Begin MSWinsockLib.Winsock Winsock1
Left = 3480
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.Frame Frame4
Caption = "Remote Scan"
Height = 3135
Left = 2040
TabIndex = 6
Top = 240
Width = 1815
Begin VB.Frame Frame6
Caption = "Timeout Int. (0)"
Height = 375
Left = 120
TabIndex = 15
Top = 2640
Width = 1575
Begin VB.HScrollBar HScroll1
Height = 135
Left = 120
Max = 20
TabIndex = 16
Top = 200
Width = 1335
End
End
Begin VB.CommandButton Command4
Caption = "Stop"
Height = 255
Left = 120
TabIndex = 10
Top = 2280
Width = 1575
End
Begin VB.CommandButton Command3
Caption = "Scan"
Height = 255
Left = 120
TabIndex = 9
Top = 1920
Width = 1575
End
Begin VB.Frame Frame5
Caption = "Ports Found"
Height = 1215
Left = 120
TabIndex = 8
Top = 600
Width = 1575
Begin VB.ListBox List2
Height = 870
Left = 60
TabIndex = 11
Top = 240
Width = 1455
End
End
Begin VB.TextBox Text1
Height = 285
Left = 120
TabIndex = 7
Text = "Text1"
Top = 240
Width = 1575
End
End
Begin VB.Frame Frame2
Caption = "Local Scan"
Height = 2415
Left = 120
TabIndex = 1
Top = 240
Width = 1815
Begin VB.CommandButton Command2
Caption = "Stop"
Height = 255
Left = 120
TabIndex = 5
Top = 2040
Width = 1575
End
Begin VB.CommandButton Command1
Caption = "Scan"
Height = 255
Left = 120
TabIndex = 4
Top = 1680
Width = 1575
End
Begin VB.Frame Frame3
Caption = "Ports Found"
Height = 1215
Left = 120
TabIndex = 2
Top = 360
Width = 1575
Begin VB.ListBox List1
Height = 870
Left = 60
TabIndex = 3
Top = 240
Width = 1455
End
End
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
On Error GoTo Error
Command1.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
For i = 0 To List3.ListCount - 1
If stopnow.Value = True Then
Command1.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Exit Sub
End If
Text4 = List3.List(i)
Winsock1.Close
Winsock1.LocalPort = List3.List(i)
Winsock1.Listen
Next i
Error:
If Err.Number = 10048 Then
List1.AddItem List4.List(i)
Resume Next
End If
Command1.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
stopnow = False
End Sub
Private Sub Command2_Click()
stopnow.Value = True
End Sub
Private Sub Command3_Click()
On Error Resume Next
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
For i = 0 To List3.ListCount - 1
Text3 = i
Text4 = List3.List(i)
Winsock1.RemotePort = List3.List(i)
Winsock1.RemoteHost = Text1
Winsock1.Connect
Timeout Text2
If stopnow.Value = True Then
Text3 = 0
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
stopnow.Value = False
Exit Sub
End If
Next i
Text3 = 0
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
End Sub
Private Sub Command4_Click()
stopnow.Value = True
End Sub
Private Sub Form_Load()
List4.AddItem "21 - Fore, Invisible FTP, FTP, WebEx, WinCrash"
List4.AddItem "23 - Tiny Telnet Server, Telnet, Wingate"
List4.AddItem "25 - Antigen, Email Password Sender, Haebu Coceda, Shtrilitz Stealth, Terminator"
List4.AddItem "31 - Hackers Paradise"
List4.AddItem "80 - Executor"
List4.AddItem "456 - Hackers Paradise"
List4.AddItem "555 - Ini-Killer, Phase Zero, Stealth Spy"
List4.AddItem "666 - Satanz Backdoor"
List4.AddItem "1001 - Silencer, WebEx"
List4.AddItem "1011 - Doly Trojan"
List4.AddItem "1170 - Psyber Stream Server, Voice"
List4.AddItem "1234 - Ultors Trojan"
List4.AddItem "1243 - SubSeven Default "
List4.AddItem "1245 - VooDoo Doll"
List4.AddItem "1492 - FTP99CMP"
List4.AddItem "1600 - Shivka-Burka"
List4.AddItem "1807 - SpySender"
List4.AddItem "1981 - Shockrave"
List4.AddItem "1999 - BackDoor"
List4.AddItem "2001 - Trojan Cow"
List4.AddItem "2023 - Ripper"
List4.AddItem "2115 - Bugs"
List4.AddItem "2140 - Deep Throat, The Invasor"
List4.AddItem "2801 - Phineas Phucker"
List4.AddItem "3024 - WinCrash"
List4.AddItem "3129 - Masters Paradise"
List4.AddItem "3150 - Deep Throat, The Invasor"
List4.AddItem "3700 - al of Doom"
List4.AddItem "4092 - WinCrash"
List4.AddItem "4590 - ICQTrojan"
List4.AddItem "5000 - Sockets de Troie"
List4.AddItem "5001 - Sockets de Troie"
List4.AddItem "5321 - Firehotcker"
List4.AddItem "5400 - Blade Runner"
List4.AddItem "5401 - Blade Runner"
List4.AddItem "5402 - Blade Runner"
List4.AddItem "5569 - Robo-Hack"
List4.AddItem "5742 - WinCrash"
List4.AddItem "6670 - DeepThroat"
List4.AddItem "6771 - DeepThroat"
List4.AddItem "6969 - GateCrasher, Priority"
List4.AddItem "7000 - Remote Grab"
List4.AddItem "7300 - NetMonitor"
List4.AddItem "7301 - NetMonitor"
List4.AddItem "7306 - NetMonitor"
List4.AddItem "7307 - NetMonitor"
List4.AddItem "7308 - NetMonitor"
List4.AddItem "7789 - ICKiller"
List4.AddItem "9872 - al of Doom"
List4.AddItem "9873 - al of Doom"
List4.AddItem "9874 - al of Doom"
List4.AddItem "9875 - al of Doom"
List4.AddItem "9989 - iNi-Killer"
List4.AddItem "10067 - al of Doom"
List4.AddItem "10167 - al of Doom"
List4.AddItem "11000 - Senna Spy"
List4.AddItem "11223 - Progenic trojan"
List4.AddItem "12223 - Hack⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -