458 lines
17 KiB
Scheme
458 lines
17 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
|
;;; Copyright © 2012, 2013, 2014 Ludovic Courtès <ludo@gnu.org>
|
|
;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
|
|
;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
|
|
;;;
|
|
;;; This file is part of GNU Guix.
|
|
;;;
|
|
;;; GNU Guix is free software; you can redistribute it and/or modify it
|
|
;;; under the terms of the GNU General Public License as published by
|
|
;;; the Free Software Foundation; either version 3 of the License, or (at
|
|
;;; your option) any later version.
|
|
;;;
|
|
;;; GNU Guix is distributed in the hope that it will be useful, but
|
|
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;;; GNU General Public License for more details.
|
|
;;;
|
|
;;; You should have received a copy of the GNU General Public License
|
|
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
(define-module (gnu packages gnupg)
|
|
#:use-module (guix licenses)
|
|
#:use-module (gnu packages curl)
|
|
#:use-module (gnu packages openldap)
|
|
#:use-module (gnu packages perl)
|
|
#:use-module (gnu packages pth)
|
|
#:use-module (gnu packages python)
|
|
#:use-module (gnu packages readline)
|
|
#:use-module ((gnu packages compression)
|
|
#:renamer (symbol-prefix-proc 'guix:))
|
|
#:use-module (gnu packages gtk)
|
|
#:use-module (gnu packages glib)
|
|
#:use-module (gnu packages pkg-config)
|
|
#:use-module (gnu packages ncurses)
|
|
#:use-module (guix packages)
|
|
#:use-module (guix download)
|
|
#:use-module (guix build-system gnu))
|
|
|
|
(define-public libgpg-error
|
|
(package
|
|
(name "libgpg-error")
|
|
(version "1.12")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "mirror://gnupg/libgpg-error/libgpg-error-"
|
|
version ".tar.bz2"))
|
|
(sha256
|
|
(base32
|
|
"0pz58vr12qihq2f0bypjxsb6cf6ajq5258fmfm8s6lvwm3b9xz6a"))))
|
|
(build-system gnu-build-system)
|
|
(home-page "http://gnupg.org")
|
|
(synopsis
|
|
"Libgpg-error, a small library that defines common error values for all GnuPG components")
|
|
(description
|
|
"Libgpg-error is a small library that defines common error values
|
|
for all GnuPG components. Among these are GPG, GPGSM, GPGME,
|
|
GPG-Agent, libgcrypt, Libksba, DirMngr, Pinentry, SmartCard
|
|
Daemon and possibly more in the future.")
|
|
(license lgpl2.0+)))
|
|
|
|
(define-public libgcrypt
|
|
(package
|
|
(name "libgcrypt")
|
|
(version "1.6.1")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "mirror://gnupg/libgcrypt/libgcrypt-"
|
|
version ".tar.bz2"))
|
|
(sha256
|
|
(base32
|
|
"0w10vhpj1r5nq7qm6jp21p1v1vhf37701cw8yilygzzqd7mfzhx1"))))
|
|
(build-system gnu-build-system)
|
|
(propagated-inputs
|
|
`(("libgpg-error" ,libgpg-error)))
|
|
(native-inputs
|
|
;; Needed here for the 'gpg-error' program.
|
|
`(("libgpg-error" ,libgpg-error)))
|
|
(arguments
|
|
;; The '--with-gpg-error-prefix' argument is needed because otherwise
|
|
;; 'configure' uses 'gpg-error-config' to determine the '-L' flag, and
|
|
;; the 'gpg-error-config' it runs is the native one---i.e., the wrong one.
|
|
`(#:configure-flags
|
|
(list (string-append "--with-gpg-error-prefix="
|
|
(assoc-ref %build-inputs "libgpg-error")))))
|
|
(outputs '("out" "debug"))
|
|
(home-page "http://gnupg.org/")
|
|
(synopsis "Cryptographic function library")
|
|
(description
|
|
"Libgcrypt is a general-purpose cryptographic library. It provides the
|
|
standard cryptographic building blocks such as symmetric ciphers, hash
|
|
algorithms, public key algorithms, large integer functions and random number
|
|
generation.")
|
|
(license lgpl2.0+)))
|
|
|
|
(define-public libgcrypt-1.5
|
|
(package (inherit libgcrypt)
|
|
(version "1.5.3")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "mirror://gnupg/libgcrypt/libgcrypt-"
|
|
version ".tar.bz2"))
|
|
(sha256
|
|
(base32
|
|
"1lar8y3lh61zl5flljpz540d78g99h4d5idfwrfw8lm3gm737xdw"))))))
|
|
|
|
(define-public libassuan
|
|
(package
|
|
(name "libassuan")
|
|
(version "2.1.1")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "mirror://gnupg/libassuan/libassuan-"
|
|
version ".tar.bz2"))
|
|
(sha256
|
|
(base32
|
|
"1783nb0b6nr9yjhb5wfh8ykc5w89f4anppz1kz9913mqg5vxdqi3"))))
|
|
(build-system gnu-build-system)
|
|
(propagated-inputs
|
|
`(("libgpg-error" ,libgpg-error) ("pth" ,pth)))
|
|
(home-page "http://gnupg.org")
|
|
(synopsis
|
|
"Libassuan, the IPC library used by GnuPG and related software")
|
|
(description
|
|
"Libassuan is a small library implementing the so-called Assuan
|
|
protocol. This protocol is used for IPC between most newer
|
|
GnuPG components. Both, server and client side functions are
|
|
provided.")
|
|
(license lgpl2.0+)))
|
|
|
|
(define-public libksba
|
|
(package
|
|
(name "libksba")
|
|
(version "1.3.0")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append
|
|
"mirror://gnupg/libksba/libksba-"
|
|
version ".tar.bz2"))
|
|
(sha256
|
|
(base32
|
|
"0w8rfb6yhcwkwzvjafrashcygy4hd9xwwmvlnkfd1m2h0paywqas"))))
|
|
(build-system gnu-build-system)
|
|
(propagated-inputs
|
|
`(("libgpg-error" ,libgpg-error)))
|
|
(native-inputs
|
|
`(("libgpg-error" ,libgpg-error)))
|
|
(arguments
|
|
`(#:configure-flags
|
|
(list ,@(if (%current-target-system)
|
|
'("CC_FOR_BUILD=gcc")
|
|
'())
|
|
(string-append "--with-gpg-error-prefix="
|
|
(assoc-ref %build-inputs "libgpg-error")))))
|
|
(home-page "http://www.gnupg.org")
|
|
(synopsis
|
|
"Libksba is a CMS and X.509 access library under development")
|
|
(description
|
|
"KSBA (pronounced Kasbah) is a library to make X.509 certificates
|
|
as well as the CMS easily accessible by other applications. Both
|
|
specifications are building blocks of S/MIME and TLS.")
|
|
(license gpl3+)))
|
|
|
|
(define-public gnupg
|
|
(package
|
|
(name "gnupg")
|
|
(version "2.0.22")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "mirror://gnupg/gnupg/gnupg-" version
|
|
".tar.bz2"))
|
|
(sha256
|
|
(base32
|
|
"0lg210acj2rxq291q4cwamg9gx6gh2prb1xa93y5jhw5b6r0lza3"))))
|
|
(build-system gnu-build-system)
|
|
(inputs
|
|
`(("bzip2" ,guix:bzip2)
|
|
("curl" ,curl)
|
|
("libassuan" ,libassuan)
|
|
("libgcrypt" ,libgcrypt)
|
|
("libgpg-error" ,libgpg-error)
|
|
("libksba" ,libksba)
|
|
("pth" ,pth)
|
|
("openldap" ,openldap)
|
|
("zlib" ,guix:zlib)
|
|
("readline" ,readline)))
|
|
(arguments
|
|
`(#:phases
|
|
(alist-replace
|
|
'configure
|
|
(lambda* (#:key #:allow-other-keys #:rest args)
|
|
(let ((configure (assoc-ref %standard-phases 'configure)))
|
|
(substitute* "tests/openpgp/Makefile.in"
|
|
(("/bin/sh") (which "bash")))
|
|
(apply configure args)))
|
|
%standard-phases)))
|
|
(home-page "http://gnupg.org/")
|
|
(synopsis "GNU Privacy Guard")
|
|
(description
|
|
"The GNU Privacy Guard is a complete implementation of the OpenPGP
|
|
standard. It is used to encrypt and sign data and communication. It
|
|
features powerful key management and the ability to access public key
|
|
servers. It includes several libraries: libassuan (IPC between GnuPG
|
|
components), libgpg-error (centralized GnuPG error values), and libskba
|
|
(working with X.509 certificates and CMS data).")
|
|
(license gpl3+)))
|
|
|
|
(define-public gpgme
|
|
(package
|
|
(name "gpgme")
|
|
(version "1.4.3")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "mirror://gnupg/gpgme/gpgme-" version
|
|
".tar.bz2"))
|
|
(sha256
|
|
(base32
|
|
"15h429h6pd67iiv580bjmwbkadpxsdppw0xrqpcm4dvm24jc271d"))))
|
|
(build-system gnu-build-system)
|
|
(propagated-inputs
|
|
;; Needs to be propagated because gpgme.h includes gpg-error.h.
|
|
`(("libgpg-error" ,libgpg-error)))
|
|
(inputs
|
|
`(("gnupg" ,gnupg)
|
|
("libassuan" ,libassuan)))
|
|
(home-page "http://www.gnupg.org/related_software/gpgme/")
|
|
(synopsis "library providing simplified access to GnuPG functionality")
|
|
(description
|
|
"GnuPG Made Easy (GPGME) is a library designed to make access to GnuPG
|
|
easier for applications. It provides a High-Level Crypto API for encryption,
|
|
decryption, signing, signature verification and key management. Currently
|
|
it uses GnuPG as its backend but the API isn't restricted to this engine.
|
|
|
|
Because the direct use of GnuPG from an application can be a complicated
|
|
programming task, it is suggested that all software should try to use GPGME
|
|
instead. This way bug fixes or improvements can be done at a central place
|
|
and every application benefits from this.")
|
|
(license lgpl2.1+)))
|
|
|
|
(define-public pius
|
|
(package
|
|
(name "pius")
|
|
(version "2.0.9")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "mirror://sourceforge/pgpius/pius/"
|
|
version "/pius-"
|
|
version ".tar.bz2"))
|
|
(sha256 (base32
|
|
"1g1jly3wl4ks6h8ydkygyl2c4i7v3z91rg42005m6vm70y1d8b3d"))))
|
|
(build-system gnu-build-system)
|
|
(inputs `(("perl" ,perl)
|
|
("python" ,python-wrapper)
|
|
("gpg" ,gnupg)))
|
|
(arguments
|
|
`(#:tests? #f
|
|
#:phases
|
|
(alist-replace
|
|
'configure
|
|
(lambda* (#:key #:allow-other-keys) #t)
|
|
(alist-replace
|
|
'build
|
|
(lambda* (#:key #:allow-other-keys) #t)
|
|
(alist-replace
|
|
'install
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
(gpg (string-append (assoc-ref inputs "gpg")
|
|
"/bin/gpg2")))
|
|
(mkdir out)
|
|
(mkdir (string-append out "/bin"))
|
|
(for-each (lambda (file)
|
|
(substitute* file
|
|
(("/usr/bin/gpg") gpg))
|
|
(copy-file file (string-append out "/bin/" file)))
|
|
'("pius" "pius-keyring-mgr" "pius-party-worksheet"))))
|
|
%standard-phases)))))
|
|
(synopsis "Programs to simplify GnuPG key signing")
|
|
(description
|
|
"Pius (PGP Individual UID Signer) helps attendees of PGP keysigning
|
|
parties. It is the main utility and makes it possible to quickly and easily
|
|
sign each UID on a set of PGP keys. It is designed to take the pain out of
|
|
the sign-all-the-keys part of PGP Keysigning Party while adding security
|
|
to the process.
|
|
|
|
pius-keyring-mgr and pius-party-worksheet help organisers of
|
|
PGP keysigning parties.")
|
|
(license gpl2)
|
|
(home-page "http://www.phildev.net/pius/index.shtml")))
|
|
|
|
(define-public signing-party
|
|
(package
|
|
(name "signing-party")
|
|
(version "1.1.4")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "http://ftp.debian.org/debian/pool/main/s/signing-party/signing-party_"
|
|
version ".orig.tar.gz"))
|
|
(sha256 (base32
|
|
"188gp0prbh8qs29lq3pbf0qibfd6jq4fk7i0pfrybl8aahvm84rx"))))
|
|
(build-system gnu-build-system)
|
|
(inputs `(("perl" ,perl)))
|
|
(arguments
|
|
`(#:tests? #f
|
|
#:phases
|
|
(alist-replace
|
|
'unpack
|
|
(lambda* (#:key #:allow-other-keys #:rest args)
|
|
(let ((unpack (assoc-ref %standard-phases 'unpack)))
|
|
(apply unpack args)
|
|
;; remove spurious symlink
|
|
(delete-file "keyanalyze/pgpring/depcomp")))
|
|
(alist-replace
|
|
'configure
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let ((out (assoc-ref outputs "out")))
|
|
(substitute* "keyanalyze/Makefile"
|
|
(("LDLIBS") (string-append "CC=" (which "gcc") "\nLDLIBS")))
|
|
(substitute* "keyanalyze/Makefile"
|
|
(("./configure") (string-append "./configure --prefix=" out)))
|
|
(substitute* "keyanalyze/pgpring/configure"
|
|
(("/bin/sh") (which "bash")))
|
|
(substitute* "gpgwrap/Makefile"
|
|
(("\\} clean") (string-append "} clean\ninstall:\n\tinstall -D bin/gpgwrap "
|
|
out "/bin/gpgwrap\n")))
|
|
(substitute* '("gpgsigs/Makefile" "keyanalyze/Makefile"
|
|
"keylookup/Makefile" "sig2dot/Makefile"
|
|
"springgraph/Makefile")
|
|
(("/usr") out))))
|
|
(alist-replace
|
|
'install
|
|
(lambda* (#:key outputs #:allow-other-keys #:rest args)
|
|
(let ((out (assoc-ref outputs "out"))
|
|
(install (assoc-ref %standard-phases 'install)))
|
|
(apply install args)
|
|
(for-each
|
|
(lambda (dir file)
|
|
(copy-file (string-append dir "/" file)
|
|
(string-append out "/bin/" file)))
|
|
'("caff" "caff" "caff" "gpgdir" "gpg-key2ps"
|
|
"gpglist" "gpg-mailkeys" "gpgparticipants")
|
|
'("caff" "pgp-clean" "pgp-fixkey" "gpgdir" "gpg-key2ps"
|
|
"gpglist" "gpg-mailkeys" "gpgparticipants"))
|
|
(for-each
|
|
(lambda (dir file)
|
|
(copy-file (string-append dir "/" file)
|
|
(string-append out "/share/man/man1/" file)))
|
|
'("caff" "caff" "caff" "gpgdir"
|
|
"gpg-key2ps" "gpglist" "gpg-mailkeys"
|
|
"gpgparticipants" "gpgsigs" "gpgwrap/doc"
|
|
"keyanalyze" "keyanalyze/pgpring" "keyanalyze")
|
|
'("caff.1" "pgp-clean.1" "pgp-fixkey.1" "gpgdir.1"
|
|
"gpg-key2ps.1" "gpglist.1" "gpg-mailkeys.1"
|
|
"gpgparticipants.1" "gpgsigs.1" "gpgwrap.1"
|
|
"process_keys.1" "pgpring.1" "keyanalyze.1"))))
|
|
%standard-phases)))))
|
|
(synopsis "collection of scripts for simplifying gnupg key signing")
|
|
(description
|
|
"signing-party is a collection for all kinds of PGP/GnuPG related things,
|
|
including tools for signing keys, keyring analysis, and party preparation.
|
|
|
|
* caff: CA - Fire and Forget signs and mails a key
|
|
|
|
* pgp-clean: removes all non-self signatures from key
|
|
|
|
* pgp-fixkey: removes broken packets from keys
|
|
|
|
* gpg-mailkeys: simply mail out a signed key to its owner
|
|
|
|
* gpg-key2ps: generate PostScript file with fingerprint paper strips
|
|
|
|
* gpgdir: recursive directory encryption tool
|
|
|
|
* gpglist: show who signed which of your UIDs
|
|
|
|
* gpgsigs: annotates list of GnuPG keys with already done signatures
|
|
|
|
* gpgparticipants: create list of party participants for the organiser
|
|
|
|
* gpgwrap: a passphrase wrapper
|
|
|
|
* keyanalyze: minimum signing distance (MSD) analysis on keyrings
|
|
|
|
* keylookup: ncurses wrapper around gpg --search
|
|
|
|
* sig2dot: converts a list of GnuPG signatures to a .dot file
|
|
|
|
* springgraph: creates a graph from a .dot file")
|
|
;; gpl2+ for almost all programs, except for keyanalyze: gpl2
|
|
;; and caff and gpgsigs: bsd-3, see
|
|
;; http://packages.debian.org/changelogs/pool/main/s/signing-party/current/copyright
|
|
(license gpl2)
|
|
(home-page "http://pgp-tools.alioth.debian.org/")))
|
|
|
|
(define-public pinentry
|
|
(package
|
|
(name "pinentry")
|
|
(version "0.8.3")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "mirror://gnupg/pinentry/pinentry-"
|
|
version ".tar.bz2"))
|
|
(sha256
|
|
(base32
|
|
"1bd047crf7xb8g61mval8v6qww98rddlsw2dz6j8h8qbnl4hp2sn"))))
|
|
(build-system gnu-build-system)
|
|
(inputs
|
|
`(("ncurses" ,ncurses)
|
|
("gtk+" ,gtk+-2)
|
|
("glib" ,glib)))
|
|
(native-inputs
|
|
`(("pkg-config" ,pkg-config)))
|
|
(home-page "http://gnupg.org/aegypten2/")
|
|
(synopsis "GnuPG's interface to passphrase input")
|
|
(description
|
|
"Pinentry provides a console and a GTK+ GUI that allows users to
|
|
enter a passphrase when `gpg' or `gpg2' is run and needs it.")
|
|
(license gpl2+)))
|
|
|
|
(define-public paperkey
|
|
(package
|
|
(name "paperkey")
|
|
(version "1.3")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "http://www.jabberwocky.com/"
|
|
"software/paperkey/paperkey-"
|
|
version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"1yybj8bj68v4lxwpn596b6ismh2fyixw5vlqqg26byrn4d9dfmsv"))))
|
|
(build-system gnu-build-system)
|
|
(arguments
|
|
`(#:phases
|
|
(alist-replace
|
|
'check
|
|
(lambda* (#:key #:allow-other-keys #:rest args)
|
|
(let ((check (assoc-ref %standard-phases 'check)))
|
|
(substitute* '("checks/roundtrip.sh"
|
|
"checks/roundtrip-raw.sh")
|
|
(("/bin/echo") "echo"))
|
|
(apply check args)))
|
|
%standard-phases)))
|
|
(home-page "http://www.jabberwocky.com/software/paperkey/")
|
|
(synopsis "Backup OpenPGP keys to paper")
|
|
(description
|
|
"Paperkey extracts the secret bytes from an OpenPGP (GnuPG, PGP, etc) key
|
|
for printing with paper and ink, which have amazingly long retention
|
|
qualities. To reconstruct a secret key, you re-enter those
|
|
bytes (whether by hand, OCR, QR code, or the like) and paperkey can use
|
|
them to transform your existing public key into a secret key.")
|
|
(license gpl2+)))
|