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

Merge pull request #4 from schemeway/master

Browse Source 
TOTP period is 30 seconds
This commit is contained in:
Steve Davis
2015-08-08 17:03:14 -05:00
parent 44137312bc a534d26c64
commit e96022ac4f
1 changed files with 3 additions and 2 deletions
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). -compile(export_all).
-define(TTY(Term), io:format(user, "[~p] ~p~n", [?MODULE, Term])). -define(TTY(Term), io:format(user, "[~p] ~p~n", [?MODULE, Term])).
-define(PERIOD, 30).
run() -> run() ->
Passcode = crypto:sha(<<"password">>), Passcode = crypto:sha(<<"password">>),
run(<<"demo@mydomain.com">>, Passcode, 60). run(<<"demo@mydomain.com">>, Passcode, ?PERIOD).
run(Domain, Passcode, Seconds) -> run(Domain, Passcode, Seconds) ->
PasscodeBase32 = base32:encode(Passcode), PasscodeBase32 = base32:encode(Passcode),
@ -100,7 +101,7 @@ get_pixels0(<<>>, Acc) ->
%% %%
totp() -> totp() ->
Key = crypto:sha(<<"password">>), Key = crypto:sha(<<"password">>),
totp(Key, 60). totp(Key, ?PERIOD).
totp(Key, Period) -> totp(Key, Period) ->
T = unow() div Period, T = unow() div Period,
{hotp(Key, T - 1), hotp(Key, T), hotp(Key, T + 1)}. {hotp(Key, T - 1), hotp(Key, T), hotp(Key, T + 1)}.