Maybe you can try the solution suggested in my question for encryption-decryption.

URL: https://community.appeon.com/index.php/qna/q-a/encryption-decryption-not-working

Thanks!

Hi Bala,

There is no encoded value saved in the ini file in your sample code so the value decoded is not as you expected.
If you want to use CoderObject to Encode and Decode, please refer to the following sample:

Blob   lblb_UserID.lblb_UserID1
String ls_Base64UserID
String ls_MyUserID
CoderObject lnv_CoderObject
lnv_CoderObject = Create CoderObject

ls_MyUserID = 'tester'

//Encode the value
lblb_UserID = Blob(ls_MyUserID, EncodingANSI!)
ls_Base64UserID= lnv_CoderObject.Base64Encode(lblb_UserID)
messagebox('Encode Value',ls_Base64UserID)

//Set the encoded value to the ini file
SetProfileString (gs_app.ss_app_ini,"default","username",ls_Base64UserID)

...

//Get the encoded value from the ini file
ls_app_username = ProfileString (gs_app.ss_app_ini,"default","username","")

//Decode the value
lblb_UserID1 = lnv_CoderObject.Base64Decode(ls_app_username)
messagebox("Base64Decode", string(lblb_UserID1, EncodingANSI!))

If you want to encrypt the data, please use CrypterObject as Mike suggested.

Regards,
Ken

to be clear, you are not encrypting.  you are encoding. so that is not secure.

you may want to encrypt it as a blob, then encode the blob so you can store it as text.

for example:

lblb_data = Blob(ls_password, EncodingANSI!)

lblb_key = blob('k3yv@alue!123', encodingansi!)

lblb_encrypt = lnv_CrypterObject.SymmetricEncrypt(AES!, lblb_data, lblb_key) 
ls_64encypt = lnv_CoderObject.Base64Encode(lblb_encrypt)