文档介绍:该【VB中实现MD5加密 】是由【xx】上传分享,文档一共【8】页,该文档可以免费在线阅读,需要了解更多关于【VB中实现MD5加密 】的内容,可以使用淘豆网的站内搜索功能,选择自己适合的文档,以下文字是截取该文章内的部分文字,如需要获得完整电子版,请下载此文档到您的设备,方便您编辑和打印。
VB中实现MD5加密
使用方法:
msgboxDigestStrToHexStr("111")
源代码:
-----------剪切线------------------------------------------------------------
OptionExplicit
’/******************************************************************************
’*Copyright(C)2000byRobertHubley.*
’*Allrightsreserved.*
’**
’*Thissoftwareisprovided``ASIS’andanyexpressorimplied*
’*warranties,including,butnotlimitedto,theimpliedwarrantiesof*
’*merchantabilityandfitnessforaparticularpurpose,aredisclaimed.*
’*Innoeventshalltheauthorsbeliableforanydirect,indirect,*
’*incidental,special,exemplary,orconsequentialdamages(including,but*
’*notlimitedto,procurementofsubstitutegoodsorservices;lossofuse,*
’*data,orprofits;orbusinessinterruption)howevercausedandonany*
’*theoryofliability,whetherincontract,strictliability,ortort*
’*(includingnegligenceorotherwise)arisinginanywayoutoftheuseof*
’*thissoftware,evenifadvisedofthepossibilityofsuchdamage.*
’**
’******************************************************************************
’
’CLASS:MD5
’
’DESCRIPTION:
’ThisisaclasswhichencapsulatesasetofMD5MessageDigestfunctions.
’MD5algorithmproducesa128bitdigitalfingerprint(signature)froman
’(summarizedbelow).
’ThisimplementationisderivedfromtheRSADataSecurity,-Digest
’algorithmreferenceimplementation(originallywritteninC)
’
’AUTHOR:
’
’
’
’NOTES:
’
’RequestforComments:1321MITLaboratoryforComputerScience
’andRSADataSecurity,Inc.
’April1992
’
’
’TheMD5Message-DigestAlgorithm
’
’Summary
’
’ThisdocumentdescribestheMD5message-
’algorithmtakesasinputamessageofarbitrarylengthandproduces
’asoutputa128-bit"fingerprint"or"messagedigest"oftheinput.
’Itisconjecturedthatitiscomputationallyinfeasibletoproduce
’twomessageshavingthesamemessagedigest,ortoproduceany
’
’algorithmisintendedfordigitalsignatureapplications,wherea
’largefilemustbe"compressed"inasecuremannerbeforebeing
’encryptedwithaprivate(secret)keyunderapublic-keycryptosystem
’suchasRSA.
’
’TheMD5algorithmisdesignedtobequitefaston32-
’addition,theMD5algorithmdoesnotrequireanylargesubstitution
’tables;thealgorithmcanbecodedquitecompactly.
’
’TheMD5algorithmisanextensionoftheMD4message-digestalgorithm
’1,2].MD5isslightlyslowerthanMD4,butismore"conservative"in
’
’beingadoptedforusemorequicklythanjustifiedbytheexisting
’criticalreview;becauseMD4wasdesignedtobeexceptionallyfast,
’itis"attheedge"intermsofriskingsuccessfulcryptanalytic
’,givingupalittleinspeedforamuch
’
’suggestionsmadebyvariousreviewers,andcontainsadditional
’
’forreviewandpossibleadoptionasastandard.
’
’RFCAuthor:
’
’MassachusettsInstituteofTechnology
’LaboratoryforComputerScience
’NE43-324545TechnologySquare
’Cambridge,MA02139-1986
’Phone:(617)253-5880
’EMail:******@
’
’
’
’CHANGEHISTORY:
’
’
’
’
’=
’=ClassConstants
’=
PrivateConstOFFSET_4=4294967296#
PrivateConstMAXINT_4=2147483647
PrivateConstS11=7
PrivateConstS12=12
PrivateConstS13=17
PrivateConstS14=22
PrivateConstS21=5
PrivateConstS22=9
PrivateConstS23=14
PrivateConstS24=20
PrivateConstS31=4
PrivateConstS32=11
PrivateConstS33=16
PrivateConstS34=23
PrivateConstS41=6
PrivateConstS42=10
PrivateConstS43=15
PrivateConstS44=21
’=
’=ClassVariables
’=
PrivateState(4)AsLong
PrivateByteCounterAsLong
PrivateByteBuffer(63)AsByte
’=
’=ClassProperties
’=
PropertyGetRegisterA()AsString
RegisterA=State(1)
EndProperty
PropertyGetRegisterB()AsString
RegisterB=State(2)
EndProperty
PropertyGetRegisterC()AsString
RegisterC=State(3)
EndProperty
PropertyGetRegisterD()AsString
RegisterD=State(4)
EndProperty
本文来源:网络收集与整理,如有侵权,请联系作者删除,谢谢!