OLD | NEW |
1 $! TESTSSL.COM | 1 $! TESTSSL.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 $» texe_dir := sys$disk:[-.'__arch'.exe.test] | 7 $! |
8 $» exe_dir := sys$disk:[-.'__arch'.exe.apps] | 8 $» if (p4 .eqs. "64") then __arch = __arch+ "_64" |
| 9 $! |
| 10 $» texe_dir = "sys$disk:[-.''__arch'.exe.test]" |
| 11 $» exe_dir = "sys$disk:[-.''__arch'.exe.apps]" |
9 $ | 12 $ |
10 $ if p1 .eqs. "" | 13 $ if p1 .eqs. "" |
11 $ then | 14 $ then |
12 $ key="[-.apps]server.pem" | 15 $ key="[-.apps]server.pem" |
13 $ else | 16 $ else |
14 $ key=p1 | 17 $ key=p1 |
15 $ endif | 18 $ endif |
16 $ if p2 .eqs. "" | 19 $ if p2 .eqs. "" |
17 $ then | 20 $ then |
18 $ cert="[-.apps]server.pem" | 21 $ cert="[-.apps]server.pem" |
19 $ else | 22 $ else |
20 $ cert=p2 | 23 $ cert=p2 |
21 $ endif | 24 $ endif |
22 $» ssltest := mcr 'texe_dir'ssltest -key 'key' -cert 'cert' -c_key 'key' -c
_cert 'cert' | 25 $» ssltest = "mcr ''texe_dir'ssltest -key ''key'"+ - |
23 $ | 26 » " -cert ''cert' -c_key ''key' -c_cert ''cert'" |
| 27 $! |
| 28 $» set noon |
24 $ define/user sys$output testssl-x509-output. | 29 $ define/user sys$output testssl-x509-output. |
25 $ define/user sys$error nla0: | 30 $ define/user sys$error nla0: |
26 $ mcr 'exe_dir'openssl x509 -in 'cert' -text -noout | 31 $ mcr 'exe_dir'openssl x509 -in 'cert' -text -noout |
27 $ set noon | |
28 $ define/user sys$error nla0: | 32 $ define/user sys$error nla0: |
29 $ search/output=nla0: testssl-x509-output. "DSA Public Key"/exact | 33 $ search/output=nla0: testssl-x509-output. "DSA Public Key"/exact |
30 $ if $severity .eq. 1 | 34 $ if $severity .eq. 1 |
31 $ then | 35 $ then |
32 $» dsa_cert := YES | 36 $» dsa_cert = "YES" |
33 $ else | 37 $ else |
34 $» dsa_cert := NO | 38 $» dsa_cert = "NO" |
35 $ endif | 39 $ endif |
36 $ set on | |
37 $ delete testssl-x509-output.;* | 40 $ delete testssl-x509-output.;* |
38 $ | 41 $ |
39 $ if p3 .eqs. "" | 42 $ if p3 .eqs. "" |
40 $ then | 43 $ then |
41 $ copy/concatenate [-.certs]*.pem certs.tmp | 44 $ copy/concatenate [-.certs]*.pem certs.tmp |
42 $ CA = """-CAfile"" certs.tmp" | 45 $ CA = """-CAfile"" certs.tmp" |
43 $ else | 46 $ else |
44 $ CA = """-CAfile"" "+p3 | 47 $ CA = """-CAfile"" "+p3 |
45 $ endif | 48 $ endif |
46 $ | 49 $ |
(...skipping 107 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
154 $ write sys$output "test sslv2/sslv3 with client authentication via BIO pa
ir" | 157 $ write sys$output "test sslv2/sslv3 with client authentication via BIO pa
ir" |
155 $ 'ssltest' -bio_pair -client_auth 'CA' | 158 $ 'ssltest' -bio_pair -client_auth 'CA' |
156 $ if $severity .ne. 1 then goto exit3 | 159 $ if $severity .ne. 1 then goto exit3 |
157 $ | 160 $ |
158 $ write sys$output "test sslv2/sslv3 with both client and server authentic
ation via BIO pair" | 161 $ write sys$output "test sslv2/sslv3 with both client and server authentic
ation via BIO pair" |
159 $ 'ssltest' -bio_pair -server_auth -client_auth 'CA' | 162 $ 'ssltest' -bio_pair -server_auth -client_auth 'CA' |
160 $ if $severity .ne. 1 then goto exit3 | 163 $ if $severity .ne. 1 then goto exit3 |
161 $ | 164 $ |
162 $!########################################################################### | 165 $!########################################################################### |
163 $ | 166 $ |
164 $ set noon | |
165 $ define/user sys$output nla0: | 167 $ define/user sys$output nla0: |
166 $ mcr 'exe_dir'openssl no-rsa | 168 $ mcr 'exe_dir'openssl no-rsa |
167 $ no_rsa=$SEVERITY | 169 $ no_rsa=$SEVERITY |
168 $ define/user sys$output nla0: | 170 $ define/user sys$output nla0: |
169 $ mcr 'exe_dir'openssl no-dh | 171 $ mcr 'exe_dir'openssl no-dh |
170 $ no_dh=$SEVERITY | 172 $ no_dh=$SEVERITY |
171 $ set on | |
172 $ | 173 $ |
173 $ if no_dh | 174 $ if no_dh |
174 $ then | 175 $ then |
175 $ write sys$output "skipping anonymous DH tests" | 176 $ write sys$output "skipping anonymous DH tests" |
176 $ else | 177 $ else |
177 $ write sys$output "test tls1 with 1024bit anonymous DH, multiple hand
shakes" | 178 $ write sys$output "test tls1 with 1024bit anonymous DH, multiple hand
shakes" |
178 $ 'ssltest' -v -bio_pair -tls1 -cipher "ADH" -dhe1024dsa -num 10 -f -t
ime | 179 $ 'ssltest' -v -bio_pair -tls1 -cipher "ADH" -dhe1024dsa -num 10 -f -t
ime |
179 $ if $severity .ne. 1 then goto exit3 | 180 $ if $severity .ne. 1 then goto exit3 |
180 $ endif | 181 $ endif |
181 $ | 182 $ |
(...skipping 14 matching lines...) Expand all Loading... |
196 $ if $severity .ne. 1 then goto exit3 | 197 $ if $severity .ne. 1 then goto exit3 |
197 $ endif | 198 $ endif |
198 $ endif | 199 $ endif |
199 $ | 200 $ |
200 $ RET = 1 | 201 $ RET = 1 |
201 $ goto exit | 202 $ goto exit |
202 $ exit3: | 203 $ exit3: |
203 $ RET = 3 | 204 $ RET = 3 |
204 $ exit: | 205 $ exit: |
205 $ if p3 .eqs. "" then delete certs.tmp;* | 206 $ if p3 .eqs. "" then delete certs.tmp;* |
| 207 $ set on |
206 $ exit 'RET' | 208 $ exit 'RET' |
OLD | NEW |