tpkcs7d.com 1.4 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849
  1. $! TPKCS7.COM -- Tests pkcs7 keys
  2. $
  3. $ __arch := VAX
  4. $ if f$getsyi("cpu") .ge. 128 then -
  5. __arch = f$edit( f$getsyi( "ARCH_NAME"), "UPCASE")
  6. $ if __arch .eqs. "" then __arch := UNK
  7. $ exe_dir := sys$disk:[-.'__arch'.exe.apps]
  8. $
  9. $ cmd := mcr 'exe_dir'openssl pkcs7
  10. $
  11. $ t := pkcs7-1.pem
  12. $ if p1 .nes. "" then t = p1
  13. $
  14. $ write sys$output "testing PKCS7 conversions (2)"
  15. $ if f$search("fff.*") .nes "" then delete fff.*;*
  16. $ if f$search("ff.*") .nes "" then delete ff.*;*
  17. $ if f$search("f.*") .nes "" then delete f.*;*
  18. $ convert/fdl=sys$input: 't' fff.p
  19. RECORD
  20. FORMAT STREAM_LF
  21. $
  22. $ write sys$output "p -> d"
  23. $ 'cmd' -in fff.p -inform p -outform d -out f.d
  24. $ if $severity .ne. 1 then exit 3
  25. $ write sys$output "p -> p"
  26. $ 'cmd' -in fff.p -inform p -outform p -out f.p
  27. $ if $severity .ne. 1 then exit 3
  28. $
  29. $ write sys$output "d -> d"
  30. $ 'cmd' -in f.d -inform d -outform d -out ff.d1
  31. $ if $severity .ne. 1 then exit 3
  32. $ write sys$output "p -> d"
  33. $ 'cmd' -in f.p -inform p -outform d -out ff.d3
  34. $ if $severity .ne. 1 then exit 3
  35. $
  36. $
  37. $ write sys$output "d -> p"
  38. $ 'cmd' -in f.d -inform d -outform p -out ff.p1
  39. $ if $severity .ne. 1 then exit 3
  40. $ write sys$output "p -> p"
  41. $ 'cmd' -in f.p -inform p -outform p -out ff.p3
  42. $ if $severity .ne. 1 then exit 3
  43. $
  44. $ backup/compare f.p ff.p1
  45. $ if $severity .ne. 1 then exit 3
  46. $ backup/compare f.p ff.p3
  47. $ if $severity .ne. 1 then exit 3
  48. $
  49. $ delete f.*;*,ff.*;*,fff.*;*