T1-512 ( n M H sha2 -- T1 )

Vocabulary

checksums.sha.private

Inputs

n	an object
M	an object
H	an object
sha2	an object

Outputs

T1

an object

Definition

USING: accessors math math.bitwise sequences.private ;

IN: checksums.sha.private

:: T1-512 ( n M H sha2 -- T1 )
    n M nth-unsafe n sha2 K>> nth-unsafe + e H slice3 ch w+
    e H nth-unsafe S1-512 w+ h H nth-unsafe w+ ; inline