33 lines
507 B
Perl
33 lines
507 B
Perl
|
package Crypt::PK;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
our $VERSION = '0.048';
|
||
|
|
|
||
|
|
use Carp;
|
||
|
|
|
||
|
|
sub _ssh_parse {
|
||
|
|
my $raw = shift;
|
||
|
|
return unless defined $raw;
|
||
|
|
my $len = length($raw);
|
||
|
|
my @parts = ();
|
||
|
|
my $i = 0;
|
||
|
|
while (1) {
|
||
|
|
last unless $i + 4 <= $len;
|
||
|
|
my $part_len = unpack("N4", substr($raw, $i, 4));
|
||
|
|
last unless $i + 4 + $part_len <= $len;
|
||
|
|
push @parts, substr($raw, $i + 4, $part_len);
|
||
|
|
$i += $part_len + 4;
|
||
|
|
}
|
||
|
|
return @parts;
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|
||
|
|
|
||
|
|
__END__
|
||
|
|
|
||
|
|
=head1 NAME
|
||
|
|
|
||
|
|
Crypt::PK - [internal only]
|
||
|
|
|
||
|
|
=cut
|