(process-md5-block-I) ( 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-I) ( block state -- )
    { uint-array uint-array } declare {
        [ a b c d 0 S41 49 ]
        [ d a b c 7 S42 50 ]
        [ c d a b 14 S43 51 ]
        [ b c d a 5 S44 52 ]
        [ a b c d 12 S41 53 ]
        [ d a b c 3 S42 54 ]
        [ c d a b 10 S43 55 ]
        [ b c d a 1 S44 56 ]
        [ a b c d 8 S41 57 ]
        [ d a b c 15 S42 58 ]
        [ c d a b 6 S43 59 ]
        [ b c d a 13 S44 60 ]
        [ a b c d 4 S41 61 ]
        [ d a b c 11 S42 62 ]
        [ c d a b 2 S43 63 ]
        [ b c d a 9 S44 64 ]
    } [ I ] with-md5-round ;