Spanish (SOLUCIONADO) ¿Como puedo encriptar un String en un archivo de texto?

Sub Globals
    Dim dir_file_conf As String = File.DirInternal
    Dim name_file_conf As String = "settings.txt"
End Sub

Sub Activity_Create(FirstTime As Boolean)
    write_conf( "Kyle" , "123456" )
    read_conf
End Sub

Sub write_conf(name As String, password As String)
    Dim map_conf As Map
    map_conf.Initialize
    map_conf.Put("name",name)
    map_conf.Put("password",password)
   
    File.WriteMap( dir_file_conf , name_file_conf , map_conf )
End Sub

Sub read_conf()
    Dim map_conf As Map = File.ReadMap( dir_file_conf , name_file_conf )
   
    Log( "name: " & map_conf.get("name") )
    Log( "password: " & map_conf.get("password") )
End Sub

Sub getList As List  
    Dim raf As RandomAccessFile
    Dim list As List
    list.Initialize
    raf.Initialize(File.DirInternal,archiveName,False)
    list = raf.ReadEncryptedObject(encriptionText,0)
    raf.Close
    Return list
End Sub  

Sub saveList (list As List)
    Dim list_ As List = list
    list_.SortTypeCaseInsensitive("Title",True)
    Dim raf As RandomAccessFile
    raf.Initialize(File.DirInternal,archiveName,False)
    raf.WriteEncryptedObject(list_,encriptionText,0)
    raf.Close
End Sub

Sub Process_Globals
    Public kvs As KeyValueStore
End Sub

Sub Service_Create
    kvs.Initialize(File.DirInternal, "kvs")
End Sub

Sub Activity_Create(FirstTime As Boolean)
    If Not(Starter.kvs.ContainsKey("email")) Then 'Previamente en el login, habré hecho por ejemplo: starter.kvs.put("email", userEmail)
        auth.Initialize("auth")
        Logueado = False
        Activity.LoadLayout("Login")
        Activity.Title = "Login"
    Else
        CargarMenus
    End If
End Sub

'***********************************************************
'* Cripto() Encripta/Desencripta un String simple          *
'*    Recibe: cTxt ---> Texto a Encriptar                  *
'*                 ---> TextoBase64 a desencriptar         *
'*            cTipo --> "E" Encriptar / "D" Desencriptar   *
'* Retorna: un String (compatible con archivos.txt)        *
'******************************************** 06-05-2020 ***
Public Sub Cripto(cTxt As String, cTipo As String) As String
    Dim c As B4XCipher
    Dim su As StringUtils
    Dim e() As Byte
    If cTipo = "E" Then
        Log("Texto a Encriptar: " & cTxt)
        e = c.Encrypt(cTxt.GetBytes("utf8"),"xpenfWv")
        Return su.EncodeBase64(e)
    Else If cTipo = "D" Then
        Log("Texto a Desencriptar: " & cTxt)
        e = su.DecodeBase64(cTxt)
        If e.Length = 0 Then Return ""
        e = c.Decrypt(e,"xpenfWv")
        Return BytesToString(e, 0, e.Length, "utf8")
    Else
        Return cTxt
    End If
End Sub