VB.net 获取文件的MD5值

由纪小年 · 2021/01/19

Imports System.IO
Imports System.Security.Cryptography

Public Shared Function _MD5(ByVal strSource As String) As String
    Dim fstream As New FileStream(strSource, 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 = ""
    For i = 0 To hashvalue.Length - 1
        result += Hex(hashvalue(i)).ToLower
    Next
    Return result
End Function

Imports System.IO

Imports System.Security.Cryptography

Public Shared Function _MD5(ByVal strSource As String) As String

Dim fstream As New FileStream(strSource, 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 = ""

For i = 0 To hashvalue.Length - 1

result += Hex(hashvalue(i)).ToLower

Return result

End Function

发表回复取消回复

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据。

通过OPCUA 连接第三方的kepware问题发表在给我留言2025/01/16
老师，FTSP6.3以上（也就是View…
wangxinbin 发表在在罗克韦尔AB官网免费下载软件(申请下载码)2024/12/26
牛人谢谢您
西北地区扭扭车总冠军发表在 FactoryTalk View SE 版本 15.00.00 的新增功能和增强功能2024/10/15
坐等大佬D盘更新，祝大佬全家福寿安康
shuai 发表在给我留言2024/10/12
有公众号之类的吗，之前这个网站打不开了
Node-RED核心节点Nodes – 纪小年发表在 Node-RED处理消息2024/06/08
[…] 关于使用Change…

VB.net 获取文件的MD5值

您可能还喜欢...

发表回复取消回复

最新文章

最新评论

标签云

浏览次数

VB.net 获取文件的MD5值

您可能还喜欢...

VB编写圆角无边框窗体

[吐血奉献]VB使用系统函数读写INI配置文件的模块

VB.NET的OpenCvSharp4简单应用

发表回复 取消回复

最新文章

最新评论

标签云

浏览次数

发表回复取消回复