[下载][分享]一个MD5类,可以实现文件的MD5值计算(VB6.0代码)

马大哈

<p>网上收集,出处忘了.....</p><p>不过很好用,推荐!</p> FcN8dPPo.cls (11.95 KB, 下载次数: 48821)

2007-5-13 12:23 上传

点击文件名下载附件

<br/>

everyone

怎么引用哇？？？？

马大哈

<p>这是类模块.....不需要引用</p><p>直接定义变量就可以了</p>

everyone

<p>不是 是怎么实现 按下 command1 然后就显示这个文件md5?</p>

马大哈

<p>你是CSDN上那位朋友吧?</p><p>如下代码就可以了:</p><p>Private Sub Command1_Click()<br/>&nbsp;&nbsp;&nbsp; Dim I As New ClsMD5<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; MsgBox I.Md5_File_Calc(Text1.Text)<br/>End Sub</p>

everyone

<p>我是 csdn 的 mdjsy1991</p>

everyone

<p>谢谢了</p><p>给你50分</p>

马大哈

不客气

kernel64

<p>效率如何的说?</p>
<p>&nbsp;</p>
<p>我以写想做一个文件特征码管理器,</p>
<p>&nbsp;</p>
<p>用别人写的一个VB处理MD5的类,</p>
<p>&nbsp;</p>
<p>实在太慢了,后来就放弃用VB写了.</p>

everyone

<p>这份代码是有问题的。</p>
<p>我也不知道是哪错了，用正式的工具校对出来的文件MD5值和用这个校对出来的有些不一样。</p>
<p>&nbsp;</p>

蜗牛2008

楼上两位说了我想说的- -！&nbsp; 效率慢&nbsp; 代码可能也有问题。。

everyone

&nbsp;这份代码是有问题的，用正式的工具校对出来的文件MD5值和用这个校对出来的不一样。

everyone

老马最好亲自测试一下，修改好再放上来。

zzhgb

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>kernel64</i>在2008-9-23 2:17:08的发言：</b><br/>
<p>效率如何的说?</p>
<p>&nbsp;</p>
<p>我以写想做一个文件特征码管理器,</p>
<p>&nbsp;</p>
<p>用别人写的一个VB处理MD5的类,</p>
<p>&nbsp;</p>
<p>实在太慢了,后来就放弃用VB写了.</p></div>
<p>我也做的</p>
<p>引用advapi32.dll</p>
<p>很快的，没必要用vb来算，特别的文件</p>

buxchang

路过。