dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix TOTP formula

Browse Source
This commit is contained in:
Christophe Maudoux 2018-08-18 21:21:20 +02:00
parent ee9b3bdf2c
commit 6251da2e56
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lemonldap-ng-common/lib/Lemonldap/NG/Common/TOTP.pm
View File

@ -10,7 +10,7 @@ use Digest::HMAC_SHA1 'hmac_sha1_hex';
our $VERSION = '2.0.0';
# Verify that TOTP $code match with $secret
# Verify that TOTP $code matches with $secret
sub verifyCode {
my ( $self, $interval, $range, $digits, $secret, $code ) = @_;
my $s = eval { decode_base32($secret) };
@ -29,7 +29,6 @@ sub verifyCode {
# Internal subroutine that calculates TOTP code using $secret and $interval
sub _code {
my ( $self, $secret, $r, $interval, $digits ) = @_;
$digits ||= 6;
my $hmac = hmac_sha1_hex(
pack( 'H*',
sprintf( '%016x', int( ( time - $r * $interval ) / $interval ) ) ),
@ -41,7 +40,7 @@ sub _code {
(
hex( substr( $hmac, hex( substr( $hmac, -1 ) ) * 2, 8 ) ) &
0x7fffffff
) % 1000000
) % 10**$digits
);
}