Packages

base32_clockwork

2023.1.0
2023.1.0 2021.3.0 2021.2.0

Clockwork Base32

Current section

Files

Jump to
Readme
3 Versions
0 Dependencies
Dependants
Files
Activity
base32_clockwork src base32_rfc4648.erl
Raw

src/base32_rfc4648.erl 

-module(base32_rfc4648).



-export([encode/1, decode/1]).



-import(base32_utils, [rev_bits_list_to_binary/1]).





-spec encode(binary()) -> binary().

encode(Data) ->

    list_to_binary(encode0(Data)).





encode0(Data) ->

    Size = bit_size(Data),

    RevEncoded = case 40 - (Size rem 40) of

                     40 ->

                         encode1(Data, []);

                     32 ->

                         [$=, $=, $=, $=, $=, $= | encode1(Data, [])];

                     24 ->

                         [$=, $=, $=, $= | encode1(Data, [])];

                     16 ->

                         [$=, $=, $= | encode1(Data, [])];

                     8 ->

                         [$= | encode1(Data, [])]

                 end,

    lists:reverse(RevEncoded).





encode1(<<>>, Accu) ->

    Accu;



encode1(<<0:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$A | Accu]);

encode1(<<1:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$B | Accu]);

encode1(<<2:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$C | Accu]);

encode1(<<3:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$D | Accu]);

encode1(<<4:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$E | Accu]);

encode1(<<5:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$F | Accu]);

encode1(<<6:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$G | Accu]);

encode1(<<7:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$H | Accu]);

encode1(<<8:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$I | Accu]);

encode1(<<9:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$J | Accu]);

encode1(<<10:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$K | Accu]);

encode1(<<11:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$L | Accu]);

encode1(<<12:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$M | Accu]);

encode1(<<13:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$N | Accu]);

encode1(<<14:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$O | Accu]);

encode1(<<15:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$P | Accu]);

encode1(<<16:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$Q | Accu]);

encode1(<<17:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$R | Accu]);

encode1(<<18:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$S | Accu]);

encode1(<<19:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$T | Accu]);

encode1(<<20:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$U | Accu]);

encode1(<<21:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$V | Accu]);

encode1(<<22:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$W | Accu]);

encode1(<<23:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$X | Accu]);

encode1(<<24:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$Y | Accu]);

encode1(<<25:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$Z | Accu]);

encode1(<<26:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$2 | Accu]);

encode1(<<27:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$3 | Accu]);

encode1(<<28:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$4 | Accu]);

encode1(<<29:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$5 | Accu]);

encode1(<<30:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$6 | Accu]);

encode1(<<31:5, Next/bitstring>>, Accu) ->

    encode1(Next, [$7 | Accu]);



encode1(<<0:4>>, Accu) ->

    [$A | Accu];

encode1(<<1:4>>, Accu) ->

    [$C | Accu];

encode1(<<2:4>>, Accu) ->

    [$E | Accu];

encode1(<<3:4>>, Accu) ->

    [$G | Accu];

encode1(<<4:4>>, Accu) ->

    [$I | Accu];

encode1(<<5:4>>, Accu) ->

    [$K | Accu];

encode1(<<6:4>>, Accu) ->

    [$M | Accu];

encode1(<<7:4>>, Accu) ->

    [$O | Accu];

encode1(<<8:4>>, Accu) ->

    [$Q | Accu];

encode1(<<9:4>>, Accu) ->

    [$S | Accu];

encode1(<<10:4>>, Accu) ->

    [$U | Accu];

encode1(<<11:4>>, Accu) ->

    [$W | Accu];

encode1(<<12:4>>, Accu) ->

    [$Y | Accu];

encode1(<<13:4>>, Accu) ->

    [$2 | Accu];

encode1(<<14:4>>, Accu) ->

    [$4 | Accu];

encode1(<<15:4>>, Accu) ->

    [$6 | Accu];



encode1(<<0:3>>, Accu) ->

    [$A | Accu];

encode1(<<1:3>>, Accu) ->

    [$E | Accu];

encode1(<<2:3>>, Accu) ->

    [$I | Accu];

encode1(<<3:3>>, Accu) ->

    [$M | Accu];

encode1(<<4:3>>, Accu) ->

    [$Q | Accu];

encode1(<<5:3>>, Accu) ->

    [$U | Accu];

encode1(<<6:3>>, Accu) ->

    [$Y | Accu];

