lucid.package.privacy — zcaudate/lucid.package 1.4.7

+bouncy-castle+ clj

all-public-keys clj

(all-public-keys rcoll)

returns all public keys within a keyring

(-> package/GNUPG-PUBLIC (load-public-keyring) (all-public-keys))

all-secret-keys clj

(all-secret-keys rcoll)

returns all secret keys within a keyring

(-> package/GNUPG-SECRET (load-secret-keyring) (all-secret-keys))

crc-24 clj

(crc-24 input)

returns the crc24 checksum

(crc-24 (byte-array [100 100 100 100 100 100])) => ["=6Fko" [-24 89 40] 15227176]

decrypt clj

(decrypt encrypted-file keyring-file)

returns the decrypted file given a keyring file

(decrypt package/LEIN-CREDENTIALS-GPG package/GNUPG-SECRET)

fingerprint clj

(fingerprint pub)

returns the fingerprint of a public key

(-> package/GNUPG-PUBLIC (load-public-keyring) (all-public-keys) (first) (fingerprint)) => "9B94FD0EA99482F6BC00777313319CB698B9A74D"

generate-signature clj

(generate-signature bytes [public-key private-key])

(generate-signature bytes rcoll key-id)

generates a signature given bytes and a keyring

(generate-signature (fs/read-all-bytes "project.clj") (load-secret-keyring lucid.package.user/GNUPG-SECRET) "98B9A74D")

get-keypair clj

(get-keypair rcoll sig)

returns public and private keys given a fingerprint

(-> package/GNUPG-SECRET (load-secret-keyring) (get-keypair "9B94FD0E")) ;;=> [#key.public[9B94FD0EA99482F6BC00777313319CB698B9A74D] ;; #key.private[1383058868639737677]]

get-public-key clj

(get-public-key rcoll sig)

returns public key given a partial fingerprint

(-> package/GNUPG-PUBLIC (load-public-keyring) (get-public-key "9B94FD0E"))

get-secret-key clj

(get-secret-key rcoll sig)

returns secret key given a fingerprint

(-> package/GNUPG-SECRET (load-secret-keyring) (get-secret-key "9B94FD0E"))

load-public-keyring clj

(load-public-keyring input)

loads a public keyring

(load-public-keyring package/GNUPG-PUBLIC)

load-secret-keyring clj

(load-secret-keyring input)

loads a secret keyring

(load-secret-keyring package/GNUPG-SECRET)

pgp-signature clj

(pgp-signature bytes)

returns a gpg signature from encoded bytes

(-> (generate-signature (fs/read-all-bytes "project.clj") (load-secret-keyring lucid.package.user/GNUPG-SECRET) "98B9A74D") (.getEncoded) (pgp-signature))

read-sig-file clj

(read-sig-file sig-file)

reads bytes from a GPG compatible file

(read-sig-file "project.clj.asc")

save-keyring clj

(save-keyring keyring path)

saves a keyring to file

(-> package/GNUPG-SECRET (load-secret-keyring) (save-keyring "hello.gpg"))

sign clj

(sign input sig-file [public-key private-key :as keypair])

(sign input sig-file keyring-file key-id)

generates a output gpg signature for an input file

(sign "project.clj" "project.clj.asc" lucid.package.user/GNUPG-SECRET "98B9A74D")

verify clj

(verify input sig-file public-key)

(verify input sig-file keyring-file key-id)

verifies that the signature works

(verify "project.clj" "project.clj.asc" lucid.package.user/GNUPG-SECRET "98B9A74D") => true

write-sig-file clj

(write-sig-file sig-file bytes)

writes bytes to a GPG compatible file

(write-sig-file "project.clj.asc" (-> (generate-signature (fs/read-all-bytes "project.clj") (load-secret-keyring lucid.package.user/GNUPG-SECRET) "98B9A74D") (.getEncoded)))