Synchronise with Unix code
This commit is contained in:
parent
aa3353fda2
commit
1f36fe2835
12
apps/CA.com
12
apps/CA.com
@ -35,6 +35,7 @@ $ REQ = openssl + " req " + SSLEAY_CONFIG
|
|||||||
$ CA = openssl + " ca " + SSLEAY_CONFIG
|
$ CA = openssl + " ca " + SSLEAY_CONFIG
|
||||||
$ VERIFY = openssl + " verify"
|
$ VERIFY = openssl + " verify"
|
||||||
$ X509 = openssl + " x509"
|
$ X509 = openssl + " x509"
|
||||||
|
$ PKCS12 = openssl + " pkcs12"
|
||||||
$ echo = "write sys$Output"
|
$ echo = "write sys$Output"
|
||||||
$!
|
$!
|
||||||
$ s = F$PARSE(F$ENVIRONMENT("DEFAULT"),"[]") - "].;"
|
$ s = F$PARSE(F$ENVIRONMENT("DEFAULT"),"[]") - "].;"
|
||||||
@ -121,6 +122,17 @@ $ ENDIF
|
|||||||
$ GOTO opt_loop_continue
|
$ GOTO opt_loop_continue
|
||||||
$ ENDIF
|
$ ENDIF
|
||||||
$!
|
$!
|
||||||
|
$ IF (prog_opt .EQS. "-pkcs12")
|
||||||
|
$ THEN
|
||||||
|
$ i = i + 1
|
||||||
|
$ cname = P'i'
|
||||||
|
$ IF cname .EQS. "" THEN cname = "My certificate"
|
||||||
|
$ PKCS12 -in newcert.pem -inkey newreq.pem -certfile 'CATOP''CACERT -
|
||||||
|
-out newcert.p12 -export -name "''cname'"
|
||||||
|
$ RET=$STATUS
|
||||||
|
$ exit RET
|
||||||
|
$ ENDIF
|
||||||
|
$!
|
||||||
$ IF (prog_opt .EQS. "-xsign")
|
$ IF (prog_opt .EQS. "-xsign")
|
||||||
$ THEN
|
$ THEN
|
||||||
$!
|
$!
|
||||||
|
@ -152,9 +152,8 @@ $ GOSUB CHECK_OPT_FILE
|
|||||||
$!
|
$!
|
||||||
$! Define The Application Files.
|
$! Define The Application Files.
|
||||||
$!
|
$!
|
||||||
$ LIB_FILES = "VERIFY;ASN1PARS;REQ;DGST;DH;ENC;GENDH;"+-
|
$ LIB_FILES = "VERIFY;ASN1PARS;REQ;DGST;DH;DHPARAM;ENC;GENDH;ERRSTR;"+-
|
||||||
"ERRSTR;CA;"+-
|
"CA;PKCS7;CRL2P7;CRL;"+-
|
||||||
"PKCS7;CRL2P7;CRL;"+-
|
|
||||||
"RSA;DSA;DSAPARAM;"+-
|
"RSA;DSA;DSAPARAM;"+-
|
||||||
"X509;GENRSA;GENDSA;S_SERVER;S_CLIENT;SPEED;"+-
|
"X509;GENRSA;GENDSA;S_SERVER;S_CLIENT;SPEED;"+-
|
||||||
"S_TIME;APPS;S_CB;S_SOCKET;APP_RAND;VERSION;SESS_ID;"+-
|
"S_TIME;APPS;S_CB;S_SOCKET;APP_RAND;VERSION;SESS_ID;"+-
|
||||||
|
Loading…
x
Reference in New Issue
Block a user