(ssl:get-randomness-from-cryptlib!)
(define x (ssl:make-cert "Yenta" 1024 3653 (current-time) #t))
(define p (open-output-file "new-cert.der"))
(display (car x) p)
(close-port p)
(set! p (open-output-file "new-key.der"))
(display (cadr x) p)
(close-port p)
(exit)
