third-party libs
This commit is contained in:
parent
f836927d3a
commit
b154ee9266
3667 changed files with 854591 additions and 0 deletions
20
third-party/openssl-1.0.0d/demos/b64.pl
vendored
Normal file
20
third-party/openssl-1.0.0d/demos/b64.pl
vendored
Normal file
|
|
@ -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";
|
||||
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue