Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- use strict;
- use warnings;
- use IO::Socket::SSL::Utils 1.973;
- # create root.pem and server.pem
- # $ca defines the constraints on the root certificate
- # my $ca = undef; # no constraints
- # my $ca = 1; # CA:true
- # my $ca = 0; # CA:false
- my $ca = undef; # no constraints
- my $c0 = PEM_string2cert(<<'CERT');
- -----BEGIN CERTIFICATE-----
- MIICATCCAWoCCQDzZYnslbBnujANBgkqhkiG9w0BAQsFADBFMQswCQYDVQQGEwJB
- VTETMBEGA1UECAwKU29tZS1TdGF0ZTEhMB8GA1UECgwYSW50ZXJuZXQgV2lkZ2l0
- cyBQdHkgTHRkMB4XDTE1MTIwOTEyMjIyMVoXDTE2MTIwODEyMjIyMVowRTELMAkG
- A1UEBhMCQVUxEzARBgNVBAgMClNvbWUtU3RhdGUxITAfBgNVBAoMGEludGVybmV0
- IFdpZGdpdHMgUHR5IEx0ZDCBnzANBgkqhkiG9w0BAQEFAAOBjQAwgYkCgYEAp5O+
- KsRA/K568wx1qU5/H8v89U4TrHNrQMw6bfM7uzxzILsQdJ54F2pY4+g8RPE30Btr
- xo01sWSvzEh3FMN7dr9mvhgkrZjazE6K1GRmpSiuaVwU02RqgFXelEyEemK5SbqL
- hLuiBQKO53jLIL5TbXoIIuYe3/XTkcZCTsqS4csCAwEAATANBgkqhkiG9w0BAQsF
- AAOBgQBDxn3zcZEMl8fN7MD3B4ljEPp2qkPi04fjemO6GOjdas2OTyvBAZ5KB0cW
- nsflxr4RYyBir5eSFk57Apom2LHQaQiesQ6CwcwmcBEM70dbNrHSctYRBO9QsgVj
- tJ5gTWfCWyNeufLUJTj4vOk40lWRyJrVULaGoe1DA5FRT0CotQ==
- -----END CERTIFICATE-----
- CERT
- my $k0 = PEM_string2key(<<'KEY');
- -----BEGIN RSA PRIVATE KEY-----
- MIICWwIBAAKBgQCnk74qxED8rnrzDHWpTn8fy/z1ThOsc2tAzDpt8zu7PHMguxB0
- nngXaljj6DxE8TfQG2vGjTWxZK/MSHcUw3t2v2a+GCStmNrMTorUZGalKK5pXBTT
- ZGqAVd6UTIR6YrlJuouEu6IFAo7neMsgvlNteggi5h7f9dORxkJOypLhywIDAQAB
- AoGASPQN3upvbFG9XuA2vQ1aVIpmxphGAlaBA8WlTkaM43dum3o0sMBogbEfn6Bz
- 1IO7C5NUeSzyihbOXb3Scaykq5pA6MEURYKfiyUs/BcEUE2H+xkeBuK5Tb1b4sgQ
- BybhMPV0GRarIYNTP3B/pR+GbTLA3ahGMN/bA1JLr7+BncECQQDU8VfGtPJ71W6B
- vkfg2/XOC/ViCeUIZZexXzna4y17KLOwS7v22GsoG5U0F80yIUkXCox6EesvTTsh
- J/VE64shAkEAyXYeD6OyCvxAkcjQWO+Nm+9xLSZqGF0EN/wr1MeznadTCP4ShHOI
- g5Q3pg2xm10fs4mzl08w9sNTBGbgn0tbawJABEXPcBJDZ06yB/JseMuRFBBTXSM7
- sD5xm8KAY675Q6ZebKQoYlyXUdez17a+jEn0sHyqsuxXHrza+eBWYIqlYQJAET7F
- L/2JPht9w3z3KMXIz3Jds8m4B0HfHJO/hMVbgMFUAE8PcrsZEnpbkSFW9L+x+QJu
- lyM2Q8lQj+3miHxA5QJAJHrMQrfWxf9hBadL/zVHn2LdeimLFdrTvE+DzCmI/0UP
- mYYZQI4kpvc7VaVvR984Nzdvoe+tVGkZ6ufLPU7/hQ==
- -----END RSA PRIVATE KEY-----
- KEY
- ($c0,$k0) = CERT_create( CA => $ca, subject => { CN => 'root' })
- if defined $ca;
- my ($c1,$k1) = CERT_create( issuer => [ $c0,$k0 ], subject => { CN => 'server' });
- PEM_cert2file($c0,'root.pem');
- open(my $fh,'>','server.pem');
- print $fh PEM_cert2string($c1).PEM_key2string($k1);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement