使用Perl识别DSA/RSA密钥

Question

我正在尝试查找Perl解决方案来识别密钥的类型。 我有一个关键文件列表，我需要知道哪些是DSA，哪些是RSA。

我知道我可以用下面的命令做在Linux上：

ssh-keygen -lf id_dsa.pub 

我试图找到一个纯Perl的解决方案，能够在Windows和Linux的工作。

谢谢。

Answer 1

您可以使用File::LibMagic，它使用与unix file命令相同的库。

在Ubuntu，我安装了它：

apt-get install libmagic-dev 

cpan File::LibMagic 

对于Windows，它是已知Cygwin的工作，并应与窗户工作，如果你可以安装libmagic库。我没有尝试过，所以YMMV。

例

#!/usr/bin/env perl 

use warnings; 
use strict; 

use File::LibMagic; 

my $magic = File::LibMagic->new(); 

my $key_dsa = '/home/felix/.ssh/id_dsa.pub'; 
my $info_dsa = $magic->info_from_filename($key_dsa); 
print "[ $key_dsa ] : " . $info_dsa->{description} . "\n"; 

my $key_rsa = '/home/felix/.ssh/id_rsa.pub'; 
my $info_rsa = $magic->info_from_filename($key_rsa); 
print "[ $key_rsa ] : " . $info_rsa->{description} . "\n"; 

输出

[ /home/felix/.ssh/id_dsa.pub ] : OpenSSH DSA public key 
[ /home/felix/.ssh/id_rsa.pub ] : OpenSSH RSA public key