<md5-state> ( -- md5 )

Vocabulary

checksums.md5

Inputs

None

Outputs

md5

an object

Definition

USING: accessors checksums kernel
specialized-arrays.instances.alien.c-types.uint ;

IN: checksums.md5

: <md5-state> ( -- md5 )
    md5-state new-checksum-state 64 >>block-size
    uint-array{ 1732584193 4023233417 2562383102 271733878 }
    [ clone >>state ] [ >>old-state ] bi ;