Private Sub MD5Update(InputLen As Long, InputBuffer() As Byte)
Dim lngBufferedBytes As Long
    lngBufferedBytes = ByteCounter Mod  64 
    
Dim i_in_InputBuffer As Long
For i_in_InputBuffer =  0  To InputLen -  1 
    ByteCounter = ByteCounter +  1 
    ByteBuffer(lngBufferedBytes) = InputBuffer(i_in_InputBuffer)
    lngBufferedBytes = lngBufferedBytes +  1 
    If (lngBufferedBytes =  64 ) Then
        lngBufferedBytes =  0 
        Call MD5Transform(ByteBuffer)
    End If
Next
End Sub

Private Sub MD5Final()
Dim lngBytesBuffered As Long
    lngBytesBuffered = ByteCounter Mod  64 
If (lngBytesBuffered <  56 ) Then
    Dim padding_len As Long
        padding_len =  64  - lngBytesBuffered
Else
        padding_len =  128  - lngBytesBuffered
End If

Dim adr_for_len As Byte
    adr_for_len = padding_len -  8 
    
Dim padding( 79 ) As Byte
    padding( 0 ) = &H80 '=128
Dim dblBits As Double
    dblBits = ByteCounter *  8 
padding(adr_for_len) = UnsignedToLong(dblBits) And &HFF&
padding(adr_for_len +  1 ) = UnsignedToLong(dblBits) \  256  And &HFF&
padding(adr_for_len +  2 ) = UnsignedToLong(dblBits) \  65536  And &HFF&
padding(adr_for_len +  3 ) = UnsignedToLong(dblBits) \  16777216  And &HFF&
'padding(adr_for_len + 4) = 0
'padding(adr_for_len + 5) = 0
'padding(adr_for_len + 6) = 0
'padding(adr_for_len + 7) = 0
    
Call MD5Update(padding_len, padding)
End Sub