steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

totp[-docs]: accept TOTP keys in Base 32 encoding 

Base 32 is the encoding, in which keys are given to Google Authenticator.
master
Alexander Iljin 2020-07-29 18:48:18 +02:00 committed by John Benediktsson
parent 92b7c32e19
commit 5d0827ed4e
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/totp/totp-docs.factor
View File

@ -31,10 +31,10 @@ $nl
HELP: totp HELP: totp
{ $values { $values
{ "key" byte-array } { "key" object }
{ "string" string } { "string" string }
} }
{ $description "Generate a one-time password for the " { $snippet "key" } " based on the current system time. The " { $snippet "string" } " length is " { $link totp-digits } ", and the hash used for HMAC is " { $link totp-hash } "." } ; { $description "Generate a one-time password for the " { $snippet "key" } " based on the current system time. If " { $snippet "key" } " is a " { $link string } ", it is expected to contain the key data in Base 32 encoding, otherwise it should be a " { $link byte-array } ". The " { $snippet "string" } " length is " { $link totp-digits } ", and the hash used for HMAC is " { $link totp-hash } "." } ;
{ totp totp* } related-words { totp totp* } related-words

6
extra/totp/totp.factor
View File

@ -1,7 +1,8 @@
! Copyright (C) 2018 Alexander Ilin. ! Copyright (C) 2018 Alexander Ilin.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: calendar checksums.hmac checksums.sha io.binary kernel USING: base32 calendar checksums.hmac checksums.sha io.binary
math math.bitwise math.parser namespaces sequences ; kernel math math.bitwise math.parser namespaces sequences
strings unicode ;
IN: totp IN: totp
SYMBOLS: totp-hash totp-digits ; SYMBOLS: totp-hash totp-digits ;
@ -28,4 +29,5 @@ PRIVATE>
[ number>string ] dip [ CHAR: 0 pad-head ] keep tail* ; [ number>string ] dip [ CHAR: 0 pad-head ] keep tail* ;
: totp ( key -- string ) : totp ( key -- string )
dup string? [ >upper base32> ] when
now timestamp>count swap totp-hash get totp* totp-digits get digits ; now timestamp>count swap totp-hash get totp* totp-digits get digits ;