Error in intervals (#1359)

2018-03-18 22:38:12 +01:00 · 2018-03-18 22:38:12 +01:00 · 9c17f1b3b6
commit 9c17f1b3b6
parent 8e1d55aaa9
1 changed files with 1 additions and 1 deletions
--- a/lemonldap-ng-common/lib/Lemonldap/NG/Common/TOTP.pm
+++ b/lemonldap-ng-common/lib/Lemonldap/NG/Common/TOTP.pm
@ -32,7 +32,7 @@ sub _code {
    $digits ||= 6;
    my $hmac = hmac_sha1_hex(
        pack( 'H*',
-            sprintf( '%016x', int( ( time + $r * $interval ) / $interval ) ) ),
+            sprintf( '%016x', int( ( time - $r * $interval ) / $interval ) ) ),
        $secret,
    );