Packages

jose

1.0.0
1.11.12 1.11.11 1.11.10 1.11.9 1.11.8 1.11.7 1.11.6 1.11.5 1.11.4 1.11.2 1.11.1 1.11.0 1.10.1 1.10.0 1.9.0 1.8.4 1.8.3 1.8.2 1.8.1 1.8.0 1.7.9 1.7.8 1.7.7 1.7.6 1.7.5 1.7.4 1.7.3 1.7.2 1.7.1 1.7.0 1.6.1 1.6.0 1.5.2 1.5.1 1.5.0 1.4.2 1.4.1 1.4.0 1.3.0 1.2.0 1.1.3 1.1.2 1.1.1 1.1.0 1.0.1 1.0.0

JSON Object Signing and Encryption (JOSE) for Erlang and Elixir.

Security advisory: This version has known vulnerabilities. View advisories
HexDocs

Current section

Files

Jump to
Readme
46 Versions
1 Dependency
Dependants
1 Advisory
Files
Activity
jose src jose_jwa.erl
Raw

src/jose_jwa.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 2014-2015, Andrew Bennett

%%% @doc

%%%

%%% @end

%%% Created :  21 Jul 2015 by Andrew Bennett <andrew@pixid.com>

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

-module(jose_jwa).



%% API

-export([constant_time_compare/2]).



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

%% API functions

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



constant_time_compare(<<>>, _) ->

	false;

constant_time_compare(_, <<>>) ->

	false;

constant_time_compare(A, B)

		when is_binary(A) andalso is_binary(B)

		andalso (byte_size(A) =/= byte_size(B)) ->

	false;

constant_time_compare(A, B)

		when is_binary(A) andalso is_binary(B)

		andalso (byte_size(A) =:= byte_size(B)) ->

	constant_time_compare(A, B, 0).



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

%%% Internal functions

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



%% @private

constant_time_compare(<< AH, AT/binary >>, << BH, BT/binary >>, R) ->

	constant_time_compare(AT, BT, R bor (BH bxor AH));

constant_time_compare(<<>>, <<>>, R) ->

	R =:= 0.