我试图使用Crypt::X 509库从.pem证书中提取数据,但是在对象构造中出现了一个错误。下面是我正在做的工作: 1.读取.pem文件的内容:
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks) = stat $s_filename;
open FILE, "<$s_filename" or die "no such file";
binmode FILE;
my $pem_cert;
read FILE, $pem_cert, $size;
close FILE; 包含要解析的DER格式化证书的变量。
my $der = MIME::Base64::decode($pem_cert);my $oref_x509= Crypt::X509->new(cert=>$der); if ( $oref_x509->error ) { warn "Error on parsing certificate: ", $oref_x509->error; }
我得到以下错误:
Error on parsing certificate: decode error 04<=>30 0 8 at ..<path>../Convert/ASN1/_decode.pm line 113. 我试过使用其他证书,但错误是相同的。
发布于 2016-08-17 08:40:10
当使用MIME::Base64 64::decode将证书从PEM转换为DER时,需要删除PEM头和预告片,而不是解码
-----BEGIN CERTIFICATE-----
MIICVTCCAbegAwIBAgIELwBe7DAKBggqhkjOPQQDAjAaMRgwFgYDVQQDDA9mb28u
....
-----END CERTIFICATE-----您应该只解码base64部分:
MIICVTCCAbegAwIBAgIELwBe7DAKBggqhkjOPQQDAjAaMRgwFgYDVQQDDA9mb28u
....由于-----BEGIN CERTIFICATE-----等包含有效的base64字符,它们将用于解码,而无效字符则被忽略。
发布于 2016-08-17 08:38:00
您不应该需要在二进制模式下打开base64编码的文件,因为它已经是8位干净的。然而,DER文件是二进制文件,因此在该实例中使用binmode()是正确的。
问题是,我认为,您要解析的证书实际上是PEM格式,而不是DER格式。如果您看一下Stephan的answer,他会详细说明不同之处(主要是在删除base64页眉/页脚之后,DER是PEM的base64解码变体)。
如果您可以访问openssl,则可以使用以下命令将其从PEM转换为DER:
openssl x509 -inform PEM -outform DER -in cert.pem -out cert.der(其中cert.pem是输入证书的名称)。
然后,您应该能够在Crypt::X 509中使用它。
如果我试图解析一个PEM格式文件,或者base64对它进行解码并解析它,我会得到相同的错误:
Failed to parse cert: decode error 04<=>30 0 8 at /usr/local/share/perl5/Convert/ASN1/_decode.pm line 113.但是,如果我使用DER版本,它将正确工作:
use warnings 'all';
use strict;
use Crypt::X509;
my $file = 'cert.der';
my $size = (stat $file)[7];
my $cert;
open(my $fh, '<', $file) or die "failed to open cert: $!";
binmode($fh);
read $fh, $cert, $size;
close($fh);
my $x509 = Crypt::X509->new(cert => $cert);
if($x509->error) {
die "Failed to parse cert: " . $x509->error;
}https://stackoverflow.com/questions/38991171
复制相似问题