Spanish Encriptar en BJ4 y desencriptar en Visual Basic

[desof]

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 :

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?

 

[Heppy]

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

Decode
http://www.motobit.com/tips/detpg_base64/

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

 

[desof]

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

Genial!!! muchas gracias!!!

 

[magoandroid]

date una vuelta por aqui (VB6):
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=37811&lngWId=1

 

[clarionero]

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 :

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?

Hola. No creo que sea demasiado seguro ese metodo de "encriptacion". Solo lo estas codificando, y cualquiera que conozca la codificacion en Base64 lo notara a la legua.

Rubén