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

sodium: add generic hash functions

factor-shell
Alexander Iljin 2017-03-02 01:04:19 +03:00 committed by John Benediktsson
parent 6a162c3045
commit aec9f33248
2 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
extra/sodium/ffi/ffi.factor
View File

@ -53,3 +53,25 @@ FUNCTION: void sodium_free ( void* ptr )
FUNCTION: int sodium_mprotect_noaccess ( void* ptr ) FUNCTION: int sodium_mprotect_noaccess ( void* ptr )
FUNCTION: int sodium_mprotect_readonly ( void* ptr ) FUNCTION: int sodium_mprotect_readonly ( void* ptr )
FUNCTION: int sodium_mprotect_readwrite ( void* ptr ) FUNCTION: int sodium_mprotect_readwrite ( void* ptr )
! crypto_generichash_H
TYPEDEF: void* crypto_generichash_state
FUNCTION: size_t crypto_generichash_bytes_min ( )
FUNCTION: size_t crypto_generichash_bytes_max ( )
FUNCTION: size_t crypto_generichash_bytes ( )
FUNCTION: size_t crypto_generichash_keybytes_min ( )
FUNCTION: size_t crypto_generichash_keybytes_max ( )
FUNCTION: size_t crypto_generichash_keybytes ( )
FUNCTION: char* crypto_generichash_primitive ( )
FUNCTION: size_t crypto_generichash_statebytes ( )
FUNCTION: int crypto_generichash (
uchar* out, size_t outlen,
uchar* in, ulonglong inlen,
uchar* key, size_t keylen )
FUNCTION: int crypto_generichash_init (
crypto_generichash_state* state,
uchar* key, size_t keylen, size_t outlen )
FUNCTION: int crypto_generichash_update (
crypto_generichash_state* state, uchar* in, ulonglong inlen )
FUNCTION: int crypto_generichash_final (
crypto_generichash_state* state, uchar* out, size_t outlen )

3
extra/sodium/sodium.factor
View File

@ -26,4 +26,7 @@ ERROR: call-fail ;
: crypto-pwhash-str-verify ( str password -- bool ) : crypto-pwhash-str-verify ( str password -- bool )
[ utf8 encode ] bi@ dup length crypto_pwhash_str_verify 0 = ; [ utf8 encode ] bi@ dup length crypto_pwhash_str_verify 0 = ;
: crypto-generichash ( out-bytes in-bytes key-bytes/f -- out-bytes' )
[ dup ] 2dip [ dup length ] tri@ crypto_generichash check0 ;
[ sodium-init ] "sodium" add-startup-hook [ sodium-init ] "sodium" add-startup-hook