set-t ( T i -- )

Vocabulary

crypto.aes.private

Inputs

T	an object
i	an object

Outputs

None

Definition

USING: crypto.aes.utils math sequences ;

IN: crypto.aes.private

:: set-t ( T i -- )
    i sbox nth :> a1 a1 xtime :> a2 a1 a2 bitxor
    :> a3 a3 a1 a1 a2 >ui32 i T set-nth a1 a1 a2 a3 >ui32
    i 256 + T set-nth a1 a2 a3 a1 >ui32 i 512 + T set-nth
    a2 a3 a1 a1 >ui32 i 768 + T set-nth ;