Mira, lo que yo te mando es un programita que puedes incorporar tú en tu aplicación; pero también puedes aprovechar sólo el módulo (ése sí es obligado que lo incorpores) y luego, cuando quieras encriptar un fichero, escribes esta línea:
Dim xLabel As String
xLabel = chesh.Encode(FicheroOrigen, FicheroDestino, PassWord, 1 (o 0 dependiente de si quieres que se encripte comprimido(1) o no(0)), 1 (o 0 dependiendo de si quieres que se sobreescriba el fichero destino(1) o no(0))
Y cuando lo quieras desencriptar, escribes:
Dim xLabel As String
xLabel = chesh.Decode(FicheroOrigenEncriptado, FicheroDestino, PassWordalEncriptarlo, 1, 1)
Estos dos últimos parámetros igual que al encriptar: 1 si quieres que comprima o sobreescriba, 0 si no...
Si sigues con líos, a tu disposición...