encode1(<<7:3>>, Accu) ->

    [$4 | Accu];



encode1(<<0:2>>, Accu) ->

    [$A | Accu];

encode1(<<1:2>>, Accu) ->

    [$I | Accu];

encode1(<<2:2>>, Accu) ->

    [$Q | Accu];

encode1(<<3:2>>, Accu) ->

    [$Y | Accu];



encode1(<<0:1>>, Accu) ->

    [$A | Accu];

encode1(<<1:1>>, Accu) ->

    [$Q | Accu].





-spec decode(binary()) -> {ok, binary()} | {error, atom()}.

decode(Data) ->

    decode0(Data, []).





decode0(<<>>, Accu) ->

    {ok, rev_bits_list_to_binary(Accu)};

decode0(<<"A", Next/bitstring>>, Accu) ->

    decode0(Next, [<<0:5>> | Accu]);

decode0(<<"B", Next/bitstring>>, Accu) ->

    decode0(Next, [<<1:5>> | Accu]);

decode0(<<"C", Next/bitstring>>, Accu) ->

    decode0(Next, [<<2:5>> | Accu]);

decode0(<<"D", Next/bitstring>>, Accu) ->

    decode0(Next, [<<3:5>> | Accu]);

decode0(<<"E", Next/bitstring>>, Accu) ->

    decode0(Next, [<<4:5>> | Accu]);

decode0(<<"F", Next/bitstring>>, Accu) ->

    decode0(Next, [<<5:5>> | Accu]);

decode0(<<"G", Next/bitstring>>, Accu) ->

    decode0(Next, [<<6:5>> | Accu]);

decode0(<<"H", Next/bitstring>>, Accu) ->

    decode0(Next, [<<7:5>> | Accu]);

decode0(<<"I", Next/bitstring>>, Accu) ->

    decode0(Next, [<<8:5>> | Accu]);

decode0(<<"J", Next/bitstring>>, Accu) ->

    decode0(Next, [<<9:5>> | Accu]);

decode0(<<"K", Next/bitstring>>, Accu) ->

    decode0(Next, [<<10:5>> | Accu]);

decode0(<<"L", Next/bitstring>>, Accu) ->

    decode0(Next, [<<11:5>> | Accu]);

decode0(<<"M", Next/bitstring>>, Accu) ->

    decode0(Next, [<<12:5>> | Accu]);

decode0(<<"N", Next/bitstring>>, Accu) ->

    decode0(Next, [<<13:5>> | Accu]);

decode0(<<"O", Next/bitstring>>, Accu) ->

    decode0(Next, [<<14:5>> | Accu]);

decode0(<<"P", Next/bitstring>>, Accu) ->

    decode0(Next, [<<15:5>> | Accu]);

decode0(<<"Q", Next/bitstring>>, Accu) ->

    decode0(Next, [<<16:5>> | Accu]);

decode0(<<"R", Next/bitstring>>, Accu) ->

    decode0(Next, [<<17:5>> | Accu]);

decode0(<<"S", Next/bitstring>>, Accu) ->

    decode0(Next, [<<18:5>> | Accu]);

decode0(<<"T", Next/bitstring>>, Accu) ->

    decode0(Next, [<<19:5>> | Accu]);

decode0(<<"U", Next/bitstring>>, Accu) ->

    decode0(Next, [<<20:5>> | Accu]);

decode0(<<"V", Next/bitstring>>, Accu) ->

    decode0(Next, [<<21:5>> | Accu]);

decode0(<<"W", Next/bitstring>>, Accu) ->

    decode0(Next, [<<22:5>> | Accu]);

decode0(<<"X", Next/bitstring>>, Accu) ->

    decode0(Next, [<<23:5>> | Accu]);

decode0(<<"Y", Next/bitstring>>, Accu) ->

    decode0(Next, [<<24:5>> | Accu]);

decode0(<<"Z", Next/bitstring>>, Accu) ->

    decode0(Next, [<<25:5>> | Accu]);

decode0(<<"2", Next/bitstring>>, Accu) ->

    decode0(Next, [<<26:5>> | Accu]);

decode0(<<"3", Next/bitstring>>, Accu) ->

    decode0(Next, [<<27:5>> | Accu]);

decode0(<<"4", Next/bitstring>>, Accu) ->

    decode0(Next, [<<28:5>> | Accu]);

