form1.frm

一个VB写的MD5穷举破解 没什么使用价值 大家可以互相研究

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "神器作坊MD5破密 - 闪虫作品"
   ClientHeight    =   1035
   ClientLeft      =   5100
   ClientTop       =   4740
   ClientWidth     =   5805
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1035
   ScaleWidth      =   5805
   Begin VB.CommandButton Command3 
      Caption         =   "停 止"
      Height          =   375
      Left            =   3540
      TabIndex        =   7
      Top             =   0
      Visible         =   0   'False
      Width           =   1035
   End
   Begin VB.CheckBox Check2 
      Caption         =   "大 写"
      Height          =   255
      Left            =   4800
      TabIndex        =   6
      Top             =   600
      Width           =   855
   End
   Begin VB.CheckBox Check1 
      Caption         =   "符 号"
      Height          =   255
      Left            =   3600
      TabIndex        =   5
      Top             =   600
      Width           =   975
   End
   Begin VB.Frame Frame1 
      Height          =   615
      Left            =   0
      TabIndex        =   3
      Top             =   360
      Width           =   3495
      Begin VB.Label Label1 
         Caption         =   "显示破密进度"
         Height          =   255
         Left            =   120
         TabIndex        =   4
         Top             =   240
         Width           =   3255
      End
   End
   Begin VB.CommandButton Command2 
      Caption         =   "最小化"
      Height          =   375
      Left            =   4680
      TabIndex        =   2
      Top             =   0
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "开 始"
      Height          =   375
      Left            =   3540
      TabIndex        =   1
      Top             =   0
      Width           =   1035
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   0
      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 max As Integer
Dim kai As Boolean
Option Explicit
Private Lt(64) As String

Private Sub Check1_Click()
max = 64
End Sub

Private Sub Check2_Click()
Dim i As Integer
If Check2.Value = 1 Then
For i = 0 To 25
    Lt(i) = Chr(i + 65)
Next i
Else
For i = 0 To 25
    Lt(i) = Chr(i + 91)
Next i
End If
End Sub

Private Sub Command1_Click()
kai = True
If Text1.Text = "" Then
Text1.Text = "没有输入值。"
ElseIf Len(Text1.Text) = 16 Then
Command1.Visible = False
Command3.Visible = True
        Dim i As Long
        Dim J As Long
        Dim k As Long
        Dim L As Long
        Dim M As Long
        Dim N As Long
        Dim O As Long
        Dim P As Long
        Dim Pass As String
        '1
         For i = 0 To max
                If kai = True Then
                  Pass = Lt(i)
                  Label1.Caption = Pass & " - " & MD5(Pass, 16)
                  Label1.Refresh
                  DoEvents
                  If Text1.Text = MD5(Pass, 16) Then
                  Text1.Text = "解密成功：" & Pass
                  Command1.Visible = True
                  Command3.Visible = False
                  Exit Sub
                  End If
                Else
                  Exit Sub
                End If
         Next i
         '2
         For i = 0 To max
         For J = 0 To max
                If kai = True Then
                  Pass = Lt(i) + Lt(J)
                  Label1.Caption = Pass & " - " & MD5(Pass, 16)
                  Label1.Refresh
                  DoEvents
                  If Text1.Text = MD5(Pass, 16) Then
                  Text1.Text = "解密成功：" & Pass
                  Command1.Visible = True
                  Command3.Visible = False
                  Exit Sub
                  End If
                Else
                  Exit Sub
                End If
         Next J
         Next i
         '3
         For i = 0 To max
         For J = 0 To max
         For k = 0 To max
                If kai = True Then
                  Pass = Lt(i) + Lt(J) + Lt(k)
                  Label1.Caption = Pass & " - " & MD5(Pass, 16)
                  Label1.Refresh
                  DoEvents
                  If Text1.Text = MD5(Pass, 16) Then
                  Text1.Text = "解密成功：" & Pass
                  Command1.Visible = True
                  Command3.Visible = False
                  Exit Sub
                  End If
                Else
                  Exit Sub
                End If
         Next k
         Next J
         Next i
         '4
         For i = 0 To max
         For J = 0 To max
         For k = 0 To max
         For L = 0 To max
                If kai = True Then
                  Pass = Lt(i) + Lt(J) + Lt(k) + Lt(L)
                  Label1.Caption = Pass & " - " & MD5(Pass, 16)
                  Label1.Refresh
                  DoEvents
                  If Text1.Text = MD5(Pass, 16) Then
                  Text1.Text = "解密成功：" & Pass
                  Command1.Visible = True
                  Command3.Visible = False
                  Exit Sub
                  End If
                Else
                  Exit Sub
                End If
         Next L
         Next k
         Next J
         Next i
         '5
         For i = 0 To max
         For J = 0 To max
         For k = 0 To max
         For L = 0 To max
         For M = 0 To max
                If kai = True Then
                  Pass = Lt(i) + Lt(J) + Lt(k) + Lt(L) + Lt(M)
                  Label1.Caption = Pass & " - " & MD5(Pass, 16)
                  Label1.Refresh
                  DoEvents
                  If Text1.Text = MD5(Pass, 16) Then
                  Text1.Text = "解密成功：" & Pass
                  Command1.Visible = True
                  Command3.Visible = False
                  Exit Sub
                  End If
                Else
                  Exit Sub
                End If
         Next M
         Next L
         Next k
         Next J
         Next i
         '6
         For i = 0 To max
         For J = 0 To max
         For k = 0 To max
         For L = 0 To max
         For M = 0 To max
         For N = 0 To max
                If kai = True Then
                  Pass = Lt(i) + Lt(J) + Lt(k) + Lt(L) + Lt(M) + Lt(N)
                  Label1.Caption = Pass & " - " & MD5(Pass, 16)
                  Label1.Refresh
                  DoEvents
                  If Text1.Text = MD5(Pass, 16) Then
                  Text1.Text = "解密成功：" & Pass
                  Command1.Visible = True
                  Command3.Visible = False
                  Exit Sub
                  End If
                Else
                  Exit Sub
                End If
         Next N
         Next M
         Next L
         Next k
         Next J
         Next i
         '7
         For i = 0 To max
         For J = 0 To max
         For k = 0 To max
         For L = 0 To max
         For M = 0 To max
         For N = 0 To max
         For O = 0 To max
                If kai = True Then
                  Pass = Lt(i) + Lt(J) + Lt(k) + Lt(L) + Lt(M) + Lt(N) + Lt(O)
                  Label1.Caption = Pass & " - " & MD5(Pass, 16)
                  Label1.Refresh
                  DoEvents
                  If Text1.Text = MD5(Pass, 16) Then
                  Text1.Text = "解密成功：" & Pass
                  Command1.Visible = True
                  Command3.Visible = False
                  Exit Sub
                  End If
                Else
                  Exit Sub
                End If
         Next O
         Next N
         Next M
         Next L
         Next k
         Next J
         Next i
         '8
         For i = 0 To max
         For J = 0 To max
         For k = 0 To max
         For L = 0 To max
         For M = 0 To max
         For N = 0 To max
         For O = 0 To max
         For P = 0 To max
                If kai = True Then
                  Pass = Lt(i) + Lt(J) + Lt(k) + Lt(L) + Lt(M) + Lt(N) + Lt(O) + Lt(P)
                  Label1.Caption = Pass & " - " & MD5(Pass, 16)
                  Label1.Refresh
                  DoEvents
                  If Text1.Text = MD5(Pass, 16) Then
                  Text1.Text = "解密成功：" & Pass
                  Command1.Visible = True
                  Command3.Visible = False
                  Exit Sub
                  End If
                Else
                  Exit Sub
                End If
         Next P
         Next O
         Next N
         Next M
         Next L
         Next k
         Next J
         Next i

