<sha1-state> ( -- sha1-state )

Vocabulary

checksums.sha.private

Inputs

None

Outputs

sha1-state

an object

Definition

USING: accessors checksums ;

IN: checksums.sha.private

: <sha1-state> ( -- sha1-state )
    sha1-state new-checksum-state 64 >>block-size K-sha1 >>K
    initial-H-sha1 >>H 4 >>word-size ;