md5加密.frm

MD5算法的源代码 MD5算法的源代码

VERSION 5.00 
Begin VB.Form Md5加密 
Caption = "Form1" 
ClientHeight = 3195 
ClientLeft = 60 
ClientTop = 345 
ClientWidth = 4680 
LinkTopic = "Form1" 
ScaleHeight = 3195 
ScaleWidth = 4680 
StartUpPosition = 3 '窗口缺省 
Begin VB.CommandButton Command1 
Caption = "Command1" 
Height = 495 
Left = 840 
TabIndex = 1 
Top = 1440 
Width = 1575 
End 
Begin VB.TextBox Text1 
Height = 375 
Left = 360 
TabIndex = 0 
Top = 240 
Width = 3735 
End 
Begin VB.Label Label1 
Caption = "Label1" 
Height = 495 
Left = 3000 
TabIndex = 2 
Top = 1200 
Width = 1095 
End 
End 
Attribute VB_Name = "Md5加密" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 
Dim MD5Obj As Md5 

Private Sub Command1_Click() 
Debug.Print Rnd(-2) 
Label1.Caption = Rnd(-1) 
End Sub 

Private Sub Form_Load() 
Set MD5Obj = New Md5 'class 为你存的类模快名 
Text1.Text = MD5Obj.Md5_String_Calc("myh") 
Dim md5d As String 
Dim LastString As String 
Dim i As Integer 
LastString = "" 
md5d = MD5Obj.Md5_String_Calc("myh") 

For i = 31 To 0 Step -2 
LastString = LastString + Mid(md5d, i, 2) 
Next i 
Text1.Text = LastString 
End Sub