form2.frm

zip密码破解程序.可以用无穷发也可以用字典

      End
      Begin VB.Label Label9 
         Caption         =   "Number and Alphabet Combinations"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   -74880
         TabIndex        =   27
         Top             =   480
         Width           =   3255
      End
      Begin VB.Label Label12 
         Caption         =   "Select Digits:-"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   -74880
         TabIndex        =   21
         Top             =   1200
         Width           =   1335
      End
      Begin VB.Label Label11 
         Caption         =   "Recammended"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   255
         Left            =   -73200
         TabIndex        =   19
         Top             =   840
         Width           =   1215
      End
      Begin VB.Label Label8 
         Caption         =   "How many Numbers are recuired?"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   -74880
         TabIndex        =   18
         Top             =   480
         Width           =   3135
      End
      Begin VB.Label Label7 
         Caption         =   "Input 4"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   -74400
         TabIndex        =   17
         Top             =   2040
         Width           =   855
      End
      Begin VB.Label Label6 
         Caption         =   "Input 3"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   -74400
         TabIndex        =   16
         Top             =   1560
         Width           =   855
      End
      Begin VB.Label Label5 
         Caption         =   "Input 2"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   -74400
         TabIndex        =   15
         Top             =   1080
         Width           =   855
      End
      Begin VB.Label Label4 
         Caption         =   "Input 1"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   -74400
         TabIndex        =   14
         Top             =   600
         Width           =   855
      End
      Begin VB.Label Label3 
         Caption         =   "Set Limits:-"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   360
         TabIndex        =   8
         Top             =   600
         Width           =   1335
      End
      Begin VB.Label Label2 
         Caption         =   "To:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   360
         TabIndex        =   7
         Top             =   1680
         Width           =   495
      End
      Begin VB.Label Label1 
         Caption         =   "Start from:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   360
         TabIndex        =   6
         Top             =   1200
         Width           =   975
      End
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'I wanted to write a password recovery but i ended up with this
'file recovery program.What i mean by that is I can only
'open ,decrypt ,unprotect a file or program But i can,t get the read password.
Private Sub Command1_Click()
MousePointer = 11
Dim x As Integer
x = 0
If List1.ListCount = 0 Then
MousePointer = 0
MsgBox "There are no numbers in The list"
Exit Sub
Else
Do Until x = List1.ListCount
Form1.List1.AddItem Form2.List1.List(x)
x = x + 1
Loop
End If
x = 0
MousePointer = 0
Unload Me
End Sub

Private Sub Command2_Click()
'sequential numbers
Dim f, last As Variant
If f = Empty Then f = Text1.Text
Do Until f = Text2.Text
f = f + 1
If List1.ListCount >= 32000 Then
'I added four list boxes  to be able to have 100000 pass's at a time
'but I'm not going to use all of them because it will probally hang windows
'just tried it to see if i could
GoTo Next1
'Form2.MousePointer = 0
'MsgBox "This password hacker allows 32000 passwords at a time as it wasn't desiened to hack into pantagon"
End If
List1.AddItem f
Form2.MousePointer = 11
Loop
Next1:
Do Until f = Text2.Text
If List2.ListCount > 32000 Then GoTo Next2
List2.AddItem x
x = x + 1
Loop
Next2:
Do Until f = Text2.Text
If List3.ListCount > 32000 Then GoTo next3
List3.AddItem x
x = x + 1
Loop
next3:
Do Until f = Text2.Text
If List4.ListCount > 32000 Then GoTo next4
List4.AddItem x
x = x + 1
Loop
next4:
Do Until f = Text2.Text
If List5.ListCount > 32000 Then GoTo next5
List5.AddItem x
x = x + 1
Loop
next5:
Form2.MousePointer = 0
End Sub

Private Sub Command3_Click()
If List1.ListCount >= 32000 Then
Form2.MousePointer = 0
MsgBox "This password hacker allows 32000 passwords at a time as it wasn't desiened to hack into pantagon"
Exit Sub
End If
'if statement's used to avoid blank lines
If Text3.Text = "" Then
Else
List1.AddItem Text3.Text
End If
If Text4.Text = "" Then
Else
List1.AddItem Text4.Text
End If
If Text5.Text = "" Then
Else
List1.AddItem Text5.Text
End If
If Text6.Text = "" Then
Else
List1.AddItem Text6.Text
End If
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""

End Sub


Private Sub Command4_Click()
Static x As Integer
If x = Empty Then x = 0
   
    Dim ranNum As Variant
        Dim ranN As Integer
        Dim ran  As Integer
        Dim ran2 As Integer
'this means creat passwords untill it reaches the number in text8
Do Until x = Text8.Text
   Form2.MousePointer = 11
      Randomize
      If List1.ListCount >= 32000 Then
Form2.MousePointer = 0
MsgBox "This file Recovery tool allows 32000 passwords at a time as it wasn't desiened to hack into pantagon"
Exit Sub
End If
   'four digit numbers
   If Text9.Text = 1000 Then
   ranN = (10000 * Rnd) + 1
   List1.AddItem ranN
   x = x + 1
   End If
   'six digit numbers
   If Text9.Text = 100000 Then
   ranN = (1000 * Rnd) + 1
   ran = (1000 * Rnd) + 1
ranNum = ranN & ran
   List1.AddItem ranNum
   x = x + 1
   End If
    'Eight digit numbers
   If Text9.Text = 10000000 Then
   ranN = (1000 * Rnd) + 1
   ran = (1000 * Rnd) + 1
      ran2 = (100 * Rnd) + 1

ranNum = ranN & ran & ran2
   List1.AddItem ranNum
   x = x + 1
   End If
   Loop
   Form2.MousePointer = 0
   x = 0
End Sub

Private Sub Command5_Click()
Dim start, finish As Variant
If start = Empty Then start = Text10.Text
Do Until start = Text11.Text
start = start + 1
If List1.ListCount >= 32000 Then
Form2.MousePointer = 0
MsgBox "This password hacker allows 32000 passwords at a time as it wasn't desiened to hack into pantagon"
Exit Sub
End If
List1.AddItem Text7.Text & start & Text12.Text
Form2.MousePointer = 11
Loop
Form2.MousePointer = 0
End Sub

Private Sub Command6_Click()
List1.Clear
End Sub

Private Sub Option1_Click()
Text9.Text = 1000
End Sub
Private Sub Option2_Click()
Text9.Text = 100000
End Sub

Private Sub Option3_Click()
Text9.Text = 10000000
End Sub

Private Sub Text8_Change()
If Text8.Text = 1000 Then
Label11.Visible = True
Else
Label11.Visible = False
End If
End Sub