izackp/mosh
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Replace OpenSSL base64 impl with a simple direct impl.

Browse Source 
Unit tests, too.
This commit is contained in:
John Hood
2015-10-04 20:16:25 -04:00
parent 1307dc4a0f
commit db311f92f7
8 changed files with 256 additions and 88 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/tests/genbase64.pl
Executable
+28
View File
@@ -0,0 +1,28 @@
#!/usr/bin/perl
use strict;
use warnings;
use MIME::Base64;
my @vectors = (
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00",
"\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff",
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xff",
"\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x00",
"\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa",
"\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\x55\x55\x55\x55\x55\x55\x55\x55",
"\x55\x55\x55\x55\x55\x55\x55\x55\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa",
"\x01\x02\x04\x08\x10\x20\x40\x80\xfe\xfd\xfb\xf7\xef\xdf\xbf\x7f",
);
print 'base64_test_row static_base64_vector[] = {' . "\n";
for my $v (@vectors) {
print ' { "';
my @chars = split '', $v;
for my $c (@chars) {
printf "\\x%02x", ord($c);
}
print '", "' . encode_base64($v, "") . '" },' . "\n";
}
print ' { "", "" }' . "\n";
print "};\n";