Posted to tcl by colin at Wed Feb 15 03:59:52 GMT 2012view pretty

set key [pki::rsa::generate 1024]
set csr [::pki::pkcs::create_csr $key [list C AU ST NSW L Sydney O imap OU bsd CN test]]
set pcsr [::pki::pkcs::parse_csr $csr]
exit

RESULT:

Unknown hashing algorithm: unknown
    while executing
"::pki::verify $signature $cert_req_info_saved $keylist"
    (procedure "::pki::pkcs::parse_csr" line 52)
    invoked from within
"::pki::pkcs::parse_csr $csr"
    invoked from within
"set pcsr [::pki::pkcs::parse_csr $csr]"
    (file "pkigen.tcl" line 7)