tests for pkcs1 version number in DER decoding
=/ d=@ux (~(inv fo (elcm (dec p) (dec q))) e)
[p q n e d]
::
- ++ der
+ ++ der :: pkcs1
|%
++ en
|%
=/ b (rush a decode:asn1)
?~ b ~
?. ?=([%seq *] u.b) ~
- ?. ?= $: [%int *]
+ ?. ?= $: [%int %0]
[%int *]
[%int *]
[%int *]
--
--
::
- ++ pem
+ ++ pem :: pkcs1
|%
++ en
|%
