mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 21:59:17 +02:00
81 lines
3 KiB
Scheme
81 lines
3 KiB
Scheme
(define-library (chibi crypto rsa-test)
|
|
(export run-tests)
|
|
(import (scheme base)
|
|
(chibi crypto rsa)
|
|
(chibi crypto sha2)
|
|
(chibi test))
|
|
(begin
|
|
(define (run-tests)
|
|
|
|
(define (test-key key)
|
|
(test #t (rsa-key? key))
|
|
(test #t (positive? (rsa-key-n key)))
|
|
(test #t (positive? (rsa-key-e key)))
|
|
(test #t (positive? (rsa-key-d key)))
|
|
(test 5 (rsa-decrypt key (rsa-encrypt (rsa-pub-key key) 5))))
|
|
|
|
(test-begin "rsa")
|
|
|
|
;; Verify an explicit key.
|
|
|
|
;; p = 61, q = 53
|
|
(let* ((priv-key (rsa-key-gen-from-primes 8 61 53))
|
|
(pub-key (rsa-pub-key priv-key)))
|
|
(test 439 (rsa-sign priv-key 42))
|
|
(test #t (rsa-verify? pub-key 42 (rsa-sign priv-key 42)))
|
|
(let ((msg 42))
|
|
(test msg (rsa-decrypt priv-key (rsa-encrypt pub-key msg)))))
|
|
|
|
(let* ((priv-key2 (rsa-key-gen-from-primes 32 2936546443 3213384203))
|
|
(pub-key2 (rsa-pub-key priv-key2)))
|
|
(let ((msg 42))
|
|
(test msg (rsa-decrypt priv-key2 (rsa-encrypt pub-key2 msg))))
|
|
|
|
(let ((msg #u8(42)))
|
|
(test msg (rsa-decrypt priv-key2 (rsa-encrypt pub-key2 msg))))
|
|
|
|
(let ((msg "*"))
|
|
(test msg (utf8->string (rsa-decrypt priv-key2 (rsa-encrypt pub-key2 msg)))))
|
|
|
|
(let ((msg "*"))
|
|
(test #t (rsa-verify? pub-key2 msg (rsa-sign priv-key2 msg))))
|
|
|
|
(let ((msg #u8(42)))
|
|
(test #t (rsa-verify? pub-key2 msg (rsa-sign priv-key2 msg)))))
|
|
|
|
;; Key generation.
|
|
|
|
(test-key (rsa-key-gen 8))
|
|
(test-key (rsa-key-gen 16))
|
|
(test-key (rsa-key-gen 32))
|
|
(test-key (rsa-key-gen-from-primes 32 2936546443 3213384203))
|
|
|
|
;; These are expensive to test. Times with -h1G:
|
|
;; (test-key (rsa-key-gen 128)) ; 0.04s
|
|
;; (test-key (rsa-key-gen 256)) ; 0.4s
|
|
;; (test-key (rsa-key-gen 512)) ; 4s
|
|
;; (test-key (rsa-key-gen 1024)) ; 92s
|
|
|
|
;; padding
|
|
|
|
(test #u8(8 8 8 8 8 8 8 8) (pkcs1-pad #u8()))
|
|
(test #u8(1 7 7 7 7 7 7 7) (pkcs1-pad #u8(1)))
|
|
(test #u8(1 2 6 6 6 6 6 6) (pkcs1-pad #u8(1 2)))
|
|
(test #u8(1 2 3 5 5 5 5 5) (pkcs1-pad #u8(1 2 3)))
|
|
(test #u8(1 2 3 4 4 4 4 4) (pkcs1-pad #u8(1 2 3 4)))
|
|
(test #u8(1 2 3 4 5 3 3 3) (pkcs1-pad #u8(1 2 3 4 5)))
|
|
(test #u8(1 2 3 4 5 6 2 2) (pkcs1-pad #u8(1 2 3 4 5 6)))
|
|
(test #u8(1 2 3 4 5 6 7 1) (pkcs1-pad #u8(1 2 3 4 5 6 7)))
|
|
(test #u8(1 2 3 4 5 6 7 8 8 8 8 8 8 8 8 8) (pkcs1-pad #u8(1 2 3 4 5 6 7 8)))
|
|
|
|
(test #u8() (pkcs1-unpad #u8(8 8 8 8 8 8 8 8)))
|
|
(test #u8(1) (pkcs1-unpad #u8(1 7 7 7 7 7 7 7)))
|
|
(test #u8(1 2) (pkcs1-unpad #u8(1 2 6 6 6 6 6 6)))
|
|
(test #u8(1 2 3) (pkcs1-unpad #u8(1 2 3 5 5 5 5 5)))
|
|
(test #u8(1 2 3 4) (pkcs1-unpad #u8(1 2 3 4 4 4 4 4)))
|
|
(test #u8(1 2 3 4 5) (pkcs1-unpad #u8(1 2 3 4 5 3 3 3)))
|
|
(test #u8(1 2 3 4 5 6) (pkcs1-unpad #u8(1 2 3 4 5 6 2 2)))
|
|
(test #u8(1 2 3 4 5 6 7) (pkcs1-unpad #u8(1 2 3 4 5 6 7 1)))
|
|
(test #u8(1 2 3 4 5 6 7 8) (pkcs1-unpad #u8(1 2 3 4 5 6 7 8 8 8 8 8 8 8 8 8)))
|
|
|
|
(test-end))))
|