picolisp

commit 1dfae185cc0f18822b9098d67a7d40489bb10af7
parent 8c24a007eca6f73a8370e4e5a2a804c62bd41d7b
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed, 15 May 2013 09:21:12 +0200

pil32 assword encryption: Forgot (salt)
Diffstat:
M
lib/adm.l
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/adm.l b/lib/adm.l
@@ -1,4 +1,4 @@
-# 13may13abu
+# 15may13abu
 # (c) Software Lab. Alexander Burger
 
 # *Salt *Login *Users *Perms
@@ -25,7 +25,7 @@
 (de passwd (Str Salt)
    (nond
       (*Salt Str)
-      (native (ext:Crypt Str Salt))
+      (native (ext:Crypt Str (or Salt (salt))))
       (NIL (native "libcrypt.so" "crypt" 'S Str (or Salt (salt)))) ) )
 
 (de auth (Nm Pw)