totp: ignore spaces in the key string

diff --git a/extra/totp/totp.factor b/extra/totp/totp.factor
index ab5c2efee44f05885a11d6ea8fc1db81af8c65ec..e0d7590b606c3b34d5b8fcf9ee4b1355ae9040c2 100644 (file)
--- a/extra/totp/totp.factor
+++ b/extra/totp/totp.factor
@@ -29,5 +29,5 @@ PRIVATE>
     [ number>string ] dip [ CHAR: 0 pad-head ] keep tail* ;
 
 : totp ( key -- string )
-    dup string? [ >upper base32> ] when
+    dup string? [ [ CHAR: space = ] reject >upper base32> ] when
     now timestamp>count swap totp-hash get totp* totp-digits get digits ;