subword ( word -- word' )


Vocabulary
crypto.aes.private

Inputs
wordan object


Outputs
word'an object


Definition
USING: crypto.aes.utils kernel sequences ;

IN: crypto.aes.private

: subword ( word -- word' )
[ gb0 sbox nth ] keep [ gb1 sbox nth ] keep
[ gb2 sbox nth ] keep gb3 sbox nth >ui32 ;