xtime ( x -- x' )

Vocabulary
crypto.aes

Definition

USING: kernel math math.bitwise ;

IN: crypto.aes

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