(process-md5-block-H) ( block state -- )

Vocabulary

checksums.md5.private

Inputs

block	an object
state	an object

Outputs

None

Definition

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

IN: checksums.md5.private

: (process-md5-block-H) ( block state -- )
    { uint-array uint-array } declare {
        [ a b c d 5 S31 33 ]
        [ d a b c 8 S32 34 ]
        [ c d a b 11 S33 35 ]
        [ b c d a 14 S34 36 ]
        [ a b c d 1 S31 37 ]
        [ d a b c 4 S32 38 ]
        [ c d a b 7 S33 39 ]
        [ b c d a 10 S34 40 ]
        [ a b c d 13 S31 41 ]
        [ d a b c 0 S32 42 ]
        [ c d a b 3 S33 43 ]
        [ b c d a 6 S34 44 ]
        [ a b c d 9 S31 45 ]
        [ d a b c 12 S32 46 ]
        [ c d a b 15 S33 47 ]
        [ b c d a 2 S34 48 ]
    } [ H ] with-md5-round ;