Android Question secure save for sensitive data

Sub Process_Globals
    Dim Status1 As String
    Dim Status2 As String
    Dim Status3 As String
    Dim Status4 As String
    Dim Status5 As String
    Dim Status6 As String
    Dim Status7 As String
    Dim Status8 As String
End Sub

'start-up code
RndSeed(2025)
'more start-up code
Status1 = Chr(Rnd(49, 85))
'even more start-up code
Status2 = Chr(Rnd(54, 115))
'yet more start-up code
Status3 = Chr(Rnd(40, 75))
'too much start-up code
Status4 = Chr(Rnd(69, 105))
'never enough start-up code
Status5 = Chr(Rnd(68, 100))
'who let the start-up code out
Status6 = Chr(Rnd(72, 109))
'now is the time
Status7 = Chr(Rnd(45, 107))
'for all good start-up code
Status8 = Chr(Rnd(42, 116))
'to come to the aid of the program

Log(Status1 & Status2 & Status3 & Status4 & Status5 & Status6 & Status7 & Status8)

'Returns Encrypted data as a base64 string
Sub EncryptText(text As String, password As String) As String
    #If B4i
        Dim c As Cipher
    #Else
        Dim c As B4XCipher
    #End If
    Dim Str As StringUtils
    Return    Str.EncodeBase64(c.Encrypt(text.GetBytes("utf8"), password))
    'Return Str.EncodeBase64(c.Encrypt(c.Encrypt(text.GetBytes("utf8"), password), password))   'If we want to double
End Sub

'Decrypts Encrypted base64 string
Sub DecryptText(EncryptedData As String, password As String) As String
    'Log("PASSWORD: " & password)
    #If B4i
        Dim c As Cipher
    #Else
        Dim c As B4XCipher
    #End If
Try
    Dim Str As StringUtils
    Dim b() As Byte = c.Decrypt(Str.DecodeBase64(EncryptedData), password)
    Return BytesToString(b, 0, b.Length, "utf8")
Catch
    Log($"DecryptText ${LastException}"$)
    #If Debug
        Log(EncryptedData)
    #End If
    Return "Bad Decrypt!"
End Try
End Sub