Initial Commit

database/perl/vendor/lib/Crypt/PK.pm

@@ -0,0 +1,33 @@
+package Crypt::PK;
+
+use strict;
+use warnings;
+our $VERSION = '0.069';
+
+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