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

Add curve25519_public_key/1.

Browse Source
This commit is contained in:
Alexander Færøy 2015-02-21 23:08:07 +01:00
parent 4e66fc3b94
commit ef36bb85c1
No known key found for this signature in database
GPG Key ID: E15081D5D3C3DB53
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/enacl.erl
View File

@ -70,6 +70,7 @@
%% Curve25519 %% Curve25519
-export([ -export([
curve25519_keypair/0, curve25519_keypair/0,
curve25519_public_key/1,
curve25519_shared/2 curve25519_shared/2
]). ]).
@ -185,9 +186,15 @@ verify_32(_, _) -> error(badarg).
curve25519_keypair() -> curve25519_keypair() ->
<<B0:8/integer, B1:30/binary, B2:8/integer>> = randombytes(32), <<B0:8/integer, B1:30/binary, B2:8/integer>> = randombytes(32),
SK = <<(B0 band 248), B1/binary, (64 bor (B2 band 127))>>, SK = <<(B0 band 248), B1/binary, (64 bor (B2 band 127))>>,
PK = enacl_nif:crypto_curve25519_scalarmult(SK, <<9, 0:248>>), PK = curve25519_public_key(SK),
#{ public => PK, secret => SK }. #{ public => PK, secret => SK }.
%% @doc curve25519_public_key/1 creates a public key from a given SecretKey.
%% @end
-spec curve25519_public_key(SecretKey :: binary()) -> binary().
curve25519_public_key(SecretKey) ->
enacl_nif:crypto_curve25519_scalarmult(SecretKey, <<9, 0:248>>).
%% @doc curve25519_shared/2 creates a new shared secret from a given SecretKey and PublicKey. %% @doc curve25519_shared/2 creates a new shared secret from a given SecretKey and PublicKey.
%% @end. %% @end.
-spec curve25519_shared(SecretKey :: binary(), PublicKey :: binary()) -> binary(). -spec curve25519_shared(SecretKey :: binary(), PublicKey :: binary()) -> binary().