Packages

jamdb_oracle

0.1.0
0.5.12 0.5.11 0.5.10 0.5.9 0.5.8 0.5.7 0.5.6 0.5.5 0.5.4 0.5.3 0.5.2 retired 0.5.1 retired 0.5.0 retired 0.4.12 retired 0.4.11 retired 0.4.10 retired 0.4.9 retired 0.4.8 retired 0.4.7 retired 0.4.6 retired 0.4.5 retired 0.4.4 retired 0.4.3 retired 0.4.2 retired 0.4.1 retired 0.4.0 retired 0.3.10 retired 0.3.9 retired 0.3.8 retired 0.3.7 retired 0.3.6 retired 0.3.5 retired 0.3.4 retired 0.3.3 retired 0.3.2 retired 0.3.1 retired 0.3.0 retired 0.2.7 retired 0.2.6 retired 0.2.5 retired 0.2.4 retired 0.2.3 retired 0.2.2 retired 0.2.1 retired 0.2.0 retired 0.1.6 retired 0.1.5 retired 0.1.4 retired 0.1.3 retired 0.1.2 retired 0.1.1 retired 0.1.0 retired 0.0.10 retired 0.0.9 retired 0.0.8 retired 0.0.7 retired 0.0.6 retired 0.0.5 retired 0.0.4 retired 0.0.3 retired 0.0.2 retired 0.0.1 retired

Erlang driver and Ecto adapter for Oracle

Retired package: Deprecated
HexDocs

Current section

Files

Jump to
Readme
62 Versions
3 Dependencies
Dependants
Files
Activity
jamdb_oracle src jamdb_oracle_crypt.erl
Raw

src/jamdb_oracle_crypt.erl 

-module(jamdb_oracle_crypt).



-export([o5logon/4]).

-export([validate/2]).



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

%% callbacks

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



o5logon(Sess, User, Pass, Bits) when is_list(Sess), Bits =:= 128 ->

    IVec = <<0:64>>,

    CliPass = norm(User++Pass),

    Rest1 = crypto:block_encrypt(des_cbc, hexstr2bin("0123456789ABCDEF"), IVec, CliPass),

    Rest2 = crypto:block_encrypt(des_cbc, binary:part(Rest1,byte_size(Rest1),-8), IVec, CliPass),

    KeySess = <<(binary:part(Rest2,byte_size(Rest2),-8))/binary,0:64>>,

    o5logon(hexstr2bin(Sess), KeySess, Pass, Bits);

o5logon(Sess, Salt, Pass, Bits) when is_list(Sess), Bits =:= 192 ->

    Data = crypto:hash(sha,<<(list_to_binary(Pass))/binary,(hexstr2bin(Salt))/binary>>),

    KeySess = <<Data/binary,0:32>>,

    o5logon(hexstr2bin(Sess), KeySess, Pass, Bits);

o5logon(Sess, KeySess, Pass, Bits) when is_binary(Sess) ->

    IVec = <<0:128>>,

    SrvSess = jose_jwa_aes:block_decrypt({aes_cbc, Bits}, KeySess, IVec, Sess),

    CliSess = crypto:strong_rand_bytes(Bits div 4),

    AuthSess = jose_jwa_aes:block_encrypt({aes_cbc, Bits}, KeySess, IVec, CliSess),

    CatKey = cat_key(binary:part(SrvSess,16,Bits div 8),binary:part(CliSess,16,Bits div 8),[]),

    KeyConn = conn_key(CatKey, Bits),

    AuthPass = jose_jwa_aes:block_encrypt({aes_cbc, Bits}, KeyConn, IVec, pad(Pass)),

    {bin2hexstr(AuthPass), bin2hexstr(AuthSess), bin2hexstr(KeyConn)}.



validate(Resp, KeyConn) ->

    IVec = <<0:128>>,

    Bits = length(KeyConn) * 4,

    Data = jose_jwa_aes:block_decrypt({aes_cbc, Bits}, hexstr2bin(KeyConn), IVec, hexstr2bin(Resp)),    

    case binary:match(Data,<<"SERVER_TO_CLIENT">>) of

	nomatch -> error;

	_ -> ok

    end.



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

%% Internal misc

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



conn_key(Data, Bits) when Bits =:= 128 ->  

    <<(erlang:md5(Data))/binary>>;

conn_key(Data, Bits) when Bits =:= 192 ->  

    <<(erlang:md5(binary:part(Data,0,16)))/binary,

      (binary:part(erlang:md5(binary:part(Data,16,8)),0,8))/binary>>.



cat_key(<<>>,<<>>,S) ->

    list_to_binary(S);

cat_key(<<H, X/bits>>,<<L, Y/bits>>,S) ->

    cat_key(X,Y,S++[H bxor L]).



norm(Data) ->

    S = norm(list_to_binary(Data),[]),

    N = (8 - (length(S) rem 8 )) rem 8,

    <<(list_to_binary(S))/binary, (binary:copy(<<0>>, N))/binary>>.



norm(<<>>,S) ->

    S;

norm(<<U/utf8,R/binary>>,S) ->

    C = case U of

	N when N > 255 -> 63;

	N when N >= 97, N =< 122 -> N-32;

	N -> N

    end,

    norm(R,S++[0,C]).



pad(S) ->

    P = 16 - (length(S) rem 16),

    <<(pad(16,<<>>))/binary, (pad(P,list_to_binary(S)))/binary>>.



pad(P, Bin) -> <<Bin/binary, (binary:copy(<<P>>, P))/binary>>.



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.



bin2hexstr(Bin) when is_binary(Bin) ->

    binary_to_list(bin2hex(Bin)).



bin2hex(Bin) when is_binary(Bin) ->

    << <<(mkhex(H)),(mkhex(L))>> || <<H:4,L:4>> <= Bin >>.

mkhex(C) when C < 10 -> $0 + C;

mkhex(C) -> $A + C - 10.