KamilLelonek

entropy_bytes
|> bit_size()
|> div(32)

KamilLelonek

binary
|> :binary.bin_to_list()
|> Enum.map(fn byte ->
  byte
  |> Integer.to_string(2)
  |> String.pad_leading(8, "0")
end)
|> Enum.join()

KamilLelonek

256
|> div(8)
|> :crypto.strong_rand_bytes()

KamilLelonek

entropy_length
|> div(32)
|> Kernel.+(entropy_length)
|> div(11)

KamilLelonek

defp duplicate_zeros(count) do
  "123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz"
  |> String.first()
  |> String.duplicate(count)
en

KamilLelonek

defp leading_zeros(input) do
  input
  |> :binary.bin_to_list()
  |> Enum.find_index(&(&1 != 0))
end

KamilLelonek

defp prepend_zeros(acc, input) do
  input
  |> encode_zeros()
  |> apend(acc)
end

defp encode_zeros(input) do
  input
  |> leading_zeros()
  |> duplicate_zeros()

KamilLelonek

def call(input, acc) do
  input
  |> div(58)
  |> call(extended_hash(input, acc))
end

defp extended_hash(input, acc) do
  "123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz"
  |> String.at(rem(input, 58))
  |> apend(acc)

KamilLelonek

def call(input, acc \\ "")
def call(0, acc), do: acc
def call(input, acc)
    when is_binary(input) do
  input
  |> :binary.decode_unsigned()
  |> call(acc)
  |> prepend_zeros(input)
end

KamilLelonek

versioned_hash <> checksum