1$! TESTCA.COM 2$ 3$ __arch = "VAX" 4$ if f$getsyi("cpu") .ge. 128 then - 5 __arch = f$edit( f$getsyi( "ARCH_NAME"), "UPCASE") 6$ if __arch .eqs. "" then __arch = "UNK" 7$! 8$ if (p1 .eqs. "64") then __arch = __arch+ "_64" 9$ 10$ openssl = "mcr ''exe_dir'openssl" 11$ 12$ SSLEAY_CONFIG="-config ""CAss.cnf""" 13$ 14$ set noon 15$ if f$search("demoCA.dir") .nes. "" 16$ then 17$ @[-.util]deltree [.demoCA]*.* 18$ set file/prot=(S:RWED,O:RWED,G:RWED,W:RWED) demoCA.dir;* 19$ delete demoCA.dir;* 20$ endif 21$ set on 22$ open/read sys$ca_input VMSca-response.1 23$ @[-.apps]CA.com -input sys$ca_input -newca 24$ close sys$ca_input 25$ if $severity .ne. 1 then exit 3 26$ 27$ 28$ SSLEAY_CONFIG="-config ""Uss.cnf""" 29$ @[-.apps]CA.com -newreq 30$ if $severity .ne. 1 then exit 3 31$ 32$ 33$ SSLEAY_CONFIG="-config [-.apps]openssl-vms.cnf" 34$ open/read sys$ca_input VMSca-response.2 35$ @[-.apps]CA.com -input sys$ca_input -sign 36$ close sys$ca_input 37$ if $severity .ne. 1 then exit 3 38$ 39$ 40$ @[-.apps]CA.com -verify newcert.pem 41$ if $severity .ne. 1 then exit 3 42$ 43$ set noon 44$ @[-.util]deltree [.demoCA]*.* 45$ set file/prot=(S:RWED,O:RWED,G:RWED,W:RWED) demoCA.dir;* 46$ delete demoCA.dir;* 47$ if f$search("newcert.pem") .nes. "" then delete newcert.pem;* 48$ if f$search("newcert.pem") .nes. "" then delete newreq.pem;* 49$ set on 50$! #usage: CA -newcert|-newreq|-newca|-sign|-verify 51$ 52$ exit 53