Packages

ca

7.1.3
7.6.2 7.4.14 7.1.4 7.1.3 7.1.2 7.1.1 6.1.1 5.11.22 5.11.15 5.11.13 5.11.5 5.11.1 5.10.4 5.10.3 5.10.2 5.10.1 4.8.2 4.7.26 4.7.14 4.7.13 4.7.12 4.7.2 4.7.1 4.6.1 4.6.0 2.7.14 1.11.0 1.10.0 1.2.1 1.2.0 1.1.1 1.1.0 0.10.0 0.9.0 0.8.2 0.8.1 0.8.0 0.1.0

CA CXC 138 21 Certificate Authority

HexDocs

Current section

Files

Jump to
Readme
38 Versions
6 Dependencies
Dependants
Files
Activity
ca lib agreement EC curve.ex
Raw

lib/agreement/EC/curve.ex 

defmodule CA.Curve do

  @moduledoc "CA Curve library."

  require CA.Integer

  require CA.Point

  defstruct [:A, :B, :P, :N, :G, :name, :oid]



  # ANSI X9.142–2020 ECDSA http://oid-info.com/get/1.3.132.0



  def oid(:sect163k1), do: {1,3,132,0,1}

  def oid(:sect163r2), do: {1,3,132,0,15}

  def oid(:secp224r1), do: {1,3,132,0,33}

  def oid(:sect233k1), do: {1,3,132,0,26}

  def oid(:sect233r1), do: {1,3,132,0,27}

  def oid(:sect283k1), do: {1,3,132,0,16}

  def oid(:sect283r1), do: {1,3,132,0,17}

  def oid(:secp384r1), do: {1,3,132,0,34}

  def oid(:sect409k1), do: {1,3,132,0,36}

  def oid(:sect409r1), do: {1,3,132,0,37}

  def oid(:secp521r1), do: {1,3,132,0,35}

  def oid(:sect571k1), do: {1,3,132,0,38}

  def oid(:sect571r1), do: {1,3,132,0,39}



  def contains?(curve, p) do

      cond do

        p.x < 0 || p.x > curve."P" - 1 -> false

        p.y < 0 || p.y > curve."P" - 1 -> false

        CA.Integer.ipow(p.y, 2) - (CA.Integer.ipow(p.x, 3) + curve."A" * p.x + curve."B")

          |> CA.Integer.modulo(curve."P") != 0 -> false

        true -> true

      end

  end

  def getLength(curve) do

      div(1 + String.length(Integer.to_string(curve."N", 16)), 2)

  end

end