xtime ( x -- x' )

Vocabulary

crypto.aes.private

Inputs

x

an object

Outputs

x'

an object

Definition

USING: kernel math math.bitwise ;

IN: crypto.aes.private

: xtime ( x -- x' )
    [ 1 shift ] [ 128 bitand 0 = 0 27 ? ] bi bitxor 8 bits ;