Packages

diint_utilites_common_app

1.4.21
1.4.23 1.4.22 1.4.21 1.4.20 1.4.19 1.4.18 1.4.17 1.4.16 1.4.15 1.4.14 1.4.12 1.4.11 1.4.10 1.4.9 1.4.8 1.4.7 1.4.6 1.4.5 1.4.4 1.4.3 1.4.2 1.4.1 1.4.0 1.3.9 1.3.8 1.3.7 1.3.6 1.3.5 1.3.4 1.3.3 1.3.2 1.3.1 1.3.0 1.2.101 1.2.11 1.2.10 1.2.9 1.2.8 1.2.7 1.2.6 1.2.5 1.2.4 1.2.3 1.2.2 1.2.1 1.2.0 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.13 1.0.12 1.0.11 1.0.10 1.0.9 1.0.8 1.0.7 1.0.6 1.0.5 1.0.4 1.0.3 1.0.2 1.0.1

библиотеки для работы с ребитом и протоколы

HexDocs

Current section

Files

Jump to
Readme
67 Versions
4 Dependencies
Dependants
Files
Activity
diint_utilites_common_app src security diint_triple_des.erl
Raw

src/security/diint_triple_des.erl 

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

%%% @author cheese

%%% @copyright (C) 2015, <COMPANY>

%%% @doc

%%%

%%% @end

%%% Created : 25. Nov 2015 10:26

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

-module(diint_triple_des).

-author("cheese").



%% API

-export([encript/2, decript/2]).

-include_lib("kernel/include/logger.hrl").





encript(Key, Bytes) ->

  MD5 = erlang:md5(Key),

  ?LOG_INFO("MD5: ~s, ~w~n", [MD5, binary_to_list(MD5)]),

  crypto:des_ecb_encrypt(hexstr2bin(binary_to_list(MD5)), <<1,2,3,4,5,6,7,8>>).



decript(Key, Bytes) ->

  crypto:des_ecb_decrypt(erlang:md5(Key), Bytes).





% hexstr2bin

hexstr2bin(S) ->

  list_to_binary(hexstr2list(S)).



hexstr2list([X,Y|T]) ->

  [mkint(X)*16 + mkint(Y) | hexstr2list(T)];

hexstr2list([]) ->

  [].



mkint(C) when $0 =< C, C =< $9 ->

  C - $0;

mkint(C) when $A =< C, C =< $F ->

  C - $A + 10;

mkint(C) when $a =< C, C =< $f ->

  C - $a + 10.