（1）Then
ByteCounter=ByteCounter+64
MD5TransformByteBuffer
EndIf
Loop
ByteCounter=ByteCounter+（LOF
（1）Mod64）
Close#1
MD5Final
DigestFileToHexStr=GetValues
EndFunction
'
'Functiontodigestatextstringandoutputtheresultasastring
'ofhexadecimalcharacters.
'
PublicFunctionDigestStrToHexStr（SourceStringAsString）AsString
MD5Init
MD5UpdateLen（SourceString）,StringToArray（SourceString）
MD5Final
DigestStrToHexStr=GetValues
EndFunction
'
'Autilityfunctionwhichconvertsastringintoanarrayof
'bytes.
'
PrivateFunctionStringToArray（InStringAsString）AsByte（）
DimIAsInteger
DimbytBuffer（）AsByte
ReDimbytBuffer（Len（InString））
ForI=0ToLen（InString）-1
bytBuffer（I）=Asc（Mid（InString,I+1,1））
NextI
StringToArray=bytBuffer
EndFunction
'
'Concatenatethefourstatevaulesintoonestring
'
PublicFunctionGetValues（）AsString
GetValues=LongToString（State
（1））&LongToString（State
（2））&LongToString（State（3））&LongToString（State（4））
EndFunction
'
'ConvertaLongtoaHexstring
'
PrivateFunctionLongToString（NumAsLong）AsString
DimaAsByte
DimbAsByte
DimcAsByte
DimdAsByte
a=NumAnd&HFF&
Ifa<16Then
LongToString="0"&Hex（a）
Else
LongToString=Hex（a）
EndIf
b=（NumAnd&HFF00&）\256
Ifb<16Then
LongToString=LongToString&"0"&Hex（b）
Else
LongToString=LongToString&Hex（b）
EndIf
c=（NumAnd&HFF0000）\65536
Ifc<16Then
LongToString=LongToString&"0"&Hex（c）
Else
LongToString=LongToString&Hex（c）
EndIf
IfNum<0Then
d=（（NumAnd&H7F000000）\16777216）Or&H80&
Else
d=（NumAnd&HFF000000）\16777216
EndIf
Ifd<16Then
LongToString=LongToString&"0"&Hex（d）
Else
LongToString=LongToString&Hex（d）
EndIf
EndFunction
'
'Initializetheclass
'Thismustbecalledbeforeadigestcalculationisstarted
'
PublicSubMD5Init（）
ByteCounter=0
State
（1）=UnsignedToLong（1732584193#）
State
（2）=UnsignedToLong（4023233417#）
State（3）=UnsignedToLong（2562383102#）
State（4）=UnsignedToLong（271733878#）
EndSub
'
'MD5Final
'
PublicSubMD5Final（）
DimdblBitsAsDouble
Dimpadding（72）AsByte
DimlngBytesBufferedAsLong
padding（0）=&H80
dblBits=ByteCounter*8
'Padout
lngBytesBuffered=ByteCounterMod64
IflngBytesBuffered<=56Then
MD5Update56-lngBytesBuffered,padding
Else
MD5Update120-ByteCounter,padding
EndIf
padding（0）=UnsignedToLong（dblBits）And&HFF&
padding
（1）=UnsignedToLong（dblBits）\256And&HFF&
padding
（2）=UnsignedToLong（dblBits）\65536And&HFF&
padding（3）=UnsignedToLong（dblBits）\16777216And&HFF&
padding（4）=0
padding（5）=0
padding（6）=0
padding（7）=0
MD5Update8,padding
EndSub
'Breakupinputstreaminto64bytechunks
'
PublicSubMD5Update（InputLenAsLong,InputBuffer（）AsByte）
DimIIAsInteger
DimIAsInteger
DimJAsInteger
DimKAsInteger
DimlngBufferedBytesAsLong
DimlngBufferRemainingAsLong
DimlngRemAsLong
lngBufferedBytes=ByteCounterMod64
lngBufferRemaining=64-lngBufferedBytes
ByteCounter=ByteCounter+InputLen
'Useupoldbufferresultsfirst
IfInputLen>=lngBufferRemainingThen
ForII=0TolngBufferRemaining-1
ByteBuffer（lngBufferedBytes+II）=InputBuffer（II）
NextII
MD5TransformByteBuffer
lngRem=（InputLen）Mod64
'Thetransferisamultipleof64letsdosometransformations
ForI=lngBufferRemainingToInputLen-II-lngRemStep64
ForJ=0To63
ByteBuffer（J）=InputBuffer（I+J）
NextJ
MD5TransformByteBuffer
NextI
lngBufferedBytes=0
Else
I=0
EndIf
'Bufferanyremaininginput
ForK=0ToInputLen-I-1
ByteBuffer（lngBufferedBytes+K）=InputBuffer（I+K）
NextK
EndSub
'
'MD5Transform
'
PrivateSubMD5Transform（Buffer（）AsByte）
Dimx（16）AsLong
DimaAsLong
DimbAsLong
DimcAsLong
DimdAsLong
a=State
（1）
b=State
（2）
c=State（3）
d=State（4）
Decode64,x,Buffer
'Round1
FFa,b,c,d,x（0）,S11,-680876936
FFd,a,b,c,x
（1）,S12,-389564586
FFc,d,a,b,x
（2）,S13,606105819
FFb,c,d,a,x（3）,S14,-1044525330
FFa,b,c,d,x（4）,S11,-176418897
FFd,a,b,c,x（5）,S12,1200080426
FFc,d,a,b,x（6）,S13,-1473231341
FFb,c,d,a,x（7）,S14,-45705983
FFa,b,c,d,x（8）,S11,1770035416
FFd,a,b,c,x（9）,S12,-1958414417
FFc,d,a,b,x（10）,S13,-42063
FFb,c,d,a,x（11）,S14,-1990404162
FFa,b,c,d,x（12）,S11,1804603682
FFd,a,b,c,x（13）,S12,-40341101
FFc,d,a,b,x（14）,S13,-1502002290
FFb,c,d,a,x（15）,S14,1236535329
'Round2
GGa,b,c,d,x
（1）,S21,-165796510
GGd,a,b,c,x（6）,S22,-1069501632
GGc,d,a,b,x（11）,S23,643717713
GGb,c,d,a,x（0）,S24,-373897302
GGa,b,c,d,x（5）,S21,-701558691
GGd,a,b,c,x（10）,S22,38016083
GGc,d,a,b,x（15）,S23,-660478335
GGb,c,d,a,x（4）,S24,-405537848
GGa,b,c,d,x（9）,S21,568446438
GGd,a,b,c,x（14）,S22,-1019803690
GGc,d,a,b,x（3）,S23,-187363961
GGb,c,d,a,x（8）,S24,1163531501
GGa,b,c,d,x（13）,S21,-1444681467
GGd,a,b,c,x
（2）,S22,-51403784
GGc,d,a,b,x（7）,S23,1735328473
GGb,c,d,a,x（12）,S24,-1926607734
'Round3
HHa,b,c,d,x（5）,S31,-378558
HHd,a,b,c,x（8）,S32,-2022574463
HHc,d,a,b,x（11）,S33,1839030562
HHb,c,d,a,x（14）,S34,-35309556
HHa,b,c,d,x
（1）,S31,-1530992060
HHd,a,b,c,x（4）,S32,1272893353
HHc,d,a,b,x（7）,S33,-155497632
HHb,c,d,a,x（10）,S34,-1094730640
HHa,b,c,d,x（13）,S31,681279174
HHd,a,b,c,x（0）,S32,-358537222
HHc,d,a,b,x（3）,S33,-722521979
HHb,c,d,a,x（6）,S34,76029189
HHa,b,c,d,x（9）,S31,-640364487
HHd,a,b,c,x（12）,S32,-421815835
HHc,d,a,b,x（15）,S33,530742520
HHb,c,d,a,x
（2）,S34,-995338651
'Round4
IIa,b,c,d,x（0）,S41,-198630844
IId,a,b,c,x（7）,S42,1126891415
IIc,d,a,b,x（14）,S43,-1416354905
IIb,c,d,a,x（5）,S44,-57434055
IIa,b,c,d,x（12）,S41,1700485571
IId,a,b,c,x（3）,S42,-1894986606
IIc,d,a,b,x（10）,S43,-1051523
IIb,c,d,a,x
（1）,S44,-2054922799
IIa,b,c,d,x（8）,S41,1873313359
IId,a,b,c,x（15）,S42,-30611744
IIc,d,a,b,x（6）,S43,-1560198380
IIb,c,d,a,x（13）,S44,1309151649
IIa,b,c,d,x（4）,S41,-145523070
IId,a,b,c,x（11）,S42,-1120210379
IIc,d,a,b,x
（2）,S43,718787259
IIb,c,d,a,x（9）,S44,-343485551
State
（1）=LongOverflowAdd（State
（1）,a）
State
（2）=LongOverflowAdd（State
（2）,b）
State（3）=LongOverflowAdd（State（3）,c）
State（4）=LongOverflowAdd（State（4）,d）
'/*Zeroizesensitiveinformation.
'*/
'MD5_memset（（POINTER）x,0,sizeof（x））;
EndSub
PrivateSubDecode（LengthAsInteger,OutputBuffer（）AsLong,InputBuffer（）AsByte）
DimintDblIndexAsInteger
DimintByteIndexAsInteger
DimdblSumAsDouble
intDblIndex=0
ForintByteIndex=0ToLength-1Step4
dblSum=InputBuffer（intByteIndex）+_
InputBuffer（intByteIndex+1）*256#+_
InputBuffer（intByteIndex+2）*65536#+_
InputBuffer（intByteIndex+3）*16777216#
OutputBuffer（intDblIndex）=UnsignedToLong（dblSum）
intDblIndex=intDblIndex+1
NextintByteIndex
EndSub
'
'FF,GG,HH,andIItransformationsforrounds1,2,3,and4.
'Rotationisseparatefromadditiontopreventrecomputation.
'
PrivateFunctionFF（aAsLong,_
bAsLong,_
cAsLong,_
dAsLong,_
xAsLong,_
sAsLong,_
acAsLong）AsLong
a=LongOverflowAdd4（a,（bAndc）Or（Not（b）Andd）,x,ac）
a=LongLeftRotate（a,s）
a=LongOverflowAdd（a,b）
EndFunction
PrivateFunctionGG（aAsLong,_
bAsLong,_
cAsLong,_
dAsLong,_
xAsLong,_
sAsLong,_
acAsLong）AsLong
a=LongOverflowAdd4（a,（bAndd）Or（cAndNot（d））,x,ac）
a=LongLeftRotate（a,s）
a=LongOverflowAdd（a,b）
EndFunction
PrivateFunctionHH（aAsLong,_
bAsLong,_
cAsLong,_
dAsLong,_
xAsLong,_
sAsLong,_
acAsLong）AsLong
a=LongOverflowAdd4（a,bXorcXord,x,ac）
a=LongLeftRotate（a,s）
a=LongOverflowAdd（a,b）
EndFunction
PrivateFunctionII（aAsLong,_
bAsLong,_
cAsLong,_
dAsLong
升级会员 