Foxtable(狐表)用户栏目专家坐堂 → [求助]如何获取文件的MD5校验码


  共有3619人关注过本帖树形打印复制链接

主题:[求助]如何获取文件的MD5校验码

帅哥哟,离线,有人找我吗?
jspta
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1732 积分:11266 威望:0 精华:0 注册:2011/12/15 22:06:00
[求助]如何获取文件的MD5校验码  发帖心情 Post By:2014/5/21 14:26:00 [只看该作者]

在foxtable中如何计算某个文件的MD5校验码?(不是字符)

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/5/21 14:27:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
jspta
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1732 积分:11266 威望:0 精华:0 注册:2011/12/15 22:06:00
  发帖心情 Post By:2014/5/21 14:36:00 [只看该作者]

我想获得对于某个文件的校验码
某个文件进行校验后,能得到以下信息,foxtable中现在只能得到CRC32
MD5: 66E5BB689960890F73C2499B3704D251
SHA1: 460C2B006F84629CAB2FEC40D517CD7D7916459D
CRC32: 1EEBE0B1

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/5/21 14:45:00 [只看该作者]

Dim FilePath As String ="C:\Users\foxtable1\Desktop\订货管理.foxdb"
Try
	Dim get_file As New System.IO.FileStream(FilePath, System.IO.FileMode.Open, System.IO.FileAccess.Read, System.IO.FileShare.Read)
	Dim get_md5 As New System.Security.Cryptography.MD5CryptoServiceProvider()
	Dim hash_byte As Byte() = get_md5.ComputeHash(get_file)
	Dim resule As String = System.BitConverter.ToString(hash_byte)
	resule = resule.Replace("-", "")
	output.show( resule)
Catch e As Exception
	output.show( e.ToString())
End Try

 回到顶部
帅哥哟,离线,有人找我吗?
jspta
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1732 积分:11266 威望:0 精华:0 注册:2011/12/15 22:06:00
  发帖心情 Post By:2014/5/21 17:14:00 [只看该作者]

非常感谢!

 回到顶部
帅哥哟,离线,有人找我吗?
湛江智
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:812 积分:6688 威望:0 精华:0 注册:2014/11/26 12:32:00
  发帖心情 Post By:2018/8/21 13:40:00 [只看该作者]

为什么按上面代码,写在按钮里,报错。

代码怎么修改呢? 求助

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:md5 fxz.foxdb


图片点击可在新窗口打开查看此主题相关图片如下:报错.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2018/8/21 13:40:15编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110784 积分:563852 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/8/21 14:07:00 [只看该作者]

catch e as...........

变量e换个一个名称

 回到顶部