init-key ( checksum key checksum-state -- o i )


Vocabulary
checksums.hmac.private

Inputs
checksuman object
keyan object
checksum-statean object


Outputs
oan object
ian object


Definition
USING: accessors checksums kernel math math.vectors sequences ;

IN: checksums.hmac.private

:: init-key ( checksum key checksum-state -- o i )
checksum-state block-size>> key length <
[ key checksum checksum-bytes ] [ key ] if
checksum-state block-size>> 0 pad-tail
[ checksum-state opad vbitxor ]
[ checksum-state ipad vbitxor ] bi ;