各种PEM在perl中的应用
提问于 2010-08-10 05:24:18
我有客户端服务器架构的应用程序。
客户机(C程序)：
- 生成各种DER编码数据，
- 转换器到PEM (使用openssl的PEM_write_bio)，使用各种PEM报头
- 将PEM发送到服务器
服务器(Perl脚本)：
DER
- ....
- 接收PEM数据
我的问题是如何将各种PEM数据转换为perl中的DER/BER (二进制数据)？
回答 2
Stack Overflow用户
回答已采纳
发布于 2010-08-10 05:31:24
Stack Overflow用户
发布于 2016-11-16 21:18:42
基于已接受的答案的一个例子：
#!/usr/bin/perl
use strict;
use warnings;
use MIME::Base64;
my $certPath = 'cert.pem';
open my $fh, '<', $certPath or die(sprintf('Could not open %s file: %s', $certPath, $!));
my $derBlob = do { local $/; decode_base64(<$fh> =~ s/^-.*?\n//gmr); };
close($fh);
print $derBlob;
1;
__END__页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/3449396
复制相关文章
腾讯云开发者
