Packages

ca

4.6.0
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
2 Dependencies
Dependants
Files
Activity
ca lib sec.ex
Raw

lib/sec.ex 

defmodule CA.CRYPTO do

    @aad "AES256CBC"



    def testCMSX509() do

        {_,base} = :file.read_file "priv/encrypted.txt"

        bin = :base64.decode base

        :'CryptographicMessageSyntax-2009'.decode(:ContentInfo, bin)

    end



    def privat(name) do

        prefix = "priv/"

        key = :public_key.pem_entry_decode(:erlang.hd(:public_key.pem_decode(:erlang.element(2, :file.read_file(prefix <> name <> ".key")))))

        {_,_,keyBin,_,_,_} = key

        keyBin

    end



    def public(name) do

        prefix = "priv/"

        pub  = :public_key.pem_entry_decode(:erlang.hd(:public_key.pem_decode(:erlang.element(2, :file.read_file(prefix <> name <> ".pem")))))

        :erlang.element(3,:erlang.element(8, :erlang.element(2, pub)))

    end



    def shared(pub, key, scheme), do: :crypto.compute_key(:ecdh, pub, key, scheme)



    def test() do

        key = privat "client"

        public = public "client"

         {_,{:ContentInfo,_,{:EnvelopedData,_,_,x,{:EncryptedContentInfo,_,_,cipher},_}}} = CA.CRYPTO.testCMSX509

        [kari: {_,:v3,{_,{_,_,pub}},_,_,[{_,_,data}]}] = x

        {pub,public,data,key,cipher}



    end





end