OLD | NEW |
1 $! TRSA.COM -- Tests rsa keys | 1 $! TRSA.COM -- Tests rsa keys |
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 (p2 .eqs. "64") then __arch = __arch+ "_64" |
| 9 $! |
| 10 $» exe_dir = "sys$disk:[-.''__arch'.exe.apps]" |
8 $ | 11 $ |
9 $ set noon | 12 $ set noon |
10 $ define/user sys$output nla0: | 13 $ define/user sys$output nla0: |
11 $ mcr 'exe_dir'openssl no-rsa | 14 $ mcr 'exe_dir'openssl no-rsa |
12 $ save_severity=$SEVERITY | 15 $ save_severity=$SEVERITY |
13 $ set on | 16 $ set on |
14 $ if save_severity | 17 $ if save_severity |
15 $ then | 18 $ then |
16 $ write sys$output "skipping RSA conversion test" | 19 $ write sys$output "skipping RSA conversion test" |
17 $ exit | 20 $ exit |
18 $ endif | 21 $ endif |
19 $ | 22 $ |
20 $» cmd := mcr 'exe_dir'openssl rsa | 23 $» cmd = "mcr ''exe_dir'openssl rsa" |
21 $ | 24 $ |
22 $» t := testrsa.pem | 25 $» t = "testrsa.pem" |
23 $ if p1 .nes. "" then t = p1 | 26 $ if p1 .nes. "" then t = p1 |
24 $ | 27 $ |
25 $ write sys$output "testing RSA conversions" | 28 $ write sys$output "testing RSA conversions" |
26 $ if f$search("fff.*") .nes "" then delete fff.*;* | 29 $ if f$search("fff.*") .nes "" then delete fff.*;* |
27 $ if f$search("ff.*") .nes "" then delete ff.*;* | 30 $ if f$search("ff.*") .nes "" then delete ff.*;* |
28 $ if f$search("f.*") .nes "" then delete f.*;* | 31 $ if f$search("f.*") .nes "" then delete f.*;* |
29 $ convert/fdl=sys$input: 't' fff.p | 32 $ convert/fdl=sys$input: 't' fff.p |
30 RECORD | 33 RECORD |
31 FORMAT STREAM_LF | 34 FORMAT STREAM_LF |
32 $ | 35 $ |
(...skipping 54 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
87 $! if $severity .ne. 1 then exit 3 | 90 $! if $severity .ne. 1 then exit 3 |
88 $ | 91 $ |
89 $ backup/compare f.p ff.p1 | 92 $ backup/compare f.p ff.p1 |
90 $ if $severity .ne. 1 then exit 3 | 93 $ if $severity .ne. 1 then exit 3 |
91 $! backup/compare f.p ff.p2 | 94 $! backup/compare f.p ff.p2 |
92 $! if $severity .ne. 1 then exit 3 | 95 $! if $severity .ne. 1 then exit 3 |
93 $ backup/compare f.p ff.p3 | 96 $ backup/compare f.p ff.p3 |
94 $ if $severity .ne. 1 then exit 3 | 97 $ if $severity .ne. 1 then exit 3 |
95 $ | 98 $ |
96 $ delete f.*;*,ff.*;*,fff.*;* | 99 $ delete f.*;*,ff.*;*,fff.*;* |
OLD | NEW |