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 |