QPQ-AG/enacl
10
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Rudimentary test of pwhash

Browse Source
This commit is contained in:
Jesper Louis Andersen 2020-01-20 14:45:52 +01:00
parent d3c033c4e6
commit 460c5bddfd
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
test/enacl_SUITE.erl
View File

@ -41,7 +41,8 @@ groups() ->
[generichash_basic_pos, [generichash_basic_pos,
generichash_chunked, generichash_chunked,
aead_xchacha20poly1305, aead_xchacha20poly1305,
aead_chacha20poly1305]}, aead_chacha20poly1305,
pwhash]},
[Neg, Pos]. [Neg, Pos].
@ -109,3 +110,14 @@ aead_chacha20poly1305(_Config) ->
CipherText = enacl:aead_chacha20poly1305_encrypt(Key, Nonce, AD, Msg), CipherText = enacl:aead_chacha20poly1305_encrypt(Key, Nonce, AD, Msg),
Msg = enacl:aead_chacha20poly1305_decrypt(Key, Nonce, AD, CipherText), Msg = enacl:aead_chacha20poly1305_decrypt(Key, Nonce, AD, CipherText),
ok. ok.
pwhash(_Config) ->
PW = <<"XYZZY">>,
Salt = <<"1234567890abcdef">>,
Hash1 = <<164,75,127,151,168,101,55,77,48,77,240,204,64,20,43,23,88,
18,133,11,53,151,2,113,232,95,84,165,50,7,60,20>>,
{ok, Hash1} = enacl:pwhash(PW, Salt),
{ok, Str1} = enacl:pwhash_str(PW),
true = enacl:pwhash_str_verify(Str1, PW),
false = enacl:pwhash_str_verify(Str1, <<PW/binary, 1>>),
ok.