Use pass instead of token

Author: ericdallo

src/eca/remote/auth.clj

@@ -7,13 +7,14 @@
 
 (set! *warn-on-reflection* true)
 
+(def ^:private alphanumeric "abcdefghijklmnopqrstuvwxyz0123456789")
+
 (defn generate-token
-  "Generates a cryptographically random 32-byte hex token (64 characters)."
+  "Generates a random 5-character alphanumeric password."
   []
   (let [random (SecureRandom.)
-        bytes (byte-array 32)]
-    (.nextBytes random bytes)
-    (apply str (map #(format "%02x" (bit-and % 0xff)) bytes))))
+        len (count alphanumeric)]
+    (apply str (repeatedly 5 #(nth alphanumeric (.nextInt random len))))))
 
 (def ^:private unauthorized-response
   {:status 401

src/eca/remote/handlers.clj

@@ -87,9 +87,9 @@
      :trust (boolean (:trust db))
      :selectedVariant selected-variant}))
 
-(defn handle-root [_components _request {:keys [host token]}]
+(defn handle-root [_components _request {:keys [host password]}]
   {:status 302
-   :headers {"Location" (str "https://web.eca.dev?host=" host "&token=" token)}
+   :headers {"Location" (str "https://web.eca.dev?host=" host "&pass=" password)}
    :body nil})
 
 (defn handle-health [_components _request]

src/eca/remote/routes.clj

@@ -21,7 +21,7 @@
         segments (path-segments (:uri request))]
     (case segments
       [] (when (= :get method)
-           [handlers/handle-root components request {:host @host* :token token}])
+           [handlers/handle-root components request {:host @host* :password token}])
 
       ["api" "v1" "health"]
       (when (= :get method)

src/eca/remote/server.clj

@@ -81,7 +81,7 @@
                 heartbeat-ch (sse/start-heartbeat! sse-connections*)
                 connect-url (str "https://web.eca.dev?host="
                                  host-with-port
-                                 "&token=" token)]
+                                 "&pass=" token)]
             (logger/info logger-tag (str "🌐 Remote server started on port " actual-port))
             (logger/info logger-tag (str "🔗 " connect-url))
             {:server jetty-server