testsuite.frm

全面网络扫描器VB源代码 很实用

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form TestSuite 
   BackColor       =   &H00000000&
   Caption         =   "MD5 Password Cracker"
   ClientHeight    =   7170
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8565
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   7170
   ScaleWidth      =   8565
   StartUpPosition =   3  '窗口缺省
   Begin VB.ListBox List1 
      Height          =   3660
      Left            =   2280
      TabIndex        =   12
      Top             =   3000
      Width           =   5895
   End
   Begin VB.TextBox txtpasstext 
      Enabled         =   0   'False
      Height          =   285
      Left            =   2280
      TabIndex        =   11
      Text            =   "1234"
      Top             =   960
      Width           =   4455
   End
   Begin VB.TextBox md5crack 
      Height          =   285
      Left            =   2280
      TabIndex        =   8
      Top             =   1440
      Width           =   4455
   End
   Begin VB.CommandButton cmdfile 
      Caption         =   "Browse..."
      Height          =   375
      Left            =   7080
      TabIndex        =   7
      Top             =   2400
      Width           =   1095
   End
   Begin VB.OptionButton op2 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Text"
      Height          =   255
      Left            =   3960
      TabIndex        =   6
      Top             =   120
      Width           =   975
   End
   Begin VB.OptionButton op1 
      BackColor       =   &H00FFFFFF&
      Caption         =   "File"
      Height          =   255
      Left            =   2280
      TabIndex        =   5
      Top             =   120
      Value           =   -1  'True
      Width           =   975
   End
   Begin VB.TextBox txtpassfile 
      Height          =   285
      Left            =   2280
      Locked          =   -1  'True
      TabIndex        =   3
      Text            =   "PassFile.txt"
      Top             =   2400
      Width           =   4455
   End
   Begin MSComDlg.CommonDialog cd1 
      Left            =   360
      Top             =   3840
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.TextBox txtmd5 
      Height          =   285
      Left            =   2280
      TabIndex        =   1
      Top             =   480
      Width           =   4455
   End
   Begin VB.CommandButton btnRunTest 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Crack Md5"
      Height          =   375
      Left            =   480
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   3000
      Width           =   1575
   End
   Begin VB.Label lblstat 
      BackColor       =   &H80000003&
      Enabled         =   0   'False
      Height          =   255
      Left            =   2280
      TabIndex        =   13
      Top             =   1920
      Width           =   4455
   End
   Begin VB.Label Label4 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Password Text"
      Height          =   255
      Left            =   480
      TabIndex        =   10
      Top             =   960
      Width           =   1575
   End
   Begin VB.Label Label3 
      BackColor       =   &H00FFFFFF&
      Caption         =   "MD5 Cracked"
      Height          =   255
      Left            =   480
      TabIndex        =   9
      Top             =   1440
      Width           =   1575
   End
   Begin VB.Label Label2 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Passwords Address"
      Height          =   255
      Left            =   480
      TabIndex        =   4
      Top             =   2400
      Width           =   1575
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FFFFFF&
      Caption         =   "MD5 String"
      Height          =   255
      Left            =   480
      TabIndex        =   2
      Top             =   480
      Width           =   1575
   End
End
Attribute VB_Name = "TestSuite"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' by nima bagheri form  [e-mail]
'TEL [phone]


Dim md5Test As MD5


Private Sub btnRunTest_Click()
    If op1.value = True Then
    
    
    
    
    
    
    If txtpassfile.Text = "" Then Exit Sub
    Dim d As String
   Open txtpassfile.Text For Input As #1
      
      
     While EOF(1) = False
          
          Input #1, d
          If d <> "" Then List1.AddItem d
         
     Wend
     
   Close #1
  
    DoEvents
    
    For I = 0 To List1.ListCount - 1
             
          If txtmd5.Text = LCase(md5Test.DigestStrToHexStr(List1.List(I))) Then md5crack.Text = List1.List(I): MsgBox "Finish Password Cracking !  " + vbCrLf + CStr(List1.List(I)), vbInformation: Exit For
    
    Next I
            
               Else
     ' for text
     
           
          If txtpasstext.Text <> "" Then
             
            If txtmd5.Text = LCase(md5Test.DigestStrToHexStr(txtpasstext.Text)) Then md5crack.Text = txtpasstext.Text
               
          End If
    
    
    
    
    
    End If
    
 
    
    
    
    
End Sub


Private Sub cmdfile_Click()
    'for file password
    cd1.ShowOpen
    
  If cd1.FileName = "" Then Exit Sub
      
      'pass file addr
      txtpassfile.Text = cd1.FileName
       
End Sub

Private Sub Form_Load()
    ' Instantiate our class
    Set md5Test = New MD5
End Sub

Private Sub op1_Click()
   If op2.value = False Then txtpasstext.Enabled = Not (txtpasstext.Enabled)
End Sub

Private Sub op2_Click()
   If op2.value = True Then txtpasstext.Enabled = Not (txtpasstext.Enabled)
End Sub