7 # Copyright (C) 2006-2015 wolfSSL Inc.
13 # ---- SCRIPT SETTINGS -------------------------------------------------------
15 # output C header file to write cert/key buffers to
16 my $outputFile = "./wolfssl/certs_test.h";
18 # 1024-bit certs/keys to be converted
19 # Used with USE_CERT_BUFFERS_1024 define.
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" ]
29 # 2048-bit certs/keys to be converted
30 # Used with USE_CERT_BUFFERS_2048 define.
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" ]
43 # ----------------------------------------------------------------------------
45 my $num_1024 = @fileList_1024;
46 my $num_2048 = @fileList_2048;
48 # open our output file, "+>" creates and/or truncates
49 open OUT_FILE, "+>", $outputFile or die $!;
51 print OUT_FILE "/* certs_test.h */\n\n";
52 print OUT_FILE "#ifndef WOLFSSL_CERTS_TEST_H\n";
53 print OUT_FILE "#define WOLFSSL_CERTS_TEST_H\n\n";
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++) {
59 my $fname = $fileList_1024[$i][0];
60 my $sname = $fileList_1024[$i][1];
62 print OUT_FILE "/* $fname, 1024-bit */\n";
63 print OUT_FILE "static const unsigned char $sname\[] =\n";
66 print OUT_FILE "};\n";
67 print OUT_FILE "static const int sizeof_$sname = sizeof($sname);\n\n";
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++) {
74 my $fname = $fileList_2048[$i][0];
75 my $sname = $fileList_2048[$i][1];
77 print OUT_FILE "/* $fname, 2048-bit */\n";
78 print OUT_FILE "static const unsigned char $sname\[] =\n";
81 print OUT_FILE "};\n";
82 print OUT_FILE "static const int sizeof_$sname = sizeof($sname);\n\n";
85 print OUT_FILE "#endif /* USE_CERT_BUFFERS_1024 */\n\n";
86 print OUT_FILE "/* dh1024 p */
87 static const unsigned char dh_p[] =
89 0xE6, 0x96, 0x9D, 0x3D, 0x49, 0x5B, 0xE3, 0x2C, 0x7C, 0xF1, 0x80, 0xC3,
90 0xBD, 0xD4, 0x79, 0x8E, 0x91, 0xB7, 0x81, 0x82, 0x51, 0xBB, 0x05, 0x5E,
91 0x2A, 0x20, 0x64, 0x90, 0x4A, 0x79, 0xA7, 0x70, 0xFA, 0x15, 0xA2, 0x59,
92 0xCB, 0xD5, 0x23, 0xA6, 0xA6, 0xEF, 0x09, 0xC4, 0x30, 0x48, 0xD5, 0xA2,
93 0x2F, 0x97, 0x1F, 0x3C, 0x20, 0x12, 0x9B, 0x48, 0x00, 0x0E, 0x6E, 0xDD,
94 0x06, 0x1C, 0xBC, 0x05, 0x3E, 0x37, 0x1D, 0x79, 0x4E, 0x53, 0x27, 0xDF,
95 0x61, 0x1E, 0xBB, 0xBE, 0x1B, 0xAC, 0x9B, 0x5C, 0x60, 0x44, 0xCF, 0x02,
96 0x3D, 0x76, 0xE0, 0x5E, 0xEA, 0x9B, 0xAD, 0x99, 0x1B, 0x13, 0xA6, 0x3C,
97 0x97, 0x4E, 0x9E, 0xF1, 0x83, 0x9E, 0xB5, 0xDB, 0x12, 0x51, 0x36, 0xF7,
98 0x26, 0x2E, 0x56, 0xA8, 0x87, 0x15, 0x38, 0xDF, 0xD8, 0x23, 0xC6, 0x50,
99 0x50, 0x85, 0xE2, 0x1F, 0x0D, 0xD5, 0xC8, 0x6B,
103 static const unsigned char dh_g[] =
107 print OUT_FILE "#endif /* WOLFSSL_CERTS_TEST_H */\n\n";
109 # close certs_test.h file
110 close OUT_FILE or die $!;
112 # print file as hex, comma-separated, as needed by C buffer
114 my $fileName = $_[0];
116 open my $fp, "<", $fileName or die $!;
119 my $fileLen = -s $fileName;
122 for (my $i = 0, my $j = 1; $i < $fileLen; $i++, $j++)
127 read($fp, $byte, 1) or die "Error reading $fileName";
128 my $output = sprintf("0x%02X", ord($byte));
129 print OUT_FILE $output;
131 if ($i != ($fileLen - 1)) {