Packages

ssl_verify_fun

1.1.1
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.8

SSL verification library

Current section

Files

Jump to
Readme
9 Versions
0 Dependencies
Dependants
Files
Activity
ssl_verify_fun src ssl_verify_util.erl
Raw

src/ssl_verify_util.erl 

-module(ssl_verify_util).



-export([bin_to_hexstr/1,

         hexstr_to_bin/1]).



bin_to_hexstr(Bin) ->

  lists:flatten([io_lib:format("~2.16.0B", [X]) ||

    X <- binary_to_list(Bin)]).

hexstr_to_bin(S) when is_list(S) and (length(S) rem 2 =:= 0) ->

  hexstr_to_bin(S, []);

hexstr_to_bin(_) ->

  invalid.

hexstr_to_bin([], Acc) ->

  list_to_binary(lists:reverse(Acc));

hexstr_to_bin([X,Y|T], Acc) ->

  {ok, [V], []} = io_lib:fread("~16u", [X,Y]),

  hexstr_to_bin(T, [V | Acc]).