64 lines
2 KiB
Text
64 lines
2 KiB
Text
|
$! TESTSSL.COM
|
||
|
|
$
|
||
|
|
$ __arch := VAX
|
||
|
|
$ if f$getsyi("cpu") .ge. 128 then __arch := AXP
|
||
|
|
$ exe_dir := sys$disk:[-.'__arch'.exe.test]
|
||
|
|
$
|
||
|
|
$ copy/concatenate [-.certs]*.pem certs.tmp
|
||
|
|
$
|
||
|
|
$ write sys$output "test sslv2"
|
||
|
|
$ mcr 'exe_dir'ssltest -ssl2
|
||
|
|
$ if $severity .ne. 1 then goto exit3
|
||
|
|
$
|
||
|
|
$ write sys$output "test sslv2 with server authentication"
|
||
|
|
$ mcr 'exe_dir'ssltest -ssl2 -server_auth "-CAfile" certs.tmp
|
||
|
|
$ if $severity .ne. 1 then goto exit3
|
||
|
|
$
|
||
|
|
$ write sys$output "test sslv2 with client authentication"
|
||
|
|
$ mcr 'exe_dir'ssltest -ssl2 -client_auth "-CAfile" certs.tmp
|
||
|
|
$ if $severity .ne. 1 then goto exit3
|
||
|
|
$
|
||
|
|
$ write sys$output "test sslv2 with both client and server authentication"
|
||
|
|
$ mcr 'exe_dir'ssltest -ssl2 -server_auth -client_auth "-CAfile" certs.tmp
|
||
|
|
$ if $severity .ne. 1 then goto exit3
|
||
|
|
$
|
||
|
|
$ write sys$output "test sslv3"
|
||
|
|
$ mcr 'exe_dir'ssltest -ssl3
|
||
|
|
$ if $severity .ne. 1 then goto exit3
|
||
|
|
$
|
||
|
|
$ write sys$output "test sslv3 with server authentication"
|
||
|
|
$ mcr 'exe_dir'ssltest -ssl3 -server_auth "-CAfile" certs.tmp
|
||
|
|
$ if $severity .ne. 1 then goto exit3
|
||
|
|
$
|
||
|
|
$ write sys$output "test sslv3 with client authentication"
|
||
|
|
$ mcr 'exe_dir'ssltest -ssl3 -client_auth "-CAfile" certs.tmp
|
||
|
|
$ if $severity .ne. 1 then goto exit3
|
||
|
|
$
|
||
|
|
$ write sys$output "test sslv3 with both client and server authentication"
|
||
|
|
$ mcr 'exe_dir'ssltest -ssl3 -server_auth -client_auth "-CAfile" certs.tmp
|
||
|
|
$ if $severity .ne. 1 then goto exit3
|
||
|
|
$
|
||
|
|
$ write sys$output "test sslv2/sslv3"
|
||
|
|
$ mcr 'exe_dir'ssltest
|
||
|
|
$ if $severity .ne. 1 then goto exit3
|
||
|
|
$
|
||
|
|
$ write sys$output "test sslv2/sslv3 with server authentication"
|
||
|
|
$ mcr 'exe_dir'ssltest -server_auth "-CAfile" certs.tmp
|
||
|
|
$ if $severity .ne. 1 then goto exit3
|
||
|
|
$
|
||
|
|
$ write sys$output "test sslv2/sslv3 with client authentication"
|
||
|
|
$ mcr 'exe_dir'ssltest -client_auth "-CAfile" certs.tmp
|
||
|
|
$ if $severity .ne. 1 then goto exit3
|
||
|
|
$
|
||
|
|
$ write sys$output "test sslv2/sslv3 with both client and server authentication"
|
||
|
|
$ mcr 'exe_dir'ssltest -server_auth -client_auth "-CAfile" certs.tmp
|
||
|
|
$ if $severity .ne. 1 then goto exit3
|
||
|
|
$
|
||
|
|
$ RET = 1
|
||
|
|
$ goto exit
|
||
|
|
$ exit3:
|
||
|
|
$ RET = 3
|
||
|
|
$ exit:
|
||
|
|
$ delete certs.tmp;*
|
||
|
|
$ exit 'RET'
|