Макрос MD5

Public Function FileToMD5(sFullPath As String, Optional bB64 As Boolean = False) As String
        
    Dim enc, bytes, outstr As String, pos As Integer
    
    Set enc = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider")
    bytes = GetFileBytes(sFullPath)
    bytes = enc.ComputeHash_2((bytes))
    
    If bB64 = True Then
       FileToMD5 = ConvToBase64String(bytes)
    Else
       FileToMD5 = ConvToHexString(bytes)
    End If
        
    Set enc = Nothing
 
End Function

'процедура расчета хэша MD5:
Public Function FileToMD5(sFullPath As String, Optional bB64 As Boolean = False) As String
        
    Dim enc, bytes, outstr As String, pos As Integer
    
    Set enc = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider")
    bytes = GetFileBytes(sFullPath)
    bytes = enc.ComputeHash_2((bytes))
    
    If bB64 = True Then
       FileToMD5 = ConvToBase64String(bytes)
    Else
       FileToMD5 = ConvToHexString(bytes)
    End If
        
    Set enc = Nothing
 
End Function
 
Private Function GetFileBytes(ByVal sPath As String) As Byte()
 
    Dim lngFileNum As Long, bytRtnVal() As Byte, bTest
    
    lngFileNum = FreeFile
    
    If LenB(Dir(sPath)) Then
        
        Open sPath For Binary Access Read As lngFileNum
        
        ReDim bytRtnVal(0 To LOF(lngFileNum) - 1&) As Byte
        Get lngFileNum, , bytRtnVal
        Close lngFileNum
    Else
        err.Raise 53
    End If
    
    GetFileBytes = bytRtnVal
    
    Erase bytRtnVal
 
End Function
 
Function ConvToBase64String(vIn As Variant) As Variant
     
    Dim oD As Object
      
    Set oD = CreateObject("MSXML2.DOMDocument")
      With oD
        .LoadXML "<root />"
        .DocumentElement.DataType = "bin.base64"
        .DocumentElement.nodeTypedValue = vIn
      End With
    ConvToBase64String = Replace(oD.DocumentElement.Text, vbLf, "")
    
    Set oD = Nothing
 
End Function
 
Function ConvToHexString(vIn As Variant) As Variant
  
    Dim oD As Object
      
    Set oD = CreateObject("MSXML2.DOMDocument")
      
      With oD
        .LoadXML "<root />"
        .DocumentElement.DataType = "bin.Hex"
        .DocumentElement.nodeTypedValue = vIn
      End With
    ConvToHexString = Replace(oD.DocumentElement.Text, vbLf, "")
    
    Set oD = Nothing
 
End Function
 
Function GetFileSize(sFilePath As String, nSize As Long) As Boolean
   
    Dim fs As Object, f As Object
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    
    If fs.FileExists(sFilePath) Then
        Set f = fs.getfile(sFilePath)
        nSize = f.Size
        GetFileSize = True
        Exit Function
    End If
 
End Function

Function FileMD5(FlPath As String) As String
    Const CAPICOM_HASH_ALGORITHM_MD5 = 3
    Const adTypeBinary = 1
    Const lngPortion = 1024                    ' 1048576
    Dim objStream
    Dim objHashedData
        
    ' CAPICOM 2.1.0.2 (http://support.microsoft.com/kb/931906/)
    Set objHashedData = CreateObject("CAPICOM.HashedData")
    Set objStream = CreateObject("ADODB.Stream")
    
    objHashedData.Algorithm = CAPICOM_HASH_ALGORITHM_MD5
    
    With objStream
        .Type = adTypeBinary
        .Open
        .LoadFromFile (FlPath)
        Do Until .EOS
            objHashedData.hash .Read(lngPortion)
        Loop
        .Close
    End With
    
    FileMD5 = objHashedData.Value
End Function

Function FileMD5(FlPath As String) As String
    Const lngPortion = 1024                    ' 1048576
    Static objStream As New ADODB.Stream
    Static objHashedData As New CAPICOM.HashedData
        
    objHashedData.Algorithm = CAPICOM_HASH_ALGORITHM_MD5
    
    With objStream
        .Type = adTypeBinary
        .Open
        .LoadFromFile FlPath
        Do Until .EOS
            objHashedData.hash .Read(lngPortion)
        Loop
        .Close
    End With
    
    FileMD5 = objHashedData.Value
End Function