Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-04 03:36:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Updating snow package utils to use pkcs1 padding.

Browse source
This commit is contained in:
Alex Shinn 2014-06-23 07:54:51 +09:00
parent 34e1a27cb1
commit 638ea1bf8a
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/snow/package.scm
View file

@ -11,7 +11,7 @@
(else (call-with-output-string (lambda (out) (display x out)))))) (else (call-with-output-string (lambda (out) (display x out))))))
(define (maybe-parse-hex x) (define (maybe-parse-hex x)
(if (string? x) (string->number x 16) x)) (if (string? x) (hex-string->bytevector x) x))
;; rsa key utils ;; rsa key utils
@ -134,7 +134,7 @@
(maybe-parse-hex digest) (maybe-parse-hex digest)
(maybe-parse-hex sig))) (maybe-parse-hex sig)))
`(sign: rsa-signature-invalid: digest: ,digest sig: ,sig `(sign: rsa-signature-invalid: digest: ,digest sig: ,sig
actual: ,(rsa-encrypt rsa-key digest))) actual: ,(rsa-verify rsa-key (maybe-parse-hex digest))))
(else #f)))) (else #f))))
(define (package-signature-ok? cfg pkg raw) (define (package-signature-ok? cfg pkg raw)

1
lib/chibi/snow/package.sld
View file

@ -17,6 +17,7 @@
(import (chibi) (import (chibi)
(srfi 1) (srfi 1)
(chibi snow interface) (chibi snow interface)
(chibi bytevector)
(chibi config) (chibi config)
(chibi crypto md5) (chibi crypto md5)
(chibi crypto rsa) (chibi crypto rsa)