HASH de un String

   Buen día:

En la aplicación que estoy realizando, es necesario tener usuario y contraseña para poder acceder a los formularios. Tengo ya programada toda la parte del login, incluso haciendo un HASH SHA512 del password que almaceno en una tabla y es el que uso para comparar con el password al momento de realizar el login.

Les pongo el código que utilizo para realizar el HASH, el cual mando llamar desde el formulario login con:

b64 = True
        sH = SHA512(txtPwd.Value, b64)

El cual llama la funcion SHA512:

Public Function SHA512(sIn As String, Optional bB64 As Boolean = 0) As String
    'Set a reference to mscorlib 4.0 64-bit

    'Test with empty string input:
    '128 Hex:   cf83e1357eefb8bd...etc
    '88 Base-64:   z4PhNX7vuL3xVChQ...etc

    Dim oT As Object, oSHA512 As Object
    Dim TextToHash() As Byte, bytes() As Byte

    Set oT = CreateObject("System.Text.UTF8Encoding")
    Set oSHA512 = CreateObject("System.Security.Cryptography.SHA512Managed")

    TextToHash = oT.GetBytes_4(sIn)
    bytes = oSHA512.ComputeHash_2((TextToHash))

    If bB64 = True Then
       SHA512 = ConvToBase64String(bytes)
    Else
       SHA512 = ConvToHexString(bytes)
    End If

    Set oT = Nothing
    Set oSHA512 = Nothing

End Function

y las funciones para convertir a base hexadecimal o cadena de caracteres:

Private 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

Private 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

El problema es que para poder utilizar estas es necesario tener .Net Framework 3.5 instalado, pero en los equipos donde se quiere distribuir la base, es muy probable que no lo tenga instalado.

¿Hay alguna manera de realizar el HASH sin utilizar librerías de .Net o en su defecto utilizar librerías de .Net "nativo" en windows 10? o bien ¿alguna manera de verificar si está está instalado el .Net 3.5 y en caso de que no esté, lazar la instalación desde codigo vba?

Sin más por el momento, agradezco enormemente su ayuda.

Saludos.

Editado por thrall - 11/Agosto/2020 a las 21:03