3 [ -n "$include_session" ] && return 0
6 if ! which uuencode >/dev/null; then
7 uuencode() { busybox uuencode "$@"; }
9 if ! which sha256sum >/dev/null; then
10 sha256sum() { busybox sha256sum "$@"; }
14 SESSION_TIMEOUT="${SESSION_TIMEOUT:-7200}"
17 IDFILE="${IDFILE:-${_DATA:-.}/serverkey}"
18 if [ "$(stat -c %s "$IDFILE")" -ne 512 ] || ! cat "$IDFILE"; then
19 dd count=1 bs=512 if=/dev/urandom \
25 # 6-Bit Code that retains sort order of input data, while beeing safe to use
26 # in ascii transmissions, unix file names, HTTP URLs, and HTML attributes
30 y;ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/;0123456789:=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz;
36 [ $# -eq 0 ] && info="$(cat)" || info="$*"
38 if which openssl >/dev/null; then
39 printf %s "$info" |openssl dgst -sha1 -hmac "$(server_key)" -binary |slopecode
41 { printf %s "$info"; server_key; } |sha256sum |cut -d\ -f1
46 dd bs=12 count=1 if=/dev/urandom 2>&- \
51 d=$(($_DATE % 4294967296))
54 $((d / 16777216 % 256)) \
55 $((d / 65536 % 256)) \
59 dd bs=8 count=1 if=/dev/urandom 2>&-
63 checkid(){ grep -m 1 -xE '[0-9a-zA-Z:=]{16}'; }
66 # transaction ID to modify a given file
68 session_mac "$(stat -c %F%i%n%N%s%Y "$file" 2>&-)" "$SESSION_ID"
72 local session sid time sig checksig
74 read -r sid time sig <<-END
75 $(POST session_key || COOKIE session)
78 checksig="$(session_mac "$sid" "$time")"
80 if ! [ "$checksig" = "$sig" \
81 -a "$time" -ge "$_DATE" \
82 -a "$(printf %s "$sid" |checkid)" ] 2>&-
84 debug "Setting up new session"
88 time=$(( $_DATE + $SESSION_TIMEOUT ))
89 sig="$(session_mac "$sid" "$time")"
90 printf %s\\n "${sid} ${time} ${sig}"
93 SESSION_KEY="$(update_session)"
94 SET_COOKIE 0 session="$SESSION_KEY" Path=/ SameSite=Strict HttpOnly
95 SESSION_ID="${SESSION_KEY%% *}"
98 local key="$1" value="$2"
99 SET_COOKIE session "$key"="${value} $(session_mac "$value" "$SESSION_ID")"
105 value="$(COOKIE "$key")"
106 sig="${value##* }" value="${value% *}"
107 if [ "$sig" = "$(session_mac "$value" "$SESSION_ID")" ]; then
108 printf %s\\n "$value"