USING: locals math sequences ;

IN: crypto.aes

:: set-d ( D i -- )
i inv-sbox nth
:> a1 a1 xtime :> a2 a2 xtime :> a4 a4 xtime :> a8 a8 a1
bitxor :> a9 a9 a2 bitxor :> ab a9 a4 bitxor
:> ad a8 a4 a2 bitxor bitxor :> ae ae a9 ad ab ui32
i D set-nth ab ae a9 ad ui32 i 256 + D set-nth
ad ab ae a9 ui32 i 512 + D set-nth a9 ad ab ae ui32 i 768 +
D set-nth ;