| Ulf Möller | 7d7d2cb | 1999-05-13 11:37:32 +0000 | [diff] [blame] | 1 | $! TRSA.COM -- Tests rsa keys |
| 2 | $ |
| 3 | $ __arch := VAX |
| 4 | $ if f$getsyi("cpu") .ge. 128 then __arch := AXP |
| 5 | $ exe_dir := sys$disk:[-.'__arch'.exe.apps] |
| 6 | $ |
| Richard Levitte | c13ee21 | 2000-03-13 22:27:52 +0000 | [diff] [blame] | 7 | $ set noon |
| 8 | $ define/user sys$output nla0: |
| 9 | $ mcr 'exe_dir'openssl no-rsa |
| 10 | $ save_severity=$SEVERITY |
| 11 | $ set on |
| 12 | $ if save_severity |
| Richard Levitte | bc23b70 | 2000-03-13 19:05:18 +0000 | [diff] [blame] | 13 | $ then |
| Richard Levitte | c13ee21 | 2000-03-13 22:27:52 +0000 | [diff] [blame] | 14 | $ write sys$output "skipping RSA conversion test" |
| 15 | $ exit |
| Richard Levitte | bc23b70 | 2000-03-13 19:05:18 +0000 | [diff] [blame] | 16 | $ endif |
| Richard Levitte | bc23b70 | 2000-03-13 19:05:18 +0000 | [diff] [blame] | 17 | $ |
| Ulf Möller | 7d7d2cb | 1999-05-13 11:37:32 +0000 | [diff] [blame] | 18 | $ cmd := mcr 'exe_dir'openssl rsa |
| 19 | $ |
| 20 | $ t := testrsa.pem |
| 21 | $ if p1 .nes. "" then t = p1 |
| 22 | $ |
| 23 | $ write sys$output "testing RSA conversions" |
| Richard Levitte | 921c9bd | 2000-02-26 03:59:46 +0000 | [diff] [blame] | 24 | $ if f$search("fff.*") .nes "" then delete fff.*;* |
| 25 | $ if f$search("ff.*") .nes "" then delete ff.*;* |
| 26 | $ if f$search("f.*") .nes "" then delete f.*;* |
| Richard Levitte | b440697 | 2002-08-14 11:08:43 +0000 | [diff] [blame] | 27 | $ convert/fdl=sys$input: 't' fff.p |
| 28 | RECORD |
| 29 | FORMAT STREAM_LF |
| Ulf Möller | 7d7d2cb | 1999-05-13 11:37:32 +0000 | [diff] [blame] | 30 | $ |
| 31 | $ write sys$output "p -> d" |
| 32 | $ 'cmd' -in fff.p -inform p -outform d -out f.d |
| 33 | $ if $severity .ne. 1 then exit 3 |
| 34 | $! write sys$output "p -> t" |
| 35 | $! 'cmd' -in fff.p -inform p -outform t -out f.t |
| 36 | $! if $severity .ne. 1 then exit 3 |
| 37 | $ write sys$output "p -> p" |
| 38 | $ 'cmd' -in fff.p -inform p -outform p -out f.p |
| 39 | $ if $severity .ne. 1 then exit 3 |
| 40 | $ |
| 41 | $ write sys$output "d -> d" |
| 42 | $ 'cmd' -in f.d -inform d -outform d -out ff.d1 |
| 43 | $ if $severity .ne. 1 then exit 3 |
| 44 | $! write sys$output "t -> d" |
| 45 | $! 'cmd' -in f.t -inform t -outform d -out ff.d2 |
| 46 | $! if $severity .ne. 1 then exit 3 |
| 47 | $ write sys$output "p -> d" |
| 48 | $ 'cmd' -in f.p -inform p -outform d -out ff.d3 |
| 49 | $ if $severity .ne. 1 then exit 3 |
| 50 | $ |
| 51 | $! write sys$output "d -> t" |
| 52 | $! 'cmd' -in f.d -inform d -outform t -out ff.t1 |
| 53 | $! if $severity .ne. 1 then exit 3 |
| 54 | $! write sys$output "t -> t" |
| 55 | $! 'cmd' -in f.t -inform t -outform t -out ff.t2 |
| 56 | $! if $severity .ne. 1 then exit 3 |
| 57 | $! write sys$output "p -> t" |
| 58 | $! 'cmd' -in f.p -inform p -outform t -out ff.t3 |
| 59 | $! if $severity .ne. 1 then exit 3 |
| 60 | $ |
| 61 | $ write sys$output "d -> p" |
| 62 | $ 'cmd' -in f.d -inform d -outform p -out ff.p1 |
| 63 | $ if $severity .ne. 1 then exit 3 |
| 64 | $! write sys$output "t -> p" |
| 65 | $! 'cmd' -in f.t -inform t -outform p -out ff.p2 |
| 66 | $! if $severity .ne. 1 then exit 3 |
| 67 | $ write sys$output "p -> p" |
| 68 | $ 'cmd' -in f.p -inform p -outform p -out ff.p3 |
| 69 | $ if $severity .ne. 1 then exit 3 |
| 70 | $ |
| Richard Levitte | 13427e4 | 1999-11-12 01:46:50 +0000 | [diff] [blame] | 71 | $ backup/compare fff.p f.p |
| Ulf Möller | 7d7d2cb | 1999-05-13 11:37:32 +0000 | [diff] [blame] | 72 | $ if $severity .ne. 1 then exit 3 |
| Richard Levitte | 13427e4 | 1999-11-12 01:46:50 +0000 | [diff] [blame] | 73 | $ backup/compare fff.p ff.p1 |
| Ulf Möller | 7d7d2cb | 1999-05-13 11:37:32 +0000 | [diff] [blame] | 74 | $ if $severity .ne. 1 then exit 3 |
| Richard Levitte | 13427e4 | 1999-11-12 01:46:50 +0000 | [diff] [blame] | 75 | $! backup/compare fff.p ff.p2 |
| Ulf Möller | 7d7d2cb | 1999-05-13 11:37:32 +0000 | [diff] [blame] | 76 | $! if $severity .ne. 1 then exit 3 |
| Richard Levitte | 13427e4 | 1999-11-12 01:46:50 +0000 | [diff] [blame] | 77 | $ backup/compare fff.p ff.p3 |
| Ulf Möller | 7d7d2cb | 1999-05-13 11:37:32 +0000 | [diff] [blame] | 78 | $ if $severity .ne. 1 then exit 3 |
| 79 | $ |
| Richard Levitte | 13427e4 | 1999-11-12 01:46:50 +0000 | [diff] [blame] | 80 | $! backup/compare f.t ff.t1 |
| Ulf Möller | 7d7d2cb | 1999-05-13 11:37:32 +0000 | [diff] [blame] | 81 | $! if $severity .ne. 1 then exit 3 |
| Richard Levitte | 13427e4 | 1999-11-12 01:46:50 +0000 | [diff] [blame] | 82 | $! backup/compare f.t ff.t2 |
| Ulf Möller | 7d7d2cb | 1999-05-13 11:37:32 +0000 | [diff] [blame] | 83 | $! if $severity .ne. 1 then exit 3 |
| Richard Levitte | 13427e4 | 1999-11-12 01:46:50 +0000 | [diff] [blame] | 84 | $! backup/compare f.t ff.t3 |
| Ulf Möller | 7d7d2cb | 1999-05-13 11:37:32 +0000 | [diff] [blame] | 85 | $! if $severity .ne. 1 then exit 3 |
| 86 | $ |
| Richard Levitte | 13427e4 | 1999-11-12 01:46:50 +0000 | [diff] [blame] | 87 | $ backup/compare f.p ff.p1 |
| Ulf Möller | 7d7d2cb | 1999-05-13 11:37:32 +0000 | [diff] [blame] | 88 | $ if $severity .ne. 1 then exit 3 |
| Richard Levitte | 13427e4 | 1999-11-12 01:46:50 +0000 | [diff] [blame] | 89 | $! backup/compare f.p ff.p2 |
| Ulf Möller | 7d7d2cb | 1999-05-13 11:37:32 +0000 | [diff] [blame] | 90 | $! if $severity .ne. 1 then exit 3 |
| Richard Levitte | 13427e4 | 1999-11-12 01:46:50 +0000 | [diff] [blame] | 91 | $ backup/compare f.p ff.p3 |
| Ulf Möller | 7d7d2cb | 1999-05-13 11:37:32 +0000 | [diff] [blame] | 92 | $ if $severity .ne. 1 then exit 3 |
| 93 | $ |
| 94 | $ delete f.*;*,ff.*;*,fff.*;* |
