Packages
fast_tls
1.0.21
1.1.26
1.1.25
1.1.24
1.1.22
1.1.21
1.1.20
1.1.19
1.1.18
1.1.16
1.1.15
1.1.14
1.1.13
1.1.12
1.1.11
1.1.10
1.1.8
1.1.7
1.1.6
1.1.5
1.1.4
1.1.3
1.1.2
1.1.1
1.1.0
1.0.26
1.0.25
1.0.23
1.0.22
1.0.21
1.0.20
1.0.19
1.0.18
1.0.16
1.0.15
1.0.13
1.0.12
1.0.11
1.0.10
1.0.8
1.0.7
1.0.6
1.0.5
1.0.4
1.0.3
1.0.2
1.0.1
1.0.0
1.0.0-beta1
TLS / SSL OpenSSL-based native driver for Erlang / Elixir
Current section
Files
Jump to
Current section
Files
src/p1_sha.erl
%%%----------------------------------------------------------------------
%%% File : p1_sha.erl
%%% Author : Alexey Shchepin <alexey@process-one.net>
%%% Purpose :
%%% Created : 20 Dec 2002 by Alexey Shchepin <alexey@process-one.net>
%%%
%%%
%%% Copyright (C) 2002-2017 ProcessOne, SARL. All Rights Reserved.
%%%
%%% Licensed under the Apache License, Version 2.0 (the "License");
%%% you may not use this file except in compliance with the License.
%%% You may obtain a copy of the License at
%%%
%%% http://www.apache.org/licenses/LICENSE-2.0
%%%
%%% Unless required by applicable law or agreed to in writing, software
%%% distributed under the License is distributed on an "AS IS" BASIS,
%%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
%%% See the License for the specific language governing permissions and
%%% limitations under the License.
%%%
%%%----------------------------------------------------------------------
-module(p1_sha).
-author('alexey@process-one.net').
-compile(no_native).
-export([load_nif/0, sha/1, to_hexlist/1]).
%% The following functions are deprecated.
-export([sha1/1, sha224/1, sha256/1, sha384/1, sha512/1]).
-deprecated([{sha1,1}, {sha224,1}, {sha256,1}, {sha384,1}, {sha512,1}]).
-ifdef(TEST).
-include_lib("eunit/include/eunit.hrl").
-endif.
%%%===================================================================
%%% API functions
%%%===================================================================
load_nif() ->
load_nif(p1_nif_utils:get_so_path(?MODULE, [fast_tls], "p1_sha")).
load_nif(SOPath) ->
case catch erlang:load_nif(SOPath, 0) of
ok ->
ok;
{error, {reload, _}} ->
%% Do not log warning when just attempting to reload nif.
ok;
Err ->
error_logger:warning_msg("unable to load sha NIF: ~p~n", [Err]),
Err
end.
-spec to_hexlist(iodata()) -> binary().
-spec sha(iodata()) -> binary().
-spec sha1(iodata()) -> binary().
-spec sha224(iodata()) -> binary().
-spec sha256(iodata()) -> binary().
-spec sha384(iodata()) -> binary().
-spec sha512(iodata()) -> binary().
to_hexlist(_Text) ->
erlang:nif_error(nif_not_loaded).
sha(Text) ->
to_hexlist(crypto:hash(sha, Text)).
sha1(Text) ->
crypto:hash(sha, Text).
sha224(Text) ->
crypto:hash(sha224, Text).
sha256(Text) ->
crypto:hash(sha256, Text).
sha384(Text) ->
crypto:hash(sha384, Text).
sha512(Text) ->
crypto:hash(sha512, Text).
%%%===================================================================
%%% Unit tests
%%%===================================================================
-ifdef(TEST).
load_nif_test() ->
?assertEqual(ok, load_nif(p1_nif_utils:get_so_path(?MODULE, [], "p1_sha"))).
sha1_test() ->
?assertEqual(
<<169,74,143,229,204,177,155,166,28,76,8,115,211,145,233,
135,152,47,187,211>>,
sha1("test")).
sha224_test() ->
?assertEqual(
<<144,163,237,158,50,178,170,244,198,28,65,14,185,37,66,
97,25,225,169,220,83,212,40,106,222,153,168,9>>,
sha224("test")).
sha256_test() ->
?assertEqual(
<<159,134,208,129,136,76,125,101,154,47,234,160,197,90,208,
21,163,191,79,27,43,11,130,44,209,93,108,21,176,240,10,8>>,
sha256("test")).
sha384_test() ->
?assertEqual(
<<118,132,18,50,15,123,10,165,129,47,206,66,141,196,112,107,
60,174,80,224,42,100,202,161,106,120,34,73,191,232,239,196,
183,239,28,203,18,98,85,209,150,4,125,254,223,23,160,169>>,
sha384("test")).
sha512_test() ->
?assertEqual(
<<238,38,176,221,74,247,231,73,170,26,142,227,193,10,233,146,
63,97,137,128,119,46,71,63,136,25,165,212,148,14,13,178,122,
193,133,248,160,225,213,248,79,136,188,136,127,214,123,20,55,
50,195,4,204,95,169,173,142,111,87,245,0,40,168,255>>,
sha512("test")).
to_hexlist_test() ->
?assertEqual(
<<"000102030405060708090a0b0c0d0e0f101112131415161718191a1b1c1d1e1f202122"
"232425262728292a2b2c2d2e2f303132333435363738393a3b3c3d3e3f404142434445"
"464748494a4b4c4d4e4f505152535455565758595a5b5c5d5e5f606162636465666768"
"696a6b6c6d6e6f707172737475767778797a7b7c7d7e7f808182838485868788898a8b"
"8c8d8e8f909192939495969798999a9b9c9d9e9fa0a1a2a3a4a5a6a7a8a9aaabacadae"
"afb0b1b2b3b4b5b6b7b8b9babbbcbdbebfc0c1c2c3c4c5c6c7c8c9cacbcccdcecfd0d1"
"d2d3d4d5d6d7d8d9dadbdcdddedfe0e1e2e3e4e5e6e7e8e9eaebecedeeeff0f1f2f3f4"
"f5f6f7f8f9fafbfcfdfeff">>,
to_hexlist(lists:seq(0, 255))).
-endif.