hmac-stream ( stream key checksum -- value )

Vocabulary

checksums.hmac

Inputs

stream	an object
key	an object
checksum	an object

Outputs

value

an object

Definition

USING: checksums checksums.hmac.private kernel ;

IN: checksums.hmac

:: hmac-stream ( stream key checksum -- value )
    checksum initialize-checksum-state :> checksum-state
    checksum key checksum-state init-key
    :> ( Ko Ki ) checksum-state Ki add-checksum-bytes
    stream add-checksum-stream
    get-checksum checksum initialize-checksum-state Ko
    add-checksum-bytes swap add-checksum-bytes get-checksum ;