blob: 0270ecb3638e0fca7c3635baac03b52ee3898d75 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
package Crypt::PK;
use strict;
use warnings;
our $VERSION = '0.078';
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
|