ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

openpgp: Add 'string->openpgp-packet'.

Browse source 
* guix/openpgp.scm (string->openpgp-packet): New procedure.
* tests/openpgp.scm ("verify-openpgp-signature, missing key")
("verify-openpgp-signature, good signatures")
("verify-openpgp-signature, bad signature"): Use it.
This commit is contained in:
Ludovic Courtès 2020-04-30 15:56:54 +02:00
parent bd8126558d
commit b835e158d5
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 11 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
guix/openpgp.scm
View file

@ -55,7 +55,8 @@ (define-module (guix openpgp)
lookup-key-by-fingerprint lookup-key-by-fingerprint
get-openpgp-keyring get-openpgp-keyring
read-radix-64) read-radix-64
string->openpgp-packet)
#:use-module (rnrs bytevectors) #:use-module (rnrs bytevectors)
#:use-module (rnrs io ports) #:use-module (rnrs io ports)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
@ -1067,3 +1068,9 @@ (define (skip-headers port)
(values #f kind))) (values #f kind)))
(loop (cons str lines)))))))) (loop (cons str lines))))))))
(values #f #f)))) (values #f #f))))
(define (string->openpgp-packet str)
"Read STR, an ASCII-armored OpenPGP packet, and return the corresponding
OpenPGP record."
(get-packet
(open-bytevector-input-port (call-with-input-string str read-radix-64))))

15
tests/openpgp.scm
View file

@ -194,10 +194,7 @@ (define %hello-signature/ed25519/sha1 ;digest-algo: sha1
(test-equal "verify-openpgp-signature, missing key" (test-equal "verify-openpgp-signature, missing key"
`(missing-key ,%rsa-key-fingerprint) `(missing-key ,%rsa-key-fingerprint)
(let* ((keyring (get-openpgp-keyring (%make-void-port "r"))) (let* ((keyring (get-openpgp-keyring (%make-void-port "r")))
(signature (get-openpgp-packet (signature (string->openpgp-packet %hello-signature/rsa)))
(open-bytevector-input-port
(call-with-input-string %hello-signature/rsa
read-radix-64)))))
(let-values (((status key) (let-values (((status key)
(verify-openpgp-signature signature keyring (verify-openpgp-signature signature keyring
(open-input-string "Hello!\n")))) (open-input-string "Hello!\n"))))
@ -214,10 +211,7 @@ (define %hello-signature/ed25519/sha1 ;digest-algo: sha1
(keyring (get-openpgp-keyring (keyring (get-openpgp-keyring
(open-bytevector-input-port (open-bytevector-input-port
(call-with-input-file key read-radix-64)))) (call-with-input-file key read-radix-64))))
(signature (get-openpgp-packet (signature (string->openpgp-packet signature)))
(open-bytevector-input-port
(call-with-input-string signature
read-radix-64)))))
(let-values (((status key) (let-values (((status key)
(verify-openpgp-signature signature keyring (verify-openpgp-signature signature keyring
(open-input-string "Hello!\n")))) (open-input-string "Hello!\n"))))
@ -246,10 +240,7 @@ (define %hello-signature/ed25519/sha1 ;digest-algo: sha1
"tests/ed25519.key" "tests/ed25519.key" "tests/ed25519.key" "tests/ed25519.key"
"tests/ed25519.key")))) "tests/ed25519.key"))))
(map (lambda (signature) (map (lambda (signature)
(let ((signature (get-openpgp-packet (let ((signature (string->openpgp-packet signature)))
(open-bytevector-input-port
(call-with-input-string signature
read-radix-64)))))
(let-values (((status key) (let-values (((status key)
(verify-openpgp-signature signature keyring (verify-openpgp-signature signature keyring
(open-input-string "What?!")))) (open-input-string "What?!"))))