more openssl interoperability tests
Karel Miko
7 years ago
61 | 61 | write_file("eckey.pub.pem", $pkec->export_key_pem('public')); |
62 | 62 | write_file("eckey.priv.pem", $pkec->export_key_pem('private')); |
63 | 63 | write_file("eckey-passwd.priv.pem", $pkec->export_key_pem('private', 'secret')); |
64 | #short | |
65 | write_file("eckey.pubs.der", {binmode=>':raw'}, $pkec->export_key_der('public_short')); | |
66 | write_file("eckey.privs.der", {binmode=>':raw'}, $pkec->export_key_der('private_short')); | |
67 | write_file("eckey.pubs.pem", $pkec->export_key_pem('public_short')); | |
68 | write_file("eckey.privs.pem", $pkec->export_key_pem('private_short')); | |
69 | write_file("eckey-passwd.privs.pem", $pkec->export_key_pem('private_short', 'secret')); | |
64 | 70 | } |
65 | 71 | |
66 | 72 | runcmds <<'MARKER'; |
69 | 75 | openssl ec -in eckey-passwd.priv.pem -text -inform pem -passin pass:secret |
70 | 76 | openssl ec -in eckey.pub.der -pubin -text -inform der |
71 | 77 | openssl ec -in eckey.pub.pem -pubin -text |
78 | openssl ec -in eckey.privs.der -text -inform der | |
79 | openssl ec -in eckey.privs.pem -text | |
80 | openssl ec -in eckey-passwd.privs.pem -text -inform pem -passin pass:secret | |
81 | openssl ec -in eckey.pubs.der -pubin -text -inform der | |
82 | openssl ec -in eckey.pubs.pem -pubin -text | |
72 | 83 | MARKER |
73 | 84 | |
74 | 85 | doit(); |