vb 如何校验文件的CRC 或者MD5或什么都行

VB怎么实现文件的校验~

可以使用MD5进行校验。
你需要什么算法进行校验呢

VB检查文件的大小和检测文件MD5值的代码如下，根据下面注释和实际应用分析：
1、VB代码检查文件大小代码如下。
/***FileLen函数，返回Long，代表一个文件的长度，单位是字节。*语法：*FileLen(pathname) *必要的pathnam参数是用来指定一个文件名的字符串表达式。*pathname可以包含目录或文件夹、以及驱动器。*说明： 当调用FileLen函数时，如果所指定的文件已经打开，则返回的值是这个文件在打开前的大小。 注意：若要取得一个打开文件的长度大小，使用LOF函数。**///实际应用：If FileLen(rst.Fields("pic1")) > 1 Then Picture1.Picture = LoadPicture(rst.Fields("pic1") & "") L1.Caption = Trim(rsttemp.Fields("p1time") & "") Else Picture1.Picture = LoadPicture("") L1.Caption = strNorz End If//图片文件的路径保存在数据库的pic1字段2、VB检测文件的MD5值，代码如下。
Option ExplicitOption Base 0Public Type MD5_CTX i(1) As Long buf(3) As Long inc(63) As Byte digest(15) As ByteEnd TypePublic Declare Sub MD5Init Lib "Cryptdll.dll" (ByVal pContex As Long)Public Declare Sub MD5Final Lib "Cryptdll.dll" (ByVal pContex As Long)Public Declare Sub MD5Update Lib "Cryptdll.dll" (ByVal pContex As Long, ByVal lPtr As Long, ByVal nSize As Long)Public Function ConvBytesToBinaryString(bytesIn() As Byte) As String Dim i As Long Dim nSize As Long Dim strRet As String nSize = UBound(bytesIn) For i = 0 To nSize strRet = strRet & Right$("0" & Hex(bytesIn(i)), 2) Next ConvBytesToBinaryString = strRetEnd FunctionPublic Function GetMD5Hash(bytesIn() As Byte) As Byte() Dim ctx As MD5_CTX Dim nSize As Long nSize = UBound(bytesIn) + 1 MD5Init VarPtr(ctx) MD5Update ByVal VarPtr(ctx), ByVal VarPtr(bytesIn(0)), nSize MD5Final VarPtr(ctx) GetMD5Hash = ctx.digestEnd FunctionPublic Function GetMD5Hash_Bytes(bytesIn() As Byte) As String GetMD5Hash_Bytes = ConvBytesToBinaryString(GetMD5Hash(bytesIn))End FunctionPublic Function GetMD5Hash_String(ByVal strIn As String) As String GetMD5Hash_String = GetMD5Hash_Bytes(StrConv(strIn, vbFromUnicode))End FunctionPublic Function GetMD5Hash_File(ByVal strFile As String) As String Dim lFile As Long Dim bytes() As Byte Dim lSize As Long lSize = FileLen(strFile) If (lSize) Then lFile = FreeFile ReDim bytes(lSize - 1) Open strFile For Binary As lFile Get lFile, , bytes Close lFile GetMD5Hash_File = GetMD5Hash_Bytes(bytes) End IfEnd Function

就是收集boot.ini的不变的一些相关的信息（如文件大小，文件名等等），然后组成字符串，再用md5函数把组成的字符串编码。
以后就用这个编码进行校验了，字符串比较（compare即可）。
不过对boot.ini文件校验没有多大的意义，随便装一个什么dos工具箱或者用优化软件优化以下那个校验码准变。

md5是万象后门密码破解。！！！

（MD5）见：
http://www.pediy.com/bbshtml/BBS5/pediy50340.htm

---

vb 如何校验文件的CRC 或者MD5或什么都行视频