{escript_incl_apps, [enoise]}.

{escript_incl_apps, [enoise, b]}.

        #{mode := client, host := Host, port := Port, keys := KeyFile, server_pk := ServerPK} ->

        #{mode := client, host := Host, port := Port, keys := KeyFile, server_pk := ServerPKStr} ->

            ServerPK = hex_binary(ServerPK),

            ServerPK = hex:hexstr_to_bin(ServerPKStr),

    SKHex = bin_to_hex(Secret),
    PKHex = bin_to_hex(Public),

    SKHex = hex:bin_to_hexstr(Secret),
    PKHex = hex:bin_to_hexstrn(Public),

                    {hex(SK), hex(PK)};

                    {hex:hexstr_to_bin(SK), hex:hexstr_to_bin(PK)};

    end.
%% Support: "FFAABB.." or <<255,170,187,...>> or base64
hex(H) when is_list(H), length(H) == 64 ->
    hex_binary(list_to_binary(H));
hex(B) when is_binary(B), bit_size(B) == 256 ->
    B;
hex(S) when is_list(S); is_binary(S) ->
    base64_decode_or_hex_binary(S).
base64_decode_or_hex_binary(S) ->
    try
        base64:decode(S)
    catch _:_ ->
        try
            hex_binary(S)
        catch _:_ ->
            error({invalid_key_encoding, S})
        end

hex_binary(Bin) when is_binary(Bin) ->
    hex_binary(binary_to_list(Bin));
hex_binary(HexStr) ->
    list_to_binary(
        [erlang:list_to_integer([A, B], 16) || [A, B] <- lists:splitlists(2, HexStr)]
    ).

bin_to_hex(Bin) ->
    lists:flatten([io_lib:format("~2.16.0B", [X]) || X <- binary_to_list(Bin)]).