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

Vocabulary

crypto.aes.private

Inputs

K	an object
Nr	an object

Outputs

sched

an object

Definition

IN: crypto.aes.private

HOOK: (expand-key) aes-strategy ( K Nr -- sched )

Methods

USING: crypto.aes.private crypto.aes.utils kernel math sequences
;

M:: aes-decrypt (expand-key) ( K Nr -- sched )
    K Nr (expand-enc-key) dup length :> key-length [
        [ 4 >= ] [ key-length 4 - < ] bi and
        [ subword ui32-rev> d-transform ] when
    ] map-index ;


USING: crypto.aes.private ;

M: aes-encrypt (expand-key) (expand-enc-key) ;