B4J Code Snippet [B4X] Get JWT Payload (JavaWebToken)

eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJjb2xsZWN0aW9uSWQiOiJfcGJfdXNlcnNfYXV0aF8iLCJleHAiOjE3Mzc4NDc5MjksImlkIjoiNzA4MXNoeDM3YzY3dmUzIiwicmVmcmVzaGFibGUiOnRydWUsInR5cGUiOiJhdXRoIn0.W0ZA6c2_qKhbjjvnUKDJPfO-kU-_prk235_YU8fYBxU

Public Sub GetJWTPayload(Token As String) As Map
    Dim su As StringUtils
    Dim parts() As String = Regex.Split("\.", Token)
    Dim ResultMap As Map
    ResultMap.Initialize
    
    Dim b() As Byte = su.DecodeBase64(IIf(parts(1).Contains("="),parts(1),parts(1) & "="))
    ResultMap.Put("Payload",BytesToString(b, 0, b.Length, "UTF-8").As(JSON).ToMap)
    
    Return ResultMap
End Sub