git.sur5r.net Git - freertos/blob - FreeRTOS-Plus/Source/CyaSSL/gencertbuf.pl

   1 #!/usr/bin/perl
   2
   3 # gencertbuf.pl
   4 # version 1.1
   5 # Updated 07/01/2014
   6 #
   7 # Copyright (C) 2006-2014 wolfSSL Inc.
   8 #
   9
  10 use strict;
  11 use warnings;
  12
  13 # ---- SCRIPT SETTINGS -------------------------------------------------------
  14
  15 # output C header file to write cert/key buffers to
  16 my $outputFile = "./cyassl/certs_test.h";
  17
  18 # 1024-bit certs/keys to be converted
  19 # Used with USE_CERT_BUFFERS_1024 define.
  20
  21 my @fileList_1024 = (
  22         [ "./certs/1024/client-key.der", "client_key_der_1024" ],
  23         [ "./certs/1024/client-cert.der", "client_cert_der_1024" ],
  24         [ "./certs/1024/dh1024.der", "dh_key_der_1024" ],
  25         [ "./certs/1024/dsa1024.der", "dsa_key_der_1024" ],
  26         [ "./certs/1024/rsa1024.der", "rsa_key_der_1024" ]
  27         );
  28
  29 # 2048-bit certs/keys to be converted
  30 # Used with USE_CERT_BUFFERS_2048 define.
  31
  32 my @fileList_2048 = (
  33         [ "./certs/client-key.der", "client_key_der_2048" ],
  34         [ "./certs/client-cert.der", "client_cert_der_2048" ],
  35         [ "./certs/dh2048.der", "dh_key_der_2048" ],
  36         [ "./certs/dsa2048.der", "dsa_key_der_2048" ],
  37         [ "./certs/rsa2048.der", "rsa_key_der_2048" ],
  38         [ "./certs/ca-cert.der", "ca_cert_der_2048" ],
  39         [ "./certs/server-key.der", "server_key_der_2048" ],
  40         [ "./certs/server-cert.der", "server_cert_der_2048" ]
  41         );
  42
  43 # ----------------------------------------------------------------------------
  44
  45 my $num_1024 = @fileList_1024;
  46 my $num_2048 = @fileList_2048;
  47
  48 # open our output file, "+>" creates and/or truncates
  49 open OUT_FILE, "+>", $outputFile  or die $!;
  50
  51 print OUT_FILE "/* certs_test.h */\n\n";
  52 print OUT_FILE "#ifndef CYASSL_CERTS_TEST_H\n";
  53 print OUT_FILE "#define CYASSL_CERTS_TEST_H\n\n";
  54
  55 # convert and print 1024-bit cert/keys
  56 print OUT_FILE "#ifdef USE_CERT_BUFFERS_1024\n\n";
  57 for (my $i = 0; $i < $num_1024; $i++) {
  58
  59     my $fname = $fileList_1024[$i][0];
  60     my $sname = $fileList_1024[$i][1];
  61
  62     print OUT_FILE "/* $fname, 1024-bit */\n";
  63     print OUT_FILE "const unsigned char $sname\[] =\n";
  64     print OUT_FILE "{\n";
  65     file_to_hex($fname);
  66     print OUT_FILE "};\n";
  67     print OUT_FILE "const int sizeof_$sname = sizeof($sname);\n\n";
  68 }
  69
  70 # convert and print 2048-bit certs/keys
  71 print OUT_FILE "#elif defined(USE_CERT_BUFFERS_2048)\n\n";
  72 for (my $i = 0; $i < $num_2048; $i++) {
  73
  74     my $fname = $fileList_2048[$i][0];
  75     my $sname = $fileList_2048[$i][1];
  76
  77     print OUT_FILE "/* $fname, 2048-bit */\n";
  78     print OUT_FILE "const unsigned char $sname\[] =\n";
  79     print OUT_FILE "{\n";
  80     file_to_hex($fname);
  81     print OUT_FILE "};\n";
  82     print OUT_FILE "const int sizeof_$sname = sizeof($sname);\n\n";
  83 }
  84
  85 print OUT_FILE "#endif /* USE_CERT_BUFFERS_1024 */\n\n";
  86 print OUT_FILE "#endif /* CYASSL_CERTS_TEST_H */\n\n";
  87
  88 # close certs_test.h file
  89 close OUT_FILE or die $!;
  90
  91 # print file as hex, comma-separated, as needed by C buffer
  92 sub file_to_hex {
  93     my $fileName = $_[0];
  94
  95     open my $fp, "<", $fileName or die $!;
  96     binmode($fp);
  97
  98     my $fileLen = -s $fileName;
  99     my $byte;
 100
 101     for (my $i = 0, my $j = 1; $i < $fileLen; $i++, $j++)
 102     {
 103         if ($j == 1) {
 104             print OUT_FILE "\t";
 105         }
 106         read($fp, $byte, 1) or die "Error reading $fileName";
 107         my $output = sprintf("0x%02X", ord($byte));
 108         print OUT_FILE $output;
 109
 110         if ($i != ($fileLen - 1)) {
 111             print OUT_FILE ", ";
 112         }
 113
 114         if ($j == 10) {
 115             $j = 0;
 116             print OUT_FILE "\n";
 117         }
 118     }
 119
 120     print OUT_FILE "\n";
 121
 122     close($fp);
 123 }
 124