(key-at-nth-round) ( nth aes -- seq )

Vocabulary

crypto.aes.private

Inputs

nth	an object
aes	an object

Outputs

seq

an object

Definition

USING: accessors kernel math sequences ;

IN: crypto.aes.private

: (key-at-nth-round) ( nth aes -- seq )
    [ 4 * dup 4 + ] [ key>> ] bi* <slice> ;