[原創] MD5 計算器

ivanyung

多年前寫的程式, 比較簡陋 .............

MD5.zip (7.96 KB)

下載次數: 14

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

複製代碼

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]

複製代碼

呵呵……原来我们论坛真的可以在CODE前面加上行号来发贴, 这样对检索代码就方便多了, 今天又学了一招, 谢谢大大!

et5323

WinXP SP3:

下載 (13.52 KB)

2010-10-18 00:34

ivanyung

回復 3# et5323


    請安裝 .net framework 2.0