ElseIf Len(Text1.Text) = 32 Then

Else
Text1.Text = MD5(Text1.Text, 16)
End If
End Sub

Private Sub Command2_Click()
With nfIconData
.hWnd = Me.hWnd
.uID = Me.Icon
.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
.uCallbackMessage = WM_MOUSEMOVE
.hIcon = Me.Icon.Handle
.szTip = App.Title + "(版本 " & App.Major & "." & App.Minor & "." & App.Revision & ")" & vbNullChar
.cbSize = Len(nfIconData)
End With
Call Shell_NotifyIcon(NIM_ADD, nfIconData)
Me.Hide
End Sub

Private Sub Command3_Click()
Command1.Visible = True
Command3.Visible = False
kai = False
End Sub

Private Sub Form_Load()
    Text1.Text = ""
    max = 35
       Dim i As Integer
        For i = 0 To 25
            Lt(i) = Chr(i + 91)
        Next i
        Lt(26) = "1":  Lt(27) = "2":     Lt(28) = "3":    Lt(29) = "4":      Lt(30) = "5"
        Lt(31) = "6":   Lt(32) = "7":    Lt(33) = "8": Lt(34) = "9": Lt(35) = "0"
        Lt(36) = "*": Lt(37) = "!":     Lt(38) = "@": Lt(39) = "?": Lt(40) = "#"
        Lt(41) = "$": Lt(42) = "%":     Lt(43) = "^": Lt(44) = "&": Lt(45) = "("
        Lt(46) = ")": Lt(47) = "<":     Lt(48) = ">": Lt(49) = ",": Lt(50) = "."
        Lt(51) = "?": Lt(52) = "/":     Lt(53) = "-": Lt(54) = "=": Lt(55) = "+"
        Lt(56) = "\": Lt(57) = "|":     Lt(58) = "[": Lt(59) = "]": Lt(60) = "{"
        Lt(61) = "}": Lt(62) = ":":     Lt(63) = ";": Lt(64) = "'"

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) '调用类
Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) '鼠标点击事件
Dim lMsg As Single
lMsg = x / Screen.TwipsPerPixelX
Select Case lMsg
Case WM_LBUTTONUP
ShowWindow Me.hWnd, SW_RESTORE
Me.Show
Me.SetFocus
End Select
End Sub