Componentes
 VWab
Librería ActiveX (DLL) que facilita el acceso a los contactos de la libreta de direcciones de Outlook Express. Incluye ejemplo de uso (Visual Basic 6.0)   Descargar (13,1 Kb)

 VCrypto 2.1
Librería ActiveX (DLL) para encriptar y desencriptar fácilmente cadenas de texto. Esta nueva versión permite generar la clave hash mediante los algoritmos MD2, MD4, MD5 ó SHA1 y encriptar mediante DES, TripleDES, RC2 y RC4.   Descargar (15,5 Kb)
 16 de Marzo de 2007: Cómo encriptar en SQL Server 2000 con VCrypto 2.1 Vista previa | Descargar
 3 de Enero de 2007: Solucionado un problema con CryptAcquireContext  (documentado en Encrypting/decrypting data across systems) al utilizar VCrypto2.dll entre varios sistemas operativos (encriptar en Windows XP y desencriptar en Windows 98/2000 o viceversa)
 25 de Agosto de 2006: Ejemplo (desarrollado en Visual Basic 6.0) de uso de VCrypto2.dll en la gestión de usuarios y contraseñas de una aplicación   Vista previa   Descargar (65,2 Kb)
 20 de Abril de 2006: Solucionado un problema con CryptAcquireContext (documentado en CryptAcquireContext() use and troubleshooting) al utilizar VCrypto2.dll en páginas ASP ¡Ya puedes usar sin problemas VCrypto2.dll para tareas de encriptación en tus páginas ASP!

Ejemplos de uso de VCrypto 2.0
Dim VCr As VCrypto2.CEncriptador, strCadena As String, strEncriptada As String
    Set VCr = New VCrypto2.CEncriptador
    strCadena = "El veloz murciélago hindú comía feliz cardillo y kiwi"
    strEncriptada = VCr.Encriptar(strCadena, "secreto")
    Debug.Print "Cadena original: " & strCadena
    Debug.Print "Cadena encriptada: " & strEncriptada
    Debug.Print "Cadena desencriptada: " & VCr.Desencriptar(strEncriptada, "secreto")
    Set VCr = Nothing

Resultado en la ventana Inmediato de Visual Basic 6.0

Dim g As VCrypto2.CGUID
    Set g = New VCrypto2.CGUID
    Debug.Print g.Nuevo()
    Debug.Print g.Nuevo()
    Debug.Print g.Nuevo()
    Set g = Nothing

Resultado en la ventana Inmediato de Visual Basic 6.0

Dim a As VCrypto2.CAleatorios
    Set a = New VCrypto2.CAleatorios
    Debug.Print a.NuevaCadena(35, vcrMayusculas)
    Debug.Print a.NuevaCadena(35, vcrMinusculas)
    Debug.Print a.NuevaCadena(35, vcrDigitos)
    Set a = Nothing

Resultado en la ventana Inmediato de Visual Basic 6.0