sha1-state

Vocabulary

checksums.sha.private

Definition

USING: checksums.common math
specialized-arrays.instances.alien.c-types.uint ;

IN: checksums.sha.private

TUPLE: sha1-state < block-checksum-state
    { K uint-array initial: uint-array{ } }
    { H uint-array initial: uint-array{ } }
    { W uint-array initial: uint-array{ } }
    { word-size fixnum initial: 0 } ;

Methods

USING: accessors checksums.common checksums.sha.private kernel ;

M:: sha1-state checksum-block ( bytes state -- )
    bytes prepare-sha1-message-schedule state W<< state
    [ H>> clone ] [ W>> ] [ K>> ] tri state process-sha1-chunk ;


USING: checksums checksums.sha.private kernel ;

M: sha1-state get-checksum
    clone [ pad-last-short-block ] [ sha-256>checksum ] bi ;