(aes-crypt) ( aes -- aes' )

Vocabulary

crypto.aes.private

Inputs

aes

an object

Outputs

aes'

an object

Definition

USING: accessors kernel sequences ;

IN: crypto.aes.private

: (aes-crypt) ( aes -- aes' )
    (first-round) [
        dup nrounds>> (counter)
        [ [ (do-round) ] dip add-round-key drop ] with each
    ] keep (final-round) ;