Aug 22
oCrypt =
NEWOBJECT("_cryptapi",HOME()+"ffc\_crypt.vcx")cEncryptedString = []cEncryptedString2 = []
oCrypt.encryptSessionStreamString(
"Encriptando Texto","clave", @cEncryptedString)Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
28 Jul 2008 17:28
Saludos Amigo David, tiempo sin hablar contigo muy buena tu nueva pagina, voy agregar un comentario sobre la clase o mejor dicho anexarle como desencriptar espero sirva de algo a los amigos programadores, lo que hice fue una funcion para tener todo a la mano aqui se ls dejo.
FUNCTION cryptapi
PARAMETERS ACCION,CADENA,CLAVE
*LA IDEA ES PASAR COMO PARAMETRO LA ACCION QUE SE DESEA HACER seguido de el resto de los parametros
*EJEMPLO, cryptapi('ENCRITAR','Texto','Encriptando Texto','clave')
STORE '' TO cEncryptedString,pcDecryptedString,cDevuelve
oCrypt = NEWOBJECT("_cryptapi",HOME()+"ffc\_crypt.vcx")
IF UPPER(ACCION) = [ENCRIPTAR]
*Como la clase devuelve .T. si todo sale bien me curo en salud y utilizo un If para estar seguro que se ejecuto todo bien
*(No es necesario colocar el If es a criterio de cada quien)
IF oCrypt.encryptSessionStreamString(CADENA,CLAVE,@cEncryptedString)
cDevuelve = cEncryptedString
ENDIF
ELSE
*Como la clase devuelve .T. si todo sale bien me curo en salud y utilizo un If para estar seguro que se ejecuto todo bien
*(No es necesario colocar el If es a criterio de cada quien)
IF oCrypt.DecryptSessionStreamString(CADENA,CLAVE, @pcDecryptedString)
cDevuelve = pcDecryptedString
ENDIF
ENDIF
*Ejemplo de utilizacion de la Funcion
*cryptapi("ENCRIPTAR","Encriptando Texto","clave")
*Esto devolveria algo como •äë,˜¹ì“;Ù§S‚ó
*cryptapi("DESENCRIPTAR,"•äë,˜¹ì“;Ù§S‚ó","clave")
*Esto devolveria "Encriptando Texto"
RETURN (cDevuelve)
28 Jul 2008 18:05
Hola Carlos, mucho tiempo sin conversar.
Gracias por tu aporte.