Sección de controles Ocx para Visual basic , Dll , Activex

52 - Varios ejemplos ( OCX, DLLs y módulos ) para encriptar archivos

<Volver> - Anterior - Siguiente



 

 

Contenido:

 

 

 

 


1 - DLL Activex

Este ejemplo utiliza un ocx y una DLL gratuita creada por Seve Robins que permite encriptar y desencriptar cualquier tipo de archivos.

Vista previa:

Vista del ejemplo que acompaña el Zip que utiliza un ocx que permite encriptación de archivos

 

Para encriptar se utiliza el método EnCrypt. para desencripar se usa DeCrypt

El ejemplo que está en el Zip, lee en un control RichTextBox el contenido de un archivo txt que está en la carpeta. Luego, al presionar el botón Encriptar, el resultado se visualiza en otro control RichTextBox.

Por último para desencriptar el contenido del RichTextbox2, se muestra un MsgBox con el resultado.

Nota: Yo lo he probado encriptando un archivo binario, precisamente un fichero de tipo .bmp. Si bien esto se puede hacer con las funciones de vb Open Binary read y write para leer y escribir la cadena encriptada y desencriptada (lo ideal), yo lo hice de una forma rápida para hacer la prueba y ver si funcionaba bien con el control RichtextBox, usando los métodos LoadFile y SaveFie del control Richtext.

Si lo probás usando el RichText, tené en cuenta que una ves desencriptado el fichero binario, al guardarlo con saveFile, debes especificar en el parámetro del Rich (vFlags) el valor 1 (binario), si es un archivo de texto plano, no es necesario indicar nada en ese parámetro.

Importante: Registrar la dll y el ocx en el sistema para que funcione.

Descargar ocx y dll

 


2 - Control Ocx Binary converter

Este control tiene dos métodos , uno llamado TextToBinary que permite pasar un texto a binario, y otro método para realizar el procedimiento inverso , llamado BinaryToText

Ejemplos :

Para poder encriptar datos y guardarlo en un fichero :

    Dim ret As String
    ' Crea un nuevo archivo
    Open "c:\archivo.txt" For Output As #1
    ' ejecuta el método para pasarlo a binario
    ret = binary1.TextToBinary("Datos a encriptar")
    ' escribe en el fichero
    Print #1, ret
    Close #1 ' cierra  

 

Para hacer el proceso inverso con el método BinaryToText

    Dim datos As String

    Open "c:\archivo.txt" For Input As #1
    ' lee el contenido de Archivo.txt
    Input #1, datos
    ' visualiza los datos desencriptados en un control Text1
    Text1.Text = binary1.BinaryToText(datos)
    
    Close #1 ' cierra 

 

Nota: El control también tiene un método llamado IsBinary, que devuelve True/False para poder saber sin un archivo es binario

 

Descargar ocx - Binary converter

 


3 - Módulo de clase para encriptado y desencriptado de archivos de texto

Este módulo llamado ClsCrypto , es programado por Microsoft, y permite mediante una serie de métodos , encriptar y desencriptar ficheros de texto, y también crearle una clave o password para poder desencriptarlo

 

Form de ejemplo:

 

Descargar módulo

 


4 - Método Cipher

Módulo de clase con ejemplo en visual basic, para poder encriptar y desencriptar un fichero utilizando el algoritmo de cifrado Cipher.

Formulario de prueba

 

Descargar proyecto

 


Ultra File

Programa Freeware que incluye el código fuente realizado en vb 6 por D. Rijmenants , para encriptación de archivos

Los archivos son comprimidos y cifrados utilizando el algoritmo ULTRA v1.0.3

Descargar

vista previa del programa

 


Enlaces relacionados

 


Buscar en Recursos vb con Google