Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-03 19:26: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))))))
(define (maybe-parse-hex x)
(if (string? x) (string->number x 16) x))
(if (string? x) (hex-string->bytevector x) x))
;; rsa key utils
@ -134,7 +134,7 @@
(maybe-parse-hex digest)
(maybe-parse-hex 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))))
(define (package-signature-ok? cfg pkg raw)

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

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