—

              
package Crypt::PK;
use strict;
use warnings;
our $VERSION = '0.085';
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;
HideShow 8 lines of Pod
=pod
=head1 NAME
Crypt::PK - [internal only]
=cut