Spanish Encriptar en BJ4 y desencriptar en Visual Basic

Heppy said:

date una vuelta por aqui:
http://www.motobit.com/tips/detpg_Base64Encode/

Y este es el online para que verifiques tu cadena
http://www.motobit.com/util/base64-decoder-encoder.asp

Click to expand...

desof said:

Hola amigos a ver si alguien me ayuda necesito crear un file de texto con informacion importante que quiero escribirla encriptada de este modo por ejemplo :

B4X:

Sub GuardarFileInfo
    Dim B64 As Base64
    Dim test, b64str As String

    test = "TEXTO A ENCRIPTAR"
    b64str = B64.EncodeStoS(test, "UTF8")
    Msgbox.Show(b64str, "Base64 encoded")
    Msgbox.Show(B64.DecodeStoS(b64str, "UTF8"), "Base64 decoded")
    File.WriteString(File.DirApp  , "INFO.txt",  CAD)

End Sub

Ese resultado me devuelve un archivo llamado info.txt con esta cadena encriptada:
VEVYVE8gQSBFTkNSSVBUQVI=


AHORA COMO DESENCRIPTO ESA CADENA DESDE VISUAL BASIC POR QUE NO CONOZCO EL METODO QUE ENCRIPTA Y NO CONOZCO OTRA FORMA DE HACERLO DESDE B4J..


Alguna idea por favor?

Click to expand...