Packages

libsodium

0.0.10
2.0.1 2.0.0 1.0.18 retired 0.0.10 0.0.9 0.0.8 0.0.7 0.0.6 0.0.5 0.0.4 0.0.3 0.0.2 0.0.1

libsodium Port Driver

HexDocs

Current section

Files

Jump to
Readme
13 Versions
0 Dependencies
Dependants
Files
Activity
libsodium src libsodium_crypto_aead_chacha20poly1305.erl
Raw

src/libsodium_crypto_aead_chacha20poly1305.erl 

%% -*- mode: erlang; tab-width: 4; indent-tabs-mode: 1; st-rulers: [70] -*-

%% vim: ts=4 sw=4 ft=erlang noet

%%%-------------------------------------------------------------------

%%% @author Andrew Bennett <andrew@pixid.com>

%%% @copyright 2015-2016, Andrew Bennett

%%% @doc

%%%

%%% @end

%%% Created :  31 Dec 2015 by Andrew Bennett <andrew@pixid.com>

%%%-------------------------------------------------------------------

-module(libsodium_crypto_aead_chacha20poly1305).



-define(NAMESPACE, crypto_aead_chacha20poly1305).



%% API

-export([ietf_keybytes/0]).

-export([ietf_nsecbytes/0]).

-export([ietf_npubbytes/0]).

-export([ietf_abytes/0]).

-export([ietf_encrypt/3]).

-export([ietf_encrypt/4]).

-export([ietf_decrypt/3]).

-export([ietf_decrypt/4]).

-export([ietf_encrypt_detached/3]).

-export([ietf_encrypt_detached/4]).

-export([ietf_decrypt_detached/4]).

-export([ietf_decrypt_detached/5]).

-export([keybytes/0]).

-export([nsecbytes/0]).

-export([npubbytes/0]).

-export([abytes/0]).

-export([encrypt/3]).

-export([encrypt/4]).

-export([decrypt/3]).

-export([decrypt/4]).

-export([encrypt_detached/3]).

-export([encrypt_detached/4]).

-export([decrypt_detached/4]).

-export([decrypt_detached/5]).



%% Internal API

-export([call/1]).

-export([call/2]).



%%%===================================================================

%%% API

%%%===================================================================



ietf_keybytes() ->

	call(ietf_keybytes).



ietf_nsecbytes() ->

	call(ietf_nsecbytes).



ietf_npubbytes() ->

	call(ietf_npubbytes).



ietf_abytes() ->

	call(ietf_abytes).



ietf_encrypt(M, NPub, K)

		when is_binary(M)

		andalso is_binary(NPub)

		andalso is_binary(K) ->

	ietf_encrypt(M, <<>>, NPub, K).



ietf_encrypt(M, AD, NPub, K)

		when is_binary(M)

		andalso is_binary(AD)

		andalso is_binary(NPub)

		andalso is_binary(K) ->

	call(ietf_encrypt, {M, AD, <<>>, NPub, K}).



ietf_decrypt(C, NPub, K)

		when is_binary(C)

		andalso is_binary(NPub)

		andalso is_binary(K) ->

	ietf_decrypt(C, <<>>, NPub, K).



ietf_decrypt(C, AD, NPub, K)

		when is_binary(C)

		andalso is_binary(AD)

		andalso is_binary(NPub)

		andalso is_binary(K) ->

	call(ietf_decrypt, {<<>>, C, AD, NPub, K}).



ietf_encrypt_detached(M, NPub, K)

		when is_binary(M)

		andalso is_binary(NPub)

		andalso is_binary(K) ->

	ietf_encrypt_detached(M, <<>>, NPub, K).



ietf_encrypt_detached(M, AD, NPub, K)

		when is_binary(M)

		andalso is_binary(AD)

		andalso is_binary(NPub)

		andalso is_binary(K) ->

	call(ietf_encrypt_detached, {M, AD, <<>>, NPub, K}).



ietf_decrypt_detached(C, MAC, NPub, K)

		when is_binary(C)

		andalso is_binary(MAC)

		andalso is_binary(NPub)

		andalso is_binary(K) ->

	ietf_decrypt_detached(C, MAC, <<>>, NPub, K).



ietf_decrypt_detached(C, MAC, AD, NPub, K)

		when is_binary(C)

		andalso is_binary(MAC)

		andalso is_binary(AD)

		andalso is_binary(NPub)

		andalso is_binary(K) ->

	call(ietf_decrypt_detached, {<<>>, C, MAC, AD, NPub, K}).



keybytes() ->

	call(keybytes).



nsecbytes() ->

	call(nsecbytes).



npubbytes() ->

	call(npubbytes).



abytes() ->

	call(abytes).



encrypt(M, NPub, K)

		when is_binary(M)

		andalso is_binary(NPub)

		andalso is_binary(K) ->

	encrypt(M, <<>>, NPub, K).



encrypt(M, AD, NPub, K)

		when is_binary(M)

		andalso is_binary(AD)

		andalso is_binary(NPub)

		andalso is_binary(K) ->

	call(encrypt, {M, AD, <<>>, NPub, K}).



decrypt(C, NPub, K)

		when is_binary(C)

		andalso is_binary(NPub)

		andalso is_binary(K) ->

	decrypt(C, <<>>, NPub, K).



decrypt(C, AD, NPub, K)

		when is_binary(C)

		andalso is_binary(AD)

		andalso is_binary(NPub)

		andalso is_binary(K) ->

	call(decrypt, {<<>>, C, AD, NPub, K}).



encrypt_detached(M, NPub, K)

		when is_binary(M)

		andalso is_binary(NPub)

		andalso is_binary(K) ->

	encrypt_detached(M, <<>>, NPub, K).



encrypt_detached(M, AD, NPub, K)

		when is_binary(M)

		andalso is_binary(AD)

		andalso is_binary(NPub)

		andalso is_binary(K) ->

	call(encrypt_detached, {M, AD, <<>>, NPub, K}).



decrypt_detached(C, MAC, NPub, K)

		when is_binary(C)

		andalso is_binary(MAC)

		andalso is_binary(NPub)

		andalso is_binary(K) ->

	decrypt_detached(C, MAC, <<>>, NPub, K).



decrypt_detached(C, MAC, AD, NPub, K)

		when is_binary(C)

		andalso is_binary(MAC)

		andalso is_binary(AD)

		andalso is_binary(NPub)

		andalso is_binary(K) ->

	call(decrypt_detached, {<<>>, C, MAC, AD, NPub, K}).



%%%-------------------------------------------------------------------

%%% Internal functions

%%%-------------------------------------------------------------------



%% @private

call(Function) when is_atom(Function) ->

	call(Function, {}).



%% @private

call(Function, Arguments) when is_atom(Function) andalso is_tuple(Arguments) ->

	libsodium:call(?NAMESPACE, Function, Arguments).