| 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 |