proquint: adding quint-password

diff --git a/extra/proquint/proquint.factor b/extra/proquint/proquint.factor
index cf5a9f30edcd955191d7977fcefb3c9352df5ea1..27d5949c3680b7f588948b534553b5bbbefd0430 100644 (file)
--- a/extra/proquint/proquint.factor
+++ b/extra/proquint/proquint.factor
@@ -27,6 +27,9 @@ PRIVATE>
 : >quint32 ( m -- str )
     [ -16 shift ] keep [ 16 bits >quint16 ] bi@ "-" glue ;
 
+: >quint48 ( m -- str )
+    { -32 -16 0 } [ 16 shift-mod >quint16 ] with map "-" join ;
+
 : >quint64 ( m -- str )
     { -48 -32 -16 0 } [ 16 shift-mod >quint16 ] with map "-" join ;
 
@@ -46,6 +49,9 @@ PRIVATE>
         ] if*
     ] reduce ;
 
+: quint-password ( -- quint )
+    48 random-bits >quint48 ;
+
 : ipv4>quint ( ipv4 -- str )
     ipv4-aton >quint32 ;