migadu/qrcode
3
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Put period in token

Browse Source
This commit is contained in:
Dominique Boucher 2015-06-02 21:39:29 -04:00
parent 3a041ad6d4
commit a534d26c64
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/qrcode_demo.erl
View File

@ -44,10 +44,11 @@
-compile(export_all).
-define(TTY(Term), io:format(user, "[~p] ~p~n", [?MODULE, Term])).
-define(PERIOD, 30).
run() ->
Passcode = crypto:sha(<<"password">>),
run(<<"demo@mydomain.com">>, Passcode, 60).
run(<<"demo@mydomain.com">>, Passcode, ?PERIOD).
run(Domain, Passcode, Seconds) ->
PasscodeBase32 = base32:encode(Passcode),
@ -100,7 +101,7 @@ get_pixels0(<<>>, Acc) ->
%%
totp() ->
Key = crypto:sha(<<"password">>),
totp(Key, 30).
totp(Key, ?PERIOD).
totp(Key, Period) ->
T = unow() div Period,
{hotp(Key, T - 1), hotp(Key, T), hotp(Key, T + 1)}.