Ejemplos usando el Api de windows para Visual basic

165 - Encriptar un fichero en XP con el Api

Ejemplo de las funciones EncryptFile y DecryptFile para poder cifrar un fichero en Windows XP

Estas dos funciones permiten cifrar y desencriptar un archivo. Utiliza la opción " Cifrar Datos " de la ficha opciones avanzadas del menú propiedades al seleccionar un fichero

vista de la ficha de ociones avanzadas para los archivos en windows xp

Nota: Los archivos una ves encriptados, solo estarán cifrados para los distintos usuarios del sistema, es decir que el usuario logueado que encriptó el fichero, lo seguirá viendo normalmente sin cifrar.

El único cambio que verá es que el fichero se resalta de color

vista del archivo cifrado resaltado de color

Otro usuario del sistema, si intenta abrir el fichero, le aparecerá un Msgbox de " Acceso denegado "

Nota: las dos funciones retornan True si no hubo errores

Colocar dos CommandButton e indicar el path del archivo

Option Explicit ' Declaraciones Api Private Declare Function EncryptFile Lib _ "ADVAPI32" Alias _ "EncryptFileA" ( _ ByVal lpFileName As String) As Boolean Private Declare Function DecryptFile Lib _ "ADVAPI32" Alias _ "DecryptFileA" ( _ ByVal lpFileName As String, _ ByVal dwReserved As Long) As Boolean Dim Ret As Boolean ' Función para Encriptar el archivo Public Function Encriptar_Archivo(ByVal Path_Archivo As String) As Boolean Encriptar_Archivo = EncryptFile(Path_Archivo) End Function Public Function Desencriptar_Archivo(ByVal Path_Archivo As String) As Boolean Desencriptar_Archivo = DecryptFile(Path_Archivo, 0) End Function ' Botón que Encripta Private Sub Command1_Click() Ret = Encriptar_Archivo("c:\Libro1.xls") ' Ok If Ret Then MsgBox " Archivo cifrado correctamente", vbInformation Else ' Error MsgBox " Error", vbCritical End If End Sub ' Botón que DesEncripta Private Sub Command2_Click() Ret = Desencriptar_Archivo("c:\Libro1.xls") If Ret Then 'Ok MsgBox " Archivo descifrado correctamente", vbInformation Else 'Error MsgBox " Error", vbCritical End If End Sub Private Sub Form_Load() Command1.Caption = " Encriptar " Command2.Caption = " Desencriptar " End Sub

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb