set-d ( D i -- )


Vocabulary
crypto.aes.private

Inputs
Dan object
ian object


Outputs
None

Definition


:: 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 ;