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
![Hosting Windows - ASP.NET - SQl Server 2005 - Joomla - WordPress](http://www.winnethost.com/img/publicidad.png)
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.