Board logo

標題: [原創] MD5 計算器 [打印本頁]
作者: ivanyung    時間: 2010-8-21 10:48     標題: MD5 計算器

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

[attach]2515[/attach]
  1. Public Class Form1

  3.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  4.         OpenFileDialog1.FileName = ""

  6.         If OpenFileDialog1.ShowDialog() = 1 Then
  7.             Label1.Text = "Calculate MD5 sum in progress ..."
  8.             TextBox1.Text = Module1.MD5CalcFile(OpenFileDialog1.FileName)

  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

  19.     End Sub

  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

  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

  31.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  32.         OpenFileDialog1.FileName = ""

  34.         If OpenFileDialog1.ShowDialog() = 1 Then
  35.             Label1.Text = "Calculate sha1sum sum in progress ..."
  36.             TextBox1.Text = Module1.Sha1CalcFile(OpenFileDialog1.FileName)

  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

  47.     End Sub
  48. End Class
複製代碼
作者: flying008    時間: 2010-10-14 08:38

本帖最後由 flying008 於 2010-10-14 08:40 編輯
  1. [list=1]
  2. [*]Public Class Form1

  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    時間: 2010-10-18 00:34

WinXP SP3:
[attach]3250[/attach]
作者: ivanyung    時間: 2010-10-27 22:30

回復 3# et5323


    請安裝 .net framework 2.0



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)