From f406e9271c5ff8bba30822d8246e2ad449627969 Mon Sep 17 00:00:00 2001 From: Anthony Fairchild Date: Sat, 21 Jun 2025 11:55:18 -0400 Subject: [PATCH] Make web token more secure --- source/clog-web-dbi.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/source/clog-web-dbi.lisp b/source/clog-web-dbi.lisp index 6e457d2..6ae07ff 100644 --- a/source/clog-web-dbi.lisp +++ b/source/clog-web-dbi.lisp @@ -196,7 +196,8 @@ if one is present and login fails." (defun make-token () "Create a unique token used to associate a browser with a user" - (get-universal-time)) + (crypto:byte-array-to-hex-string + (crypto:random-data 16))) ;;;;;;;;;;;;;;;;;;;;;;; ;; create-base-table ;;