Matter support for password for remote Tasmota devices (#20296)

lib/libesp32/berry_matter/src/embedded/Matter_HTTP_async.be

@@ -31,6 +31,7 @@ class Matter_HTTP_async : Matter_TCP_async
   # var tcp                                         # instance of tcpclientasync
   # var time_start                                  # timestamp when starting connection
   # var tcp_connected                               # is tcp connected, true/false/nil (nil is in-progress)
+  var auth                                        # web authentication string (Basic Auth) or `nil`, in format `user:password` as bade64
   var cmd                                         # GET url command
   var response                                    # aggrated response
   var response_offset                             # offset to parse in response
@@ -42,8 +43,16 @@ class Matter_HTTP_async : Matter_TCP_async
   var phase                                       # parsing phase: 0/ status line, 1/ headers, 2/ payload chunked
   var is_chunked                                  # true if the content is chunked
   var chunk_size                                  # nil or int, size of the current chunk
-  static var HTTP_GET = "GET %s HTTP/1.1\r\nHost %s:%s\r\nConnection: close\r\n\r\n"    # see https://stackoverflow.com/questions/6686261/what-at-the-bare-minimum-is-required-for-an-http-request
+  static var HTTP_GET = "GET %s HTTP/1.1\r\n"     # see https://stackoverflow.com/questions/6686261/what-at-the-bare-minimum-is-required-for-an-http-request
+                        "Host %s:%s\r\n"
+                        "Connection: close\r\n"
+                        "\r\n"
 
+  static var HTTP_GET_AUTH =  "GET %s HTTP/1.1\r\n"     # same with auth
+                              "Host %s:%s\r\n"
+                              "Authorization: Basic %s\r\n"
+                              "Connection: close\r\n"
+                              "\r\n"
   static var HTTP_STATUS_REGEX = "HTTP/1\\.[0-1] (\\d+) .*?\r\n"    # extract stattus code from first line
   static var HTTP_HEADER_REGEX = "([A-Za-z0-9-]+): (.*?)\r\n"       # extract a header with its 2 parts
   static var HTTP_BODY_REGEX   = "\r\n"                             # end of headers
@@ -53,6 +62,15 @@ class Matter_HTTP_async : Matter_TCP_async
   #############################################################
   # init
   def init(addr, port, timeout, fastloop)
+    # extract auth from add first
+    import string
+    addr = str(addr)      # force string
+    var x = string.find(addr, "@")
+    if x >= 0
+      self.auth = bytes().fromstring(addr[0 .. x-1]).tob64()
+      addr = addr[x+1 .. ]
+    end
+    # `addr` is cleaned from authentication information
     super(self).init(addr, port, timeout, fastloop)
     self.compile_re()
   end
@@ -253,7 +271,13 @@ class Matter_HTTP_async : Matter_TCP_async
       addr = "[" + addr + "]"       # IPv6 must be enclosed in brakets
     end
 
-    var req = format(self.HTTP_GET, self.cmd, addr, self.port)
+    var req
+    if (self.auth == nil)
+      req = format(self.HTTP_GET, self.cmd, addr, self.port)
+    else
+      # use AUTH information
+      req = format(self.HTTP_GET_AUTH, self.cmd, addr, self.port, self.auth)
+    end
     var ret = self.write(req)
     if ret != size(req)
       # print("Could not send","size=",size(req),"ret=",ret)