aboutsummaryrefslogtreecommitdiff
path: root/openssl/demos/b64.pl
diff options
context:
space:
mode:
Diffstat (limited to 'openssl/demos/b64.pl')
-rw-r--r--openssl/demos/b64.pl20
1 files changed, 20 insertions, 0 deletions
diff --git a/openssl/demos/b64.pl b/openssl/demos/b64.pl
new file mode 100644
index 000000000..8aa5fb464
--- /dev/null
+++ b/openssl/demos/b64.pl
@@ -0,0 +1,20 @@
+#!/usr/local/bin/perl
+
+#
+# Make PEM encoded data have lines of 64 bytes of data
+#
+
+while (<>)
+ {
+ if (/^-----BEGIN/ .. /^-----END/)
+ {
+ if (/^-----BEGIN/) { $first=$_; next; }
+ if (/^-----END/) { $last=$_; next; }
+ $out.=$_;
+ }
+ }
+$out =~ s/\s//g;
+$out =~ s/(.{64})/$1\n/g;
+print "$first$out\n$last\n";
+
+