(process-md5-block-G) ( 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-G) ( block state -- )
    { uint-array uint-array } declare {
        [ a b c d 1 S21 17 ]
        [ d a b c 6 S22 18 ]
        [ c d a b 11 S23 19 ]
        [ b c d a 0 S24 20 ]
        [ a b c d 5 S21 21 ]
        [ d a b c 10 S22 22 ]
        [ c d a b 15 S23 23 ]
        [ b c d a 4 S24 24 ]
        [ a b c d 9 S21 25 ]
        [ d a b c 14 S22 26 ]
        [ c d a b 3 S23 27 ]
        [ b c d a 8 S24 28 ]
        [ a b c d 13 S21 29 ]
        [ d a b c 2 S22 30 ]
        [ c d a b 7 S23 31 ]
        [ b c d a 12 S24 32 ]
    } [ G ] with-md5-round ;