Encriptar un archivo TXT

237 views
Skip to first unread message

Esteban Micossi

unread,
Mar 2, 2020, 1:27:19 PM3/2/20
to Comunidad de Visual Foxpro en Español
Hola Grupo

Tengo una aplicacion en donde debo enviar un archivo TXT a otra seccion de la institucion mas precisamente a recursos humanos
para que debite de los haberes de los empleados las cuotas por prestamos otorgados a los mismos.

El tema es que se descubrio que a ese TXT los empleados sacaban a quienes ellos no querian que se les debite y cuando ese TXT era
devuelto por RRHH, lo agregaban como que ya se habia descontado, entonces se decidio enviar encriptado ese TXT y el area de RRHH
debia desencriptarlo y procesarlo, luego RRHH devolvia ese TXT tambien encriptado, con las novedades de a quienes se les pudo descontar a quien no.

Entonces necesito saber como puedo encriptar ese TXT. ?

Bueno grupo desde ya muchas gracias

Saludos

Esteban Micossi

carlosmupe

unread,
Mar 2, 2020, 1:47:59 PM3/2/20
to Comunidad de Visual Foxpro en Español
Hola estimado, te recomiendo lo siguiente:

1.- Pudes encriptarlo con la funcion md5 y cada campo de dato separado por ";"
2.- En la primera linea del archivo TXT agregar un encabezado de control de la información, es decir el numero total de registros, montos totales, etc.. asi si alguien altera el archivo ya encriptado tu lo validas con el encabezado.
3.- otra opcion es que en vez de enviar un txt envies un dbf con otra extension, asi nadie sabra que es un dbf y al tener otra extension se abrira ya encriptado o ilegible.


saludos

Carlos Alfaro

unread,
Mar 2, 2020, 2:00:49 PM3/2/20
to publice...@googlegroups.com

Se me ocurre que también puedes empacarlo en un ZIP o similar y colocarle extensión txt.

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/9557b528-0469-46a6-8a08-632bac619ccc%40googlegroups.com.

Esteban H

unread,
Mar 2, 2020, 2:24:43 PM3/2/20
to publice...@googlegroups.com

Podrías utilizar las funciones de encriptación/des encriptación q posee la clase de SweetPotato vfpencryption71.fll

 

https://www.sweetpotatosoftware.com/blog/index.php/2009/08/09/major-vfp-encryption-update/

 

Saludos

 

Esteban

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Oscar Quiros Coto

unread,
Mar 2, 2020, 3:50:00 PM3/2/20
to Comunidad de Visual Foxpro en Español
Yo lo haría de la siguiente manera
el archivo original es eti.txt lo encripto a file.txt lo envio, luego del otro lado des-encripto el file.txt 
yo lo utilizo mucho para consumir webservice encapsulado en un json y funciona muy bien, porque el base64 es estandar.

Espero te funcione.

**** encriptar
elstr= Strconv(Filetostr('eti.txt'),13)
STRTOFILE(elstr,'file.txt')


**** des-encriptar
pRespuesB64=FILETOSTR('file.txt')
lc_respuesta = Strconv(Strconv(pRespuesB64,14),11)
elfile=GETENV("TEMP")+"\decodifica64.txt"
STRTOFILE(lc_respuesta ,elfile)
MODIFY COMMAND &elfile

Esteban Micossi

unread,
Mar 2, 2020, 6:13:46 PM3/2/20
to Comunidad de Visual Foxpro en Español
Hola Amigos

Bueno gracias a todos que se dispusieron a ayudarme.

Voy a intentar de las distintas maneras que me lo suguieren.

Yo tengo un encriptador propio, pero es para una expresion, no para todo el archivo TXT.

Pondre en practica y les aviso como anduvo.

Inclusive, a este TXT encriptado, debe manejarlo el sistema, por que de nada me sirve que lo desencripte en otro TXT, va aquedar abierto.

Muchas gracias

Saludos

Esteban M.

Esteban Micossi

unread,
Mar 2, 2020, 8:24:51 PM3/2/20
to Comunidad de Visual Foxpro en Español
Bien Muchachos

He probado la rutina de Oscar Quiros Coto y anduvo espectacular, tanto la encriptacion como la desencriptacion.

Es la misma que usa la AFIP para encriptar los archivos que hay que enviar cuando se presenta una DDJJ.

Bueno muchas gracias a todos.

Les dejo amplios saludos

Atte

Esteban Micossi

Jose Antonio Blasco

unread,
Mar 3, 2020, 12:29:51 PM3/3/20
to Comunidad de Visual Foxpro en Español
Buenas tardes,
Yo también he probado la rutina de Oscar Quiros y me surge la siguiente duda:
Tras comparar el archivo que encripto, con el archivo resultante al desencriptar, resulta que hay diferencias en su codificación.
Si en la desencriptación, quito en "STRCONV(......... , 11)",  entonces el fichero inicial  para encriptar con el resultante de desencriptar son idénticos.
¿Alguien me puede aclarar que es lo correcto?

Saludos.

Jose A. Blasco
Zaragoza - España
Visual FoxPro 9 SP2



--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Reply all
Reply to author
Forward
0 new messages