steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

crypto.aes: <sliced-groups> is now just <groups>, add a missing using.

db4
Doug Coleman 2014-01-11 11:13:39 -08:00
parent 67a71d0974
commit 7c93316fbe
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/crypto/aes/aes-tests.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2008 Doug Coleman. ! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors byte-arrays.hex crypto.aes crypto.aes.utils USING: accessors byte-arrays.hex crypto.aes crypto.aes.private
grouping kernel sequences tools.test ; crypto.aes.utils grouping kernel sequences tools.test ;
IN: crypto.aes.tests IN: crypto.aes.tests
#! fips-197 test vectors #! fips-197 test vectors
@ -188,4 +188,4 @@ V{ 729683222 682545830 2885096840 164581180 2700803607 2287217841
[ t ] [ [ t ] [
sbox [ dup inv-sbox nth sbox nth = ] all? sbox [ dup inv-sbox nth sbox nth = ] all?
] unit-test ] unit-test

2
extra/crypto/aes/utils/utils.factor
View File

@ -23,7 +23,7 @@ IN: crypto.aes.utils
[ gb3 ] keep [ gb2 ] keep [ gb1 ] keep gb0 ; inline [ gb3 ] keep [ gb2 ] keep [ gb1 ] keep gb0 ; inline
: bytes>words ( seq -- seq ) : bytes>words ( seq -- seq )
4 <sliced-groups> [ <reversed> first4 >ui32 ] V{ } map-as ; 4 <groups> [ <reversed> first4 >ui32 ] V{ } map-as ;
: .t ( seq -- ) : .t ( seq -- )
reverse reverse