Base64 en Clarion

[Jaaljuba]

Hola a todos, alguien tiene implementado este tipo de algoritmo para encriptación y desencriptación en Clarion.

Mil gracias de antemano por los tips aportados.

[Mariow]

Aca estan las librerias de c++ y como usarlas en clarion
http://sqlkey.com/base64encode.htm

[Jaaljuba]

Mario, mil gracias voy a mirarlo a ver como me va.

[jjaquez]

Hola a todos, alguien tiene implementado este tipo de algoritmo para encriptación y desencriptación en Clarion.

Mil gracias de antemano por los tips aportados.

si solo quieres convertir a base64 este es el algoritmo
es la que utilizo en mis facturas electrónicas

saludos

Crea una funcion que se llama FE_Base64 con los siguientes parametros

!FE_Base64(string),string Recibe un texto y lo conviete en Base64
!Recibe: pTexto ! Texto
!Regresa: textoBase64 ! Texto en Base64 elimina todos los caracteres no permitidos
!Caracteres permitidos 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/' & '='
!jjl 22/Jul/2010

mTextoB64=''
loop x# = 1 To Len(pTexto)
mCarac=SUB(pTexto,x#,1)
if instring(mCarac, 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/' & '=',1,1) > 0
mTextoB64=mTextoB64 & mCarac
end
end
return mTextoB64