如何将 Perl 的 Convert::ASN1 转换为 Ruby 代码？

Question

谁能告诉我这段代码的作用以及如何以最简单的方式将其转换为 Ruby？

    #!perl

    use Convert::ASN1;

    my $asn1 = Convert::ASN1->new(encoding => 'DER');
    $asn1->prepare(q<
        Algorithm ::= SEQUENCE {
            oid OBJECT IDENTIFIER,
            opt ANY OPTIONAL
        }
        Signature ::= SEQUENCE {
            alg Algorithm,
            sig BIT STRING
        }
    >);

   my $data = $asn1->encode(sig => $body,
        alg => {oid => sha512WithRSAEncryption()});

它是 mexumgen 的一部分，Perl 库使用 openssl 为 Mozilla 产品签名 update.rdf。

Answer 1

这个特定的例子可以转换为

data = ["308191300b06092a864886f70d01010d03818100" + body.unpack("H*")].pack("H*")

其中“308191300b06092a864886f70d01010d03818100”是从该 ASN 表达式到 BIT STRING 字段（包括 BIT STRING 的大小）的前缀，pack("H") 将二进制数据转换为十六进制表示，unpack("H") 将字符串转换为十六进制返回二进制。

但对于更通用的 ASN 转换器，最好使用 OpenSSL::ASN1，它带有 ruby​​ 作为标准库。它完全没有记录，但有些人设法have some use of it

Answer 2

你看过Net::ASN1吗？