set-d ( D i -- )

Vocabulary

crypto.aes.private

Inputs

D	an object
i	an object

Outputs

None

Definition

USING: crypto.aes.utils math sequences ;

IN: crypto.aes.private

:: 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 ab ad a9 ae >ui32
    i D set-nth ad a9 ae ab >ui32 i 256 + D set-nth
    a9 ae ab ad >ui32 i 512 + D set-nth ae ab ad a9 >ui32
    i 768 + D set-nth ;