5c6f6fdb7d
merged from private repo removed unneccessary #include make line as 80 characters added simple tls server Disable TLS-linked API use when being SERVER SIDE, still use certificate verify API Added utility tools, generate signature arrays etc added vars to store tsip hmac keys fix build failure when disabling dc_printf
90 lines
2.2 KiB
Perl
Executable File
90 lines
2.2 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
# genhexbuf.pl
|
|
# Copyright (C) 2019 wolfSSL Inc.
|
|
#
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
# ---- SCRIPT SETTINGS -------------------------------------------------------
|
|
|
|
# output C header file to write cert/key buffers to
|
|
my $outputFile = "certs_sig_data.h";
|
|
|
|
# rsa keys and certs to be converted
|
|
|
|
my @fileList = (
|
|
# please add your der file and name of the data for C language
|
|
# der file name name of the data
|
|
#[ "./yourder.der", "your_der_name_in_C" ],
|
|
[ "./ca-cert.der", "ca_cert_der" ],
|
|
[ "./ca-cert.der.sign", "ca_cert_der_sign" ],
|
|
);
|
|
|
|
|
|
# ----------------------------------------------------------------------------
|
|
|
|
my $num = @fileList;
|
|
|
|
# open our output file, "+>" creates and/or truncates
|
|
open OUT_FILE, "+>", $outputFile or die $!;
|
|
|
|
print OUT_FILE "/* certs_sig_data.h */\n\n";
|
|
print OUT_FILE "#ifndef WOLFSSL_CERTS_SIG_DATA_H\n";
|
|
print OUT_FILE "#define WOLFSSL_CERTS_SIG_DATA_H\n\n";
|
|
|
|
|
|
# convert and print 1024-bit cert/keys
|
|
for (my $i = 0; $i < $num; $i++) {
|
|
|
|
my $fname = $fileList[$i][0];
|
|
my $sname = $fileList[$i][1];
|
|
|
|
print OUT_FILE "/* $fname, */\n";
|
|
print OUT_FILE "static const unsigned char $sname\[] =\n";
|
|
print OUT_FILE "{\n";
|
|
file_to_hex($fname);
|
|
print OUT_FILE "};\n";
|
|
print OUT_FILE "static const int sizeof_$sname = sizeof($sname);\n\n";
|
|
}
|
|
print OUT_FILE "#endif /* WOLFSSL_CERTS_SIG_DATA_H */\n\n";
|
|
|
|
|
|
# print file as hex, comma-separated, as needed by C buffer
|
|
sub file_to_hex {
|
|
my $fileName = $_[0];
|
|
|
|
open my $fp, "<", $fileName or die $!;
|
|
binmode($fp);
|
|
|
|
my $fileLen = -s $fileName;
|
|
my $byte;
|
|
|
|
for (my $i = 0, my $j = 1; $i < $fileLen; $i++, $j++)
|
|
{
|
|
if ($j == 1) {
|
|
print OUT_FILE " ";
|
|
}
|
|
if ($j != 1) {
|
|
print OUT_FILE " ";
|
|
}
|
|
read($fp, $byte, 1) or die "Error reading $fileName";
|
|
my $output = sprintf("0x%02X", ord($byte));
|
|
print OUT_FILE $output;
|
|
|
|
if ($i != ($fileLen - 1)) {
|
|
print OUT_FILE ",";
|
|
}
|
|
|
|
if ($j == 10) {
|
|
$j = 0;
|
|
print OUT_FILE "\n";
|
|
}
|
|
}
|
|
|
|
print OUT_FILE "\n";
|
|
|
|
close($fp);
|
|
}
|