B4J Question WebsocketClient Authorization

Dim UpgradeRequest As JavaObject
UpgradeRequest.InitializeNewInstance("org.eclipse.jetty.websocket.client.ClientUpgradeRequest", Null)
UpgradeRequest.RunMethod("setHeader", Array("key", "value"))
ws.Connect2(Url, UpgradeRequest)

srvr.AddFilter("/*", "BasicAuthenticationFilter", False)

'Return True to allow the request to proceed.
Public Sub Filter(req As ServletRequest, resp As ServletResponse) As Boolean
    If req.GetSession.GetAttribute2("logged in", False) = True Then Return True
    If req.RequestURI="/ws" Then
        Return True
    Else
        Dim auths As List = req.GetHeaders("Authorization")
        If auths.Size = 0 Then
            resp.SetHeader("WWW-Authenticate", $"Basic realm="Realm""$)
            resp.SendError(401, "authentication required")
            Return False
        Else
            If CheckCredentials(auths.Get(0)) Then
                req.GetSession.SetAttribute("logged in", True)
                Return True
            Else
                resp.SendError(401, "authentication required")
                Return False
            End If
        End If
    End If
End Sub

Dim cred As String
cred = username&":"&pass
Dim su As StringUtils
Dim encoded As String
encoded = su.EncodeBase64(cred.GetBytes("UTF8")) 'data is a bytes array

ws.Headers = CreateMap("Authorization":"Basic "&encoded)
ws.Connect(Url)