| Usuario |
ENCRIPTACION |
Desconocido
|
| Enviado - 26/5/2003 |
| |
| Como encriptar cualquier tipo de archivos desde una aplicación, porfavor codigo y sugerencias. |
| |
|
Zell
122 Mensaje(s)
|
| Enviado - 26/5/2003 |
| |
Una forma sencilla aunque no mut rapida seria la de abrir el archivo con la instruccion open, luego aolicarle un proceso de enccirptacion made in visual y finalmente guardar el nuevo contenido encriptado (con una nueva extencion si se quiere).
bien en cuento al codigo ahi va:
'Para abrir el archivo y almacenarlo en una variable
Dim tmp as string
Open DireccionDeArchivo for input as #1
tmp = input(LOF(#1),#1)
close #1
'Aplicas el proceso de encriptación
Call Encriptar(tmp)
'Guardas el nuevo archivo
Open DireccionDeArchivo for Output as #1
Print #1, tmp
close #1
como te daras cuenta la llamada call encriptar se trata ed la funcion que realisa la funcion de encriptar...
el codigo de esta funcion lo puedes bajar de diversos lugares y puede variar dependiendo del nivel o calidad con que desees encriptar el archivo. si no consigues ninguno enviame un mail o bien dejalo dicho en el foro, y tratare de pasarte una funcion que realice la ya mencionada funcion.
[email protected]
zell |
| |
|
|
|
