0

使用 OpenSSL 可以解析和转储 ASN.1 DER 文件，输出如下所示：

  100:d=5  hl=2 l=   3 prim: OBJECT            :organizationalUnitName
  105:d=5  hl=2 l=  11 prim: PRINTABLESTRING   :Big Number Services
  118:d=3  hl=2 l=  20 cons: SET
  120:d=4  hl=2 l=  18 cons: SEQUENCE
  122:d=5  hl=2 l=   3 prim: OBJECT            :commonName
  127:d=5  hl=2 l=  11 prim: PRINTABLESTRING   :example.com
  140:d=2  hl=4 l= 290 cons: SEQUENCE
  144:d=3  hl=2 l=  13 cons: SEQUENCE

我想使用 Perl 生成类似的输出。当然，一种方法是openssl ans1parse从 Perl 内部调用，但我正在寻找一种方法不依赖于调用外部可执行文件的方法。

我查看了 Perl 模块Convert::ASN1，但似乎要使用它，您需要我没有的 ASN.1 描述。

4

1 回答 1

0

尝试查看cpan上的 Crypt::OpenSSL::* 模块。大多数人会使用 libcrypto 来访问 OpenSSL 提供的函数，因此如果您可以在模块中找到类似的方法/子程序，您应该会获得类似的信息。

于 2012-10-26T21:05:42.540 回答