S0-512 ( x -- x' )

Vocabulary

checksums.sha.private

Inputs

x

an object

Outputs

x'

an object

Definition

USING: combinators.smart kernel math math.bitwise ;

IN: checksums.sha.private

: S0-512 ( x -- x' )
    [
        [ -28 bitroll-64 ] [ -34 bitroll-64 ] [ -39 bitroll-64 ]
        tri
    ] [ bitxor ] reduce-outputs ; inline