返回列表下一主題上一主題發帖

[原創] MD5 計算器

ivanyung

中學生 Rank: 2

帖子: 49
主題: 5
精華: 0
積分: 92
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-7-31
最後登錄: 2011-10-19

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-8-21 10:48 | 只看該作者

[原創] MD5 計算器

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

MD5.zip (7.96 KB)

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.FileName = ""
If OpenFileDialog1.ShowDialog() = 1 Then
Label1.Text = "Calculate MD5 sum in progress ..."
TextBox1.Text = Module1.MD5CalcFile(OpenFileDialog1.FileName)
If Len(Environment.CurrentDirectory) = 3 Then 'root directory
Label1.Text = "MD5: " & vbCrLf & Mid(OpenFileDialog1.FileName, Len(Environment.CurrentDirectory) + 1, _
Len(OpenFileDialog1.FileName) - Len(Environment.CurrentDirectory) - 0)
Else
Label1.Text = "MD5: " & vbCrLf & Mid(OpenFileDialog1.FileName, Len(Environment.CurrentDirectory) + 2, _
Len(OpenFileDialog1.FileName) - Len(Environment.CurrentDirectory) - 1)
End If
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label1.Text = "Filename"
TextBox1.Text = ""
Clipboard.Clear()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Clipboard.SetText(TextBox1.Text)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
OpenFileDialog1.FileName = ""
If OpenFileDialog1.ShowDialog() = 1 Then
Label1.Text = "Calculate sha1sum sum in progress ..."
TextBox1.Text = Module1.Sha1CalcFile(OpenFileDialog1.FileName)
If Len(Environment.CurrentDirectory) = 3 Then 'root directory
Label1.Text = "sha1sum: " & vbCrLf & Mid(OpenFileDialog1.FileName, Len(Environment.CurrentDirectory) + 1, _
Len(OpenFileDialog1.FileName) - Len(Environment.CurrentDirectory) - 0)
Else
Label1.Text = "sha1sum: " & vbCrLf & Mid(OpenFileDialog1.FileName, Len(Environment.CurrentDirectory) + 2, _
Len(OpenFileDialog1.FileName) - Len(Environment.CurrentDirectory) - 1)
End If
End If
End Sub
End Class

複製代碼

樓主熱帖

flying008

中學生 Rank: 2

帖子: 40
主題: 3
精華: 0
積分: 93
點名: 0
作業系統: Windows200*
軟體版本: Office2**3
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2015-10-14

2^#

發表於 2010-10-14 08:38 | 只看該作者

本帖最後由 flying008 於 2010-10-14 08:40 編輯

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

複製代碼

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

只有想不到的,
没有做不到的.

TOP

et5323