📄 frmwebatk.frm
字号:
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmwebatk
BackColor = &H00000000&
Caption = "WEB ATTACKER"
ClientHeight = 8190
ClientLeft = 60
ClientTop = 750
ClientWidth = 11880
ClipControls = 0 'False
ControlBox = 0 'False
Icon = "frmwebatk.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 8190
ScaleWidth = 11880
WindowState = 2 'Maximized
Begin MSWinsockLib.Winsock Winsock1
Left = 0
Top = 3000
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.OptionButton Option1
BackColor = &H80000003&
Caption = "Single Check"
Height = 375
Index = 0
Left = 10440
TabIndex = 14
Top = 600
Value = -1 'True
Width = 1335
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 100
Left = 0
Top = 3960
End
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 255
Left = 120
TabIndex = 13
Top = 7440
Width = 11655
_ExtentX = 20558
_ExtentY = 450
_Version = 393216
Appearance = 1
End
Begin VB.TextBox txtplugshow
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 178
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000003&
Height = 5895
Left = 5040
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 12
Top = 1080
Width = 6735
End
Begin VB.ComboBox Combo1
Height = 315
Left = 1320
TabIndex = 11
Text = "127.0.0.1"
Top = 120
Width = 2775
End
Begin MSWinsockLib.Winsock wsckClientudp
Index = 0
Left = 0
Top = 3480
_ExtentX = 741
_ExtentY = 741
_Version = 393216
Protocol = 1
End
Begin VB.OptionButton Option1
BackColor = &H80000003&
Caption = "All Deselected"
Height = 375
Index = 2
Left = 9000
TabIndex = 9
Top = 600
Width = 1335
End
Begin VB.OptionButton Option1
BackColor = &H80000003&
Caption = "All Selected"
Height = 375
Index = 1
Left = 7680
TabIndex = 8
Top = 600
Width = 1215
End
Begin MSComctlLib.ListView lstplug
Height = 6255
Left = 120
TabIndex = 7
Top = 720
Width = 4815
_ExtentX = 8493
_ExtentY = 11033
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
Checkboxes = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 1
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "Ports"
Object.Width = 8819
EndProperty
End
Begin VB.CommandButton cmdloadports
BackColor = &H80000009&
Caption = "Load"
Height = 255
Left = 6600
Style = 1 'Graphical
TabIndex = 6
Top = 720
Width = 975
End
Begin MSComDlg.CommonDialog cd1
Left = -120
Top = 1560
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.VScrollBar VScroll1
Height = 255
LargeChange = 50
Left = 10080
Max = 30000
Min = 1
SmallChange = 50
TabIndex = 4
Top = 120
Value = 500
Width = 255
End
Begin VB.TextBox txtdelay
DataField = "number"
BeginProperty DataFormat
Type = 1
Format = "#,##0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1065
SubFormatType = 1
EndProperty
Height = 285
Left = 8760
Locked = -1 'True
TabIndex = 3
Text = "500"
Top = 120
Width = 1095
End
Begin VB.CommandButton Command1
BackColor = &H80000013&
Caption = "STOP SCAN"
Height = 375
Left = 6600
Style = 1 'Graphical
TabIndex = 1
Top = 120
Width = 1335
End
Begin VB.CommandButton cmdSend
BackColor = &H80000001&
Caption = "START SCAN"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4800
MaskColor = &H00FFFFFF&
Style = 1 'Graphical
TabIndex = 0
Top = 120
Width = 1695
End
Begin VB.Label lblVulnerabilityState
BackColor = &H80000003&
Height = 255
Left = 120
TabIndex = 15
Top = 7080
Width = 11655
End
Begin VB.Label Label1
Caption = "Target Host"
Height = 255
Left = 120
TabIndex = 10
Top = 120
Width = 975
End
Begin VB.Label lblmain
BackColor = &H80000009&
Caption = "Goto Main --->"
Height = 255
Left = 10560
TabIndex = 5
Top = 120
Width = 1215
End
Begin VB.Label Label4
BackColor = &H80000003&
Caption = "Delay"
Height = 255
Left = 8160
TabIndex = 2
Top = 120
Width = 495
End
Begin VB.Menu flemenu
Caption = "&File"
Index = 1
Begin VB.Menu mnunewscan
Caption = "New Scan"
Shortcut = ^N
End
Begin VB.Menu mnuResponse
Caption = "Response"
Shortcut = ^R
End
Begin VB.Menu savemnu
Caption = "&Save Scan"
Shortcut = ^S
End
End
End
Attribute VB_Name = "frmwebatk"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' by nima bagheri form THECRACKERS_GROUP@yahoo.ca
'TEL 098-0151-2210510
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim c As Long
Dim I As Long
Dim sendstop As Boolean
Dim LastResponse As String
Const application_sleep_time_default = 1000
''''''''''''''''''''''''''
Private Const MAX_PATH = 260
Private Const MAXDWORD = &HFFFF
Private Const INVALID_HANDLE_VALUE = -1
Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_SYSTEM = &H4
Private Const FILE_ATTRIBUTE_TEMPORARY = &H100
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Private Sub Combo1_KeyPress(KeyAscii As Integer)
'If KeyAscii = 13 Then Combo1.AddItem Combo1.Text
End Sub
Private Sub Command1_Click()
sendstop = True
cmdSend.Enabled = True
ProgressBar1.value = 0
End Sub
Private Sub Form_Activate()
If Me.WindowState <> 2 Then Me.WindowState = 2
End Sub
Private Sub Form_Load()
Me.Hide
DoEvents
' cd1.ShowOpen
'If cd1.FileName = "" Then MsgBox "Please Enter FileName ", vbInformation, "Tip!"
Call loadp(App.path + "\plugins\", False)
End Sub
Private Sub lblmain_Click()
Form3.Show
Me.Hide
End Sub
Private Sub lstplug_Click()
txtplugshow.Text = ParseATKPlugin(readplug(lstplug.SelectedItem.Key))
'txtplugshow.Text =
' txtplugshow.Text = Replace(GenerateTXTReportPluginEntry(False, vbNullString), " ", vbNullString, , , vbBinaryCompare)
'
''Call frmReportConfiguration.RefreshReportStructure
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -