首先,我们启动VS(Visual-Studio简称),我使用的是VS版本。
新建一个项目-选择内裤(额...不好意思)→类库 ,名称就默认吧.
编写类库没有窗体设计,因此我们不能使用工具箱中的控件..
类库支持Function函数,Sub过程等等....
完整代码如下:
Imports System.IO
Imports System.Security.Cryptography
Public Class Class1
Public Function MD5(ByVal Path As String) As String
Dim fstream As New FileStream(Path, _
FileMode.Open, _
FileAccess.Read)
Dim dataToHash(fstream.Length - 1) As Byte
fstream.Read(dataToHash, 0, fstream.Length)
fstream.Close()
Dim hashvalue As Byte() = CType(CryptoConfig.CreateFromName("MD5"), HashAlgorithm).ComputeHash(dataToHash)
Dim i As Integer
Dim result As String = "&#