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

sodium: add password hashing functions

factor-shell
Alexander Iljin 2017-03-01 23:45:17 +03:00 committed by John Benediktsson
parent d2d7a7b5f7
commit b5a42cd4b7
2 changed files with 42 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -19,3 +19,29 @@ FUNCTION: void randombytes_buf ( void* buf, size_t size )
FUNCTION: uint32_t randombytes_random ( )
FUNCTION: uint32_t randombytes_uniform ( uint32_t upper_bound )
FUNCTION: void randombytes_stir ( )
! crypto_pwhash_H
FUNCTION: int crypto_pwhash_alg_argon2i13 ( )
FUNCTION: int crypto_pwhash_alg_default ( )
FUNCTION: size_t crypto_pwhash_saltbytes ( )
FUNCTION: size_t crypto_pwhash_strbytes ( )
FUNCTION: char* crypto_pwhash_strprefix ( )
FUNCTION: size_t crypto_pwhash_opslimit_interactive ( )
FUNCTION: size_t crypto_pwhash_memlimit_interactive ( )
FUNCTION: size_t crypto_pwhash_opslimit_moderate ( )
FUNCTION: size_t crypto_pwhash_memlimit_moderate ( )
FUNCTION: size_t crypto_pwhash_opslimit_sensitive ( )
FUNCTION: size_t crypto_pwhash_memlimit_sensitive ( )
FUNCTION: int crypto_pwhash (
uchar* out, ulonglong outlen,
char* passwd, ulonglong passwdlen,
uchar* salt,
ulonglong opslimit, size_t memlimit, int alg )
FUNCTION: int crypto_pwhash_str (
char* out[crypto_pwhash_STRBYTES],
char* passwd, ulonglong passwdlen,
ulonglong opslimit, size_t memlimit )
FUNCTION: int crypto_pwhash_str_verify (
char* str[crypto_pwhash_STRBYTES],
char* passwd, ulonglong passwdlen )
FUNCTION: char* crypto_pwhash_primitive ( )

17
extra/sodium/sodium.factor
View File

@ -1,9 +1,11 @@
! Copyright (C) 2017 Alexander Ilin.
! See http://factorcode.org/license.txt for BSD license.
USING: init kernel math sequences sodium.ffi ;
USING: byte-arrays init io.encodings.string io.encodings.utf8
kernel math sequences sodium.ffi ;
IN: sodium
ERROR: sodium-init-fail ;
ERROR: call-fail ;
! Call this before any other function, may be called multiple times.
: sodium-init ( -- ) sodium_init 0 < [ sodium-init-fail ] when ;
@ -11,4 +13,17 @@ ERROR: sodium-init-fail ;
: random-bytes ( byte-array -- byte-array' )
dup dup length randombytes_buf ;
: n-random-bytes ( n -- byte-array )
<byte-array> random-bytes ;
: check0 ( n -- ) 0 = [ call-fail ] unless ;
: crypto-pwhash-str ( password opslimit memlimit -- str )
[ crypto_pwhash_strbytes <byte-array> dup ] 3dip
[ utf8 encode dup length ] 2dip crypto_pwhash_str check0
utf8 decode ;
: crypto-pwhash-str-verify ( str password -- bool )
[ utf8 encode ] bi@ dup length crypto_pwhash_str_verify 0 = ;
[ sodium-init ] "sodium" add-startup-hook