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

checksums.sodium: implement optional keying

factor-shell
Alexander Iljin 2017-03-02 02:17:14 +03:00 committed by John Benediktsson
parent e10ccd030d
commit 60ff8c00aa
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/checksums/sodium/sodium.factor
View File

@ -4,7 +4,10 @@ USING: accessors alien byte-arrays checksums checksums.common
destructors kernel math sequences sodium sodium.ffi ; destructors kernel math sequences sodium sodium.ffi ;
IN: checksums.sodium IN: checksums.sodium
TUPLE: sodium-checksum { output-size fixnum } ; TUPLE: sodium-checksum
{ output-size fixnum }
{ key maybe{ byte-array } } ;
INSTANCE: sodium-checksum block-checksum INSTANCE: sodium-checksum block-checksum
C: <sodium-checksum> sodium-checksum C: <sodium-checksum> sodium-checksum
@ -18,10 +21,11 @@ TUPLE: sodium-state < disposable
PRIVATE> PRIVATE>
M: sodium-checksum initialize-checksum-state M: sodium-checksum initialize-checksum-state
output-size>> sodium-state new-disposable swap >>output-size [ key>> ] [ output-size>> ] bi
sodium-state new-disposable swap >>output-size
crypto_generichash_statebytes sodium_malloc >>state crypto_generichash_statebytes sodium_malloc >>state
[ [
[ state>> ] [ drop f 0 ] [ output-size>> ] tri [ state>> ] [ drop swap dup length ] [ output-size>> ] tri
crypto_generichash_init check0 crypto_generichash_init check0
] keep ; ] keep ;