totp-value ( hash-bytes -- n )

Vocabulary

totp.private

Inputs

hash-bytes

an object

Outputs

n

an object

Definition

USING: endian kernel math math.bitwise sequences ;

IN: totp.private

: totp-value ( hash-bytes -- n )
    [ last 4 bits dup 4 + ] keep <slice> be> 31 clear-bit ;