Sección de controles Ocx para Visual basic , Dll , Activex
<Volver> - Anterior - Siguiente
Contenido:
Este ejemplo utiliza un ocx y una DLL gratuita creada por Seve Robins que permite encriptar y desencriptar cualquier tipo de archivos.
Vista previa:
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.
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
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:
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
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
vista previa del programa
Buscar en Recursos vb con Google
Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2009 - www.recursosvisualbasic.com.ar