资源描述：
《vb源代码-crc32自校验（VB source code, -crc32 self calibration）》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、vb源代码-crc32自校验（VBsourcecode,-crc32selfcalibration）Classmodule(nameclsCRC)codeOptionExplicitPublicEnumCRCAlgorithmsCRC16CRC32EndEnumPrivatem_AlgorithmAsBooleanPrivatem_CRC16AsLongPrivatem_CRC16Asm()AsBytePrivatem_CRC16InitAsBooleanPrivatem_CRC16Table(0,To255)AsLongPrivatem_CRC32AsLongPriv
2、atem_CRC32Asm()AsBytePrivatem_CRC32InitAsBooleanPrivatem_CRC32Table(0,To255)AsLongPrivate,Declare,Function,CallWindowProc,Lib,user32,Alias,CallWindowProcA,ByVal,As,Long,ByVal,hWnd,As,Long,ByVal,Msg,As,Long,ByVal,wParam,As,Long,ByVal,lParam,As,Long,,lpPrevWndFunc,As,LongPublic,Function,Ad
3、dBytes(ByteArray())AsByte)AsVariantDimByteSizeAsLongOn,Local,Error,GoTo,NoDataByteSize=UBound(ByteArray)-LBound(ByteArray)+1OnLocalErrorGoTo0SelectCasem_AlgorithmCaseCRC16Call,CallWindowProc(VarPtr(m_CRC16Asm(0)),VarPtr(m_CRC16),VarPtr(ByteArray(LBound(ByteArray))),VarPtr(m_CRC16Table(0)
4、),ByteSize)CaseCRC32Call,CallWindowProc(VarPtr(m_CRC32Asm(0)),VarPtr(m_CRC32),VarPtr(ByteArray(LBound(ByteArray))),VarPtr(m_CRC32Table(0)),ByteSize)EndSelectNoData:AddBytes=ValueEndFunctionPublic,Function,AddString(Text,As,String)AsVariantAddString=AddBytes(StrConv(Text,vbFromUnicode))En
5、dFunctionPublic,Property,Let,Algorithm(New_Value,As,CRCAlgorithms)M_Algorithm=New_ValueSelectCasem_AlgorithmCaseCRC16If(Not,m_CRC16Init),Then,Call,InitializeCRC16CaseCRC32If(Not,m_CRC32Init),Then,Call,InitializeCRC32EndSelectCallClearEndPropertyPublic,Property,Get,Algorithm(),As,CRCAlgor
6、ithmsAlgorithm=m_AlgorithmEndPropertyPublic,Function,CalculateBytes(ByteArray())AsByte)AsVariantCallClearCalculateBytes=AddBytes(ByteArray)EndFunctionPublic,Function,CalculateFile(Filename,As,String)AsVariantDimFilenrAsIntegerDimByteArray()AsByteIf(FileLen(Filename)=0)Then,Exit,FunctionF
7、ilenr=FreeFile二进制打开文件作为#filenrReDimByteArray（0～LOF（filenr）-9）得到#filenr，bytearray()近#filenrcalculatefile=calculatebytes（ByteArray）端功能公共财产得到value()变异选择案例m_algorithm案例CRC16价值=（m_crc16和65535）案例CRC32价值=（不m_crc32）最后选择最后的财产公共财产让价值（new_value变异）选择案例m_algorithm案例CRC16m_crc16=new_va
