1 files changed, 33 insertions, 0 deletions
diff --git a/lib/Crypt/PK.pm b/lib/Crypt/PK.pm
new file mode 100644
index 00000000..c240ab4c
--- /dev/null
+++ b/lib/Crypt/PK.pm
@@ -0,0 +1,33 @@
+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
+\ No newline at end of file