| OLD | NEW |
| 1 $! TESTSS.COM | 1 $! TESTSS.COM |
| 2 $ | 2 $ |
| 3 $» __arch := VAX | 3 $» __arch = "VAX" |
| 4 $ if f$getsyi("cpu") .ge. 128 then - | 4 $ if f$getsyi("cpu") .ge. 128 then - |
| 5 __arch = f$edit( f$getsyi( "ARCH_NAME"), "UPCASE") | 5 __arch = f$edit( f$getsyi( "ARCH_NAME"), "UPCASE") |
| 6 $» if __arch .eqs. "" then __arch := UNK | 6 $» if __arch .eqs. "" then __arch = "UNK" |
| 7 $» exe_dir := sys$disk:[-.'__arch'.exe.apps] | 7 $! |
| 8 $» if (p1 .eqs. "64") then __arch = __arch+ "_64" |
| 9 $! |
| 10 $» exe_dir = "sys$disk:[-.''__arch'.exe.apps]" |
| 8 $ | 11 $ |
| 9 $ digest="-md5" | 12 $ digest="-md5" |
| 10 $» reqcmd := mcr 'exe_dir'openssl req | 13 $» reqcmd = "mcr ''exe_dir'openssl req" |
| 11 $» x509cmd := mcr 'exe_dir'openssl x509 'digest' | 14 $» x509cmd = "mcr ''exe_dir'openssl x509 ''digest'" |
| 12 $» verifycmd := mcr 'exe_dir'openssl verify | 15 $» verifycmd = "mcr ''exe_dir'openssl verify" |
| 13 $» dummycnf := sys$disk:[-.apps]openssl-vms.cnf | 16 $» dummycnf = "sys$disk:[-.apps]openssl-vms.cnf" |
| 14 $ | 17 $ |
| 15 $ CAkey="""keyCA.ss""" | 18 $ CAkey="""keyCA.ss""" |
| 16 $ CAcert="""certCA.ss""" | 19 $ CAcert="""certCA.ss""" |
| 17 $ CAreq="""reqCA.ss""" | 20 $ CAreq="""reqCA.ss""" |
| 18 $ CAconf="""CAss.cnf""" | 21 $ CAconf="""CAss.cnf""" |
| 19 $ CAreq2="""req2CA.ss""" ! temp | 22 $ CAreq2="""req2CA.ss""" ! temp |
| 20 $ | 23 $ |
| 21 $ Uconf="""Uss.cnf""" | 24 $ Uconf="""Uss.cnf""" |
| 22 $ Ukey="""keyU.ss""" | 25 $ Ukey="""keyU.ss""" |
| 23 $ Ureq="""reqU.ss""" | 26 $ Ureq="""reqU.ss""" |
| (...skipping 87 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 111 $ 'x509cmd' -subject -issuer -startdate -enddate -noout -in 'Ucert' | 114 $ 'x509cmd' -subject -issuer -startdate -enddate -noout -in 'Ucert' |
| 112 $ | 115 $ |
| 113 $ write sys$output "" | 116 $ write sys$output "" |
| 114 $ write sys$output "The generated CA certificate is ",CAcert | 117 $ write sys$output "The generated CA certificate is ",CAcert |
| 115 $ write sys$output "The generated CA private key is ",CAkey | 118 $ write sys$output "The generated CA private key is ",CAkey |
| 116 $ | 119 $ |
| 117 $ write sys$output "The generated user certificate is ",Ucert | 120 $ write sys$output "The generated user certificate is ",Ucert |
| 118 $ write sys$output "The generated user private key is ",Ukey | 121 $ write sys$output "The generated user private key is ",Ukey |
| 119 $ | 122 $ |
| 120 $ if f$search("err.ss;*") .nes. "" then delete err.ss;* | 123 $ if f$search("err.ss;*") .nes. "" then delete err.ss;* |
| OLD | NEW |