(process-md5-block-F) ( 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-F) ( block state -- )
    { uint-array uint-array } declare {
        [ a b c d 0 S11 1 ]
        [ d a b c 1 S12 2 ]
        [ c d a b 2 S13 3 ]
        [ b c d a 3 S14 4 ]
        [ a b c d 4 S11 5 ]
        [ d a b c 5 S12 6 ]
        [ c d a b 6 S13 7 ]
        [ b c d a 7 S14 8 ]
        [ a b c d 8 S11 9 ]
        [ d a b c 9 S12 10 ]
        [ c d a b 10 S13 11 ]
        [ b c d a 11 S14 12 ]
        [ a b c d 12 S11 13 ]
        [ d a b c 13 S12 14 ]
        [ c d a b 14 S13 15 ]
        [ b c d a 15 S14 16 ]
    } [ F ] with-md5-round ;