decode0(<<"5", Next/bitstring>>, Accu) ->

    decode0(Next, [<<29:5>> | Accu]);

decode0(<<"6", Next/bitstring>>, Accu) ->

    decode0(Next, [<<30:5>> | Accu]);

decode0(<<"7", Next/bitstring>>, Accu) ->

    decode0(Next, [<<31:5>> | Accu]);



decode0(<<"======">>, [<<0:5>> | Accu]) ->

    decode0(<<>>, [<<0:3>> | Accu]);

decode0(<<"======">>, [<<4:5>> | Accu]) ->

    decode0(<<>>, [<<1:3>> | Accu]);

decode0(<<"======">>, [<<8:5>> | Accu]) ->

    decode0(<<>>, [<<2:3>> | Accu]);

decode0(<<"======">>, [<<12:5>> | Accu]) ->

    decode0(<<>>, [<<3:3>> | Accu]);

decode0(<<"======">>, [<<16:5>> | Accu]) ->

    decode0(<<>>, [<<4:3>> | Accu]);

decode0(<<"======">>, [<<20:5>> | Accu]) ->

    decode0(<<>>, [<<5:3>> | Accu]);

decode0(<<"======">>, [<<24:5>> | Accu]) ->

    decode0(<<>>, [<<6:3>> | Accu]);

decode0(<<"======">>, [<<28:5>> | Accu]) ->

    decode0(<<>>, [<<7:3>> | Accu]);



decode0(<<"====">>, [<<0:5>> | Accu]) ->

    decode0(<<>>, [<<0:1>> | Accu]);

decode0(<<"====">>, [<<16:5>> | Accu]) ->

    decode0(<<>>, [<<1:1>> | Accu]);



decode0(<<"===">>, [<<0:5>> | Accu]) ->

    decode0(<<>>, [<<0:4>> | Accu]);

decode0(<<"===">>, [<<2:5>> | Accu]) ->

    decode0(<<>>, [<<1:4>> | Accu]);

decode0(<<"===">>, [<<4:5>> | Accu]) ->

    decode0(<<>>, [<<2:4>> | Accu]);

decode0(<<"===">>, [<<6:5>> | Accu]) ->

    decode0(<<>>, [<<3:4>> | Accu]);

decode0(<<"===">>, [<<8:5>> | Accu]) ->

    decode0(<<>>, [<<4:4>> | Accu]);

decode0(<<"===">>, [<<10:5>> | Accu]) ->

    decode0(<<>>, [<<5:4>> | Accu]);

decode0(<<"===">>, [<<12:5>> | Accu]) ->

    decode0(<<>>, [<<6:4>> | Accu]);

decode0(<<"===">>, [<<14:5>> | Accu]) ->

    decode0(<<>>, [<<7:4>> | Accu]);

decode0(<<"===">>, [<<16:5>> | Accu]) ->

    decode0(<<>>, [<<8:4>> | Accu]);

decode0(<<"===">>, [<<18:5>> | Accu]) ->

    decode0(<<>>, [<<9:4>> | Accu]);

decode0(<<"===">>, [<<20:5>> | Accu]) ->

    decode0(<<>>, [<<10:4>> | Accu]);

decode0(<<"===">>, [<<22:5>> | Accu]) ->

    decode0(<<>>, [<<11:4>> | Accu]);

decode0(<<"===">>, [<<24:5>> | Accu]) ->

    decode0(<<>>, [<<12:4>> | Accu]);

decode0(<<"===">>, [<<26:5>> | Accu]) ->

    decode0(<<>>, [<<13:4>> | Accu]);

decode0(<<"===">>, [<<28:5>> | Accu]) ->

    decode0(<<>>, [<<14:4>> | Accu]);

decode0(<<"===">>, [<<30:5>> | Accu]) ->

    decode0(<<>>, [<<15:4>> | Accu]);



decode0(<<"=">>, [<<0:5>> | Accu]) ->

    decode0(<<>>, [<<0:2>> | Accu]);

decode0(<<"=">>, [<<8:5>> | Accu]) ->

    decode0(<<>>, [<<1:2>> | Accu]);

decode0(<<"=">>, [<<16:5>> | Accu]) ->

    decode0(<<>>, [<<2:2>> | Accu]);

decode0(<<"=">>, [<<24:5>> | Accu]) ->

    decode0(<<>>, [<<3:2>> | Accu]);



decode0(_, _) ->

    {error, invalid_format}.