aes-decrypt

Vocabulary

crypto.aes.private

Definition

IN: crypto.aes.private

SINGLETON: aes-decrypt

Methods

USING: crypto.aes.private ranges sequences ;

M: aes-decrypt (counter) [1..b) <reversed> ;


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: accessors crypto.aes.private sequences ;

M: aes-decrypt (final-round)
    [ [ inv-subword ] map unshift-rows ] change-state
    add-first-round-key ;


USING: crypto.aes.private ;

M: aes-decrypt (first-round) add-final-round-key ;


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

M: aes-decrypt (round)
    dup first4-unsafe {
        [ -first-diag d-transform ]
        [ -fourth-diag d-transform ]
        [ -third-diag d-transform ]
        [ -second-diag d-transform ]
    } 4 ncleave set-first4-unsafe ;