[B4X] Converter Base64 Para String, String Para Base64, Validar se é Base64

[Lucas Siqueira]

Sub isBase64(text As String) As Boolean
    If Regex.IsMatch("^([A-Za-z0-9+/]{4})*([A-Za-z0-9+/]{4}|[A-Za-z0-9+/]{3}=|[A-Za-z0-9+/]{2}==)$", text) And text.Length > 3  Then
        Return True
    Else
        Return False
    End If
End Sub

Sub converterStringBase64(text As String) As String
    Private su As StringUtils
    Private b() As Byte = text.GetBytes("UTF8")
    Return su.EncodeBase64(b)
End Sub

Sub converterBase64String(text As String) As String
    Private su As StringUtils
    Dim b() As Byte = su.DecodeBase64(text)
    Return BytesToString(b, 0, b.Length, "UTF8")
End Sub

Créditos: @Douglas Farias (código isBase64)


lembre-se: Converter bitmap para base64 utilize Base64EncodeDecodeImage desenvolvido por @MarcoRome