Share My Creation [B4X] B4XBase64 encode and decode: Made only with B4X code, without external libraries

B4XBase64 encoding and decoding algorithms were developed using B4X code only, without external libraries (StringUtils).
Methods:
. URL encoding and decoding
. Image variable encoding and decoding
. Text variable encoding and decoding
. Image file encoding and decoding
. Text file encoding and decoding
. Base64 encoding and decoding
. Base64-Safe encoding and decoding
. Convert Base64 to Base64-Safe
. Convert Base64-Safe to Base64
. Validates Base64 or Base64-Safe encoding
. Character repeater
. Others
Note: You can combine the use of its methods according to your needs.

    ' Initialize
    Dim Base64 As B4XBase64
    Base64.Initialize

    Log("1.- ************** URL ************** ")
 
    Dim s As String = $"https://www.b4x.com/android/forum/whats-new/posts/4054187/"$
    Log("Encode: " & Base64.URLEncode(s))
    Log("Decode: " & Base64.URLDecode(Base64.URLEncode(s)))
 
    Log("2.- ************** IMAGE ************** ")
 
    Dim BitmapImage As B4XBitmap = xui.LoadBitmap(File.DirAssets, "1.jpg")
    Dim s As String = Base64.ImageEncode(BitmapImage, "jpg") 'or png
    Log("Encode:")
    Log(s)
    Log("Valid: " & Base64.IsValid(s))

    B4XImageView1.Bitmap = Base64.BytesToImage(Base64.Decode(s))
    B4XImageView1.ResizeMode = "FILL"

    Log("3.- ************** TEXT ************** ")
 
    Dim Text As String = "This class was made only with B4X code, without external libraries."
    Dim t As String = Base64.TextEncode(Text)
    Log("Encode:")
    Log(t)
    Log("Valid: " & Base64.IsValid(t))
    Log("Decode: " & Base64.BytesToText(Base64.Decode(t)))
 
    Log("4.- ************** FILE ************** ")
 
    Dim FileBytes() As Byte = Base64.FileToBytes(File.DirAssets, "1.jpg")
    Base64.BytesToFile(xui.DefaultFolder, "1.png", FileBytes)
    Log("Dir File: " & xui.DefaultFolder)
 
    Dim s As String = Base64.Encode(Base64.FileToBytes(xui.DefaultFolder, "1.png"))
    Log("Encode:")
    Log(s)
    Log("Valid: " & Base64.IsValid(s))
 
    Log("5.- **************  REPEAT ************** ")
 
    Log(Base64.Repeat("A",10))
    Log(Base64.Repeat("*",15))
    Log(Base64.Repeat(Chr(36),12))

ex.

Regards.