34 lines
505 B
Perl
34 lines
505 B
Perl
package Crypt::PK;
|
|
|
|
use strict;
|
|
use warnings;
|
|
our $VERSION = '0.068';
|
|
|
|
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;
|
|
|
|
=pod
|
|
|
|
=head1 NAME
|
|
|
|
Crypt::PK - [internal only]
|
|
|
|
=cut
|