[­ì³Ð] MD5 ­pºâ¾¹

ivanyung

¦h¦~«e¼gªºµ{¦¡, ¤ñ¸û²­® .............

MD5.zip (7.96 KB)

¤U¸ü¦¸¼Æ: 13

2010-8-21 10:48

1. Public Class Form1
   
2. 
   
3.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
4.         OpenFileDialog1.FileName = ""
   
5. 
   
6.         If OpenFileDialog1.ShowDialog() = 1 Then
   
7.             Label1.Text = "Calculate MD5 sum in progress ..."
   
8.             TextBox1.Text = Module1.MD5CalcFile(OpenFileDialog1.FileName)
   
9. 
   
10.             If Len(Environment.CurrentDirectory) = 3 Then       'root directory
    
11.                 Label1.Text = "MD5: " & vbCrLf & Mid(OpenFileDialog1.FileName, Len(Environment.CurrentDirectory) + 1, _
    
12.                         Len(OpenFileDialog1.FileName) - Len(Environment.CurrentDirectory) - 0)
    
13.             Else
    
14.                 Label1.Text = "MD5: " & vbCrLf & Mid(OpenFileDialog1.FileName, Len(Environment.CurrentDirectory) + 2, _
    
15.                         Len(OpenFileDialog1.FileName) - Len(Environment.CurrentDirectory) - 1)
    
16.             End If
    
17.         End If
    
18. 
    
19.     End Sub
    
20. 
    
21.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    
22.         Label1.Text = "Filename"
    
23.         TextBox1.Text = ""
    
24.         Clipboard.Clear()
    
25.     End Sub
    
26. 
    
27.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    
28.         Clipboard.SetText(TextBox1.Text)
    
29.     End Sub
    
30. 
    
31.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    
32.         OpenFileDialog1.FileName = ""
    
33. 
    
34.         If OpenFileDialog1.ShowDialog() = 1 Then
    
35.             Label1.Text = "Calculate sha1sum sum in progress ..."
    
36.             TextBox1.Text = Module1.Sha1CalcFile(OpenFileDialog1.FileName)
    
37. 
    
38.             If Len(Environment.CurrentDirectory) = 3 Then       'root directory
    
39.                 Label1.Text = "sha1sum: " & vbCrLf & Mid(OpenFileDialog1.FileName, Len(Environment.CurrentDirectory) + 1, _
    
40.                         Len(OpenFileDialog1.FileName) - Len(Environment.CurrentDirectory) - 0)
    
41.             Else
    
42.                 Label1.Text = "sha1sum: " & vbCrLf & Mid(OpenFileDialog1.FileName, Len(Environment.CurrentDirectory) + 2, _
    
43.                         Len(OpenFileDialog1.FileName) - Len(Environment.CurrentDirectory) - 1)
    
44.             End If
    
45.         End If
    
46. 
    
47.     End Sub
    
48. End Class

½Æ»s¥N½X

ivanyung

¦^´_ 3# et5323


    ½Ð¦w¸Ë .net framework 2.0

et5323

WinXP SP3:

¤U¸ü (13.52 KB)

2010-10-18 00:34

flying008

1. [list=1]
   
2. [*]Public Class Form1
   
3. 
   
4. [*]    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
5. [*]        OpenFileDialog1.FileName = ""
   
6. [*]        If OpenFileDialog1.ShowDialog() = 1 Then
   
7. [*]            Label1.Text = "Calculate MD5 sum in progress ..."
   
8. [*]            TextBox1.Text = Module1.MD5CalcFile(OpenFileDialog1.FileName)
   
9. [/list]

½Æ»s¥N½X

¨þ¨þ¡K¡K­ì来§Ú们论坛¯uªº¥i¥H¦bCODE«e­±¥[¤W¦æ号来发贴, 这样对检¯Á¥N码´N¤è«K¦h¤F, ¤µ¤Ñ¤S学¤F¤@©Û, 谢谢¤j¤j!