md5数据库建立器.frm

这个源码所生成的软件可以批量生成数字与其对应的MD5码

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "MD5数据库建立器-K"
   ClientHeight    =   1830
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5280
   LinkTopic       =   "Form1"
   ScaleHeight     =   1830
   ScaleWidth      =   5280
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer3 
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   4080
      Top             =   2160
   End
   Begin VB.CommandButton Command2 
      Caption         =   "停止"
      Height          =   615
      Left            =   4440
      TabIndex        =   7
      Top             =   240
      Width           =   615
   End
   Begin VB.Timer Timer2 
      Enabled         =   0   'False
      Interval        =   2
      Left            =   3600
      Top             =   2160
   End
   Begin VB.TextBox Text3 
      Height          =   375
      Left            =   360
      TabIndex        =   3
      Top             =   1200
      Width           =   3015
   End
   Begin VB.TextBox Text2 
      Height          =   375
      Left            =   2040
      TabIndex        =   2
      Top             =   360
      Width           =   1335
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   10
      Left            =   3120
      Top             =   2160
   End
   Begin VB.CommandButton Command1 
      Caption         =   "开始建立数据库"
      Height          =   615
      Left            =   3600
      TabIndex        =   1
      Top             =   240
      Width           =   735
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   360
      TabIndex        =   0
      Top             =   360
      Width           =   1335
   End
   Begin VB.Frame Frame1 
      Caption         =   "起始数字"
      Height          =   735
      Left            =   240
      TabIndex        =   4
      Top             =   120
      Width           =   1575
   End
   Begin VB.Frame Frame2 
      Caption         =   "终止数字"
      Height          =   735
      Left            =   1920
      TabIndex        =   5
      Top             =   120
      Width           =   1575
   End
   Begin VB.Frame Frame3 
      Caption         =   "MD5码"
      Height          =   735
      Left            =   240
      TabIndex        =   6
      Top             =   960
      Width           =   3255
   End
   Begin VB.Frame Frame4 
      Caption         =   "Time"
      Height          =   735
      Left            =   3600
      TabIndex        =   8
      Top             =   960
      Width           =   1455
      Begin VB.Label Label5 
         Caption         =   "0"
         Enabled         =   0   'False
         Height          =   255
         Left            =   960
         TabIndex        =   13
         Top             =   360
         Width           =   375
      End
      Begin VB.Label Label4 
         Caption         =   ":"
         Height          =   255
         Left            =   840
         TabIndex        =   12
         Top             =   360
         Width           =   255
      End
      Begin VB.Label Label3 
         Caption         =   "0"
         Height          =   255
         Left            =   480
         TabIndex        =   11
         Top             =   360
         Width           =   375
      End
      Begin VB.Label Label2 
         Caption         =   ":"
         Height          =   255
         Left            =   360
         TabIndex        =   10
         Top             =   360
         Width           =   375
      End
      Begin VB.Label Label1 
         Caption         =   "0"
         Height          =   255
         Left            =   120
         TabIndex        =   9
         Top             =   360
         Width           =   375
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim c As Integer


Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True

End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
End Sub



Private Sub Text1_Change()
c = Val(Text1.Text)
End Sub

Private Sub Timer1_Timer()
Dim c1 As New Class1    '这段代码是声明变量
Dim a As Integer, b As Integer '一样
Open App.Path & "/MD5数据库.txt" For Append As #1  '这个是在工具在的目录生成密码TXT文件
Print #1, Str(c) & "=" & c1.DigestStrToHexStr(Trim(Str(c))); "" '生成密码TXT文件的内容
Close #1
Text3.Text = c1.DigestStrToHexStr(Trim(Str(c)))
c = c + 1
End Sub

Private Sub Timer2_Timer()
If c > Val(Text2.Text) Then Timer1.Enabled = False
If c > Val(Text2.Text) Then Timer2.Enabled = False
If c > Val(Text2.Text) Then Timer3.Enabled = False
End Sub

Private Sub Timer3_Timer()
Label5.Caption = Str(Val(Label5.Caption) + 1)
If Val(Label5.Caption) = 60 Then Label3.Caption = Str(Val(Label3.Caption) + 1)
If Val(Label5.Caption) = 60 Then Label5.Caption = 0
If Val(Label3.Caption) = 60 Then Label1.Caption = Str(Val(Label1.Caption) + 1)
If Val(Label3.Caption) = 60 Then Label3.Caption = 0

End Sub