summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorGuillaume Le Vaillant <glv@posteo.net>2020-09-03 15:12:43 +0200
committerGuillaume Le Vaillant <glv@posteo.net>2020-09-03 15:12:43 +0200
commit2139d2b8b703181701d2608357fdaf630c7f5711 (patch)
tree98942214daa64843a0d5fc904b0224e91e3468c4 /src
parentdc46e5fb58f3e5aed2f8e3d37f9e27bba22bff54 (diff)
Add list-all-key-pair-kinds function
Diffstat (limited to 'src')
-rw-r--r--src/package.lisp1
-rw-r--r--src/public-key/public-key.lisp6
2 files changed, 7 insertions, 0 deletions
diff --git a/src/package.lisp b/src/package.lisp
index 70653b6..559d5a4 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -64,6 +64,7 @@
#:pbkdf2-check-password
;; public-key encryption operations
+ #:list-all-key-pair-kinds
#:make-public-key #:destructure-public-key
#:make-private-key #:destructure-private-key
#:generate-key-pair
diff --git a/src/public-key/public-key.lisp b/src/public-key/public-key.lisp
index 0675214..26712a6 100644
--- a/src/public-key/public-key.lisp
+++ b/src/public-key/public-key.lisp
@@ -3,6 +3,12 @@
(in-package :crypto)
+
+(defun list-all-key-pair-kinds ()
+ (copy-list '(:curve25519 :curve448 :dsa :ed25519 :ed448 :elgamal
+ :rsa :secp256k1 :secp256r1 :secp384r1 :secp521r1)))
+
+
;;; class definitions
(defclass discrete-logarithm-group ()