| Current Path : /proc/thread-self/root/usr/local/lib64/perl5/Crypt/ |
| Current File : //proc/thread-self/root/usr/local/lib64/perl5/Crypt/PK.pm |
package Crypt::PK;
use strict;
use warnings;
our $VERSION = '0.076';
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