(expand-enc-key) ( K Nr -- sched )

Vocabulary

crypto.aes.private

Inputs

K	an object
Nr	an object

Outputs

sched

an object

Definition

USING: crypto.aes.utils kernel namespaces sequences ;

IN: crypto.aes.private

: (expand-enc-key) ( K Nr -- sched )
    [ bytes>words ] dip
    [ drop (init-round) ] [ (sched-interval) ] 2bi [
        [ aes-expand-inner set ] dip
        [ (key-sched-round) dup last ] each
    ] with-scope drop ;