Utilizando La Libreria de Craig Boyd VfpEncryption71.fll

[Ivan Jaramillo Gonzalez]

Hola, Buenas Noches Grupo y Maestros, EWstoy Necesitando Guardar una Información Encriptada, e Investigando, Encontre La Libreria del Maestro Craig, El Proceso de Encriptación Lo Hace Perfecto, Encripta Sin Algun Problema, Pero Al Usar la Instrucción de Des-Encriptación saca Error, Alguien Sabe El Porquê ó Como Corregtirlo?, ó en su Defecto, Una Libreria de Encriptación, De Antemano Muchas Gracias por sú Tiempo y Asesoria!

Ivan Jaramillo Gonzalez

Indusoftware & Redes

Código Utilizado:

cSecretKey                 =        'IJGHC_1963_2022'
nEncryptionMode     =        1

cStringtoEncrypt        =      ; SERIAL_DISK_NUMBER('F')+ALLTRIM(Administrador_Aplicaciones.Adminis_Aplic_Npmbre_Aplicación)

Var_Encrypt                        =        Encrypt(cStringtoEncrypt, cSecretKey, nEncryptionType, nEncryptionMode)

Aqui Encripta Correctamente la Información.

Pero Al Utilizar La Instrucción

Var_Encrypt                        =        Decrypt(cStringtoEncrypt, cSecretKey, nEncryptionType, nEncryptionMode)

Esta Instrucción Genera Un Error

Algu

[Marcelo Barberis]

Hay otras herramientas q puedes usar, md5, blosfish, sha1, y otras mas, existe una clase q contiene varias de esta con documentacion para implementar

--
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/cd293459-4aa5-4437-bd37-68e83df4d142n%40googlegroups.com.

[Cristian Novoa]

[Ivan Jaramillo Gonzalez]

Alguna Documentación para Esa Clase?

[Cristian Novoa]

*------------------------------------------------------------------------------------------------------
FUNCTION encriptar(tcCadena)

loAes=CREATEOBJECT("seguridad.aes")                &&seguridad.Blowfish

RETURN loAes.codificar(tcCadena, cCLAVE_ENCRIP)                &&codificarBlowfish

*------------------------------------------------------------------------------------------------------
FUNCTION desencriptar(tcCadena)

loAes=CREATEOBJECT("seguridad.aes")

RETURN loAes.decodificar(tcCadena, cCLAVE_ENCRIP)        &&decodificarBlowfish

[Ivan Jaramillo Gonzalez]

Gracias Novo, Muy Gentil por Tú Tiempo y Asesoria

[Marcelo Barberis]

mira esta clase estan varias y con documentacion para que puedas implementar incluso aes como el que te pasaron

https://www.mediafire.com/file/taxso8nu6mr6w1t/Clase_Seguridad.rar/file

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/17ea0a67-81ea-417e-abec-94324dc84ffen%40googlegroups.com.

--

Marcelo Barberis Gutierrez
Sistemas Informaticos
Villa Montes - Bolivia
Telef.: +591-76830544

[jorgeg...@gmail.com]

Yo uso la clase blowfish.vcx y funciona perfecto...