Makefile - sw/libhal - Cryptech libhal: crypto software, HSM management, RPC

blob: 59236afd0361f7d482eb02a9406e88ee34ddb123 (plain) (tree)

10
11
12

14
15
16

30
31

34
35
36

41
42

51
52

53
54

57
58

59
60
61

64
65

104
105

119
120

126
127
128

129
130

132
133
134

136
137
138

150
151
152

159
160

167
168

169
170

180
181
182

187
188
189

194
195
196

201
202
203

210
211

220
221

243
244

248
249

251
252

255
256
257

259
260

generated by cgit v1.2.3 (git 2.25.1) at 2024-10-05 08:26:17 +0000

span>// Display the accumulated test results. //---------------------------------------------------------------- task display_test_result(); begin if (error_ctr == 0) begin $display("*** All %02d test cases completed successfully.", tc_ctr); end else begin $display("*** %02d test cases completed.", tc_ctr); $display("*** %02d errors detected during testing.", error_ctr); end end endtask // display_test_result //---------------------------------------------------------------- // wait_ready() // // Wait for the ready flag in the dut to be set. // (Actually we wait for either ready or valid to be set.) // // Note: It is the callers responsibility to call the function // when the dut is actively processing and will in fact at some // point set the flag. //---------------------------------------------------------------- task wait_ready(); begin read_data = 0; while (read_data == 0) begin read_word(ADDR_STATUS); end end endtask // wait_ready //---------------------------------------------------------------- // write_word() // // Write the given word to the DUT using the DUT interface. //---------------------------------------------------------------- task write_word(input [7 : 0] address, input [31 : 0] word); begin if (DEBUG) begin $display("*** Writing 0x%08x to 0x%02x.", word, address); $display(""); end tb_address = address; tb_write_data = word; tb_cs = 1; tb_we = 1; #(2 * CLK_HALF_PERIOD); tb_cs = 0; tb_we = 0; end endtask // write_word //---------------------------------------------------------------- // write_block() // // Write the given block to the dut. //---------------------------------------------------------------- task write_block(input [1023 : 0] block); begin write_word(ADDR_BLOCK0, block[1023 : 992]); write_word(ADDR_BLOCK1, block[991 : 960]); write_word(ADDR_BLOCK2, block[959 : 928]); write_word(ADDR_BLOCK3, block[927 : 896]); write_word(ADDR_BLOCK4, block[895 : 864]); write_word(ADDR_BLOCK5, block[863 : 832]); write_word(ADDR_BLOCK6, block[831 : 800]); write_word(ADDR_BLOCK7, block[799 : 768]); write_word(ADDR_BLOCK8, block[767 : 736]); write_word(ADDR_BLOCK9, block[735 : 704]); write_word(ADDR_BLOCK10, block[703 : 672]); write_word(ADDR_BLOCK11, block[671 : 640]); write_word(ADDR_BLOCK12, block[639 : 608]); write_word(ADDR_BLOCK13, block[607 : 576]); write_word(ADDR_BLOCK14, block[575 : 544]); write_word(ADDR_BLOCK15, block[543 : 512]); write_word(ADDR_BLOCK16, block[511 : 480]); write_word(ADDR_BLOCK17, block[479 : 448]); write_word(ADDR_BLOCK18, block[447 : 416]); write_word(ADDR_BLOCK19, block[415 : 384]); write_word(ADDR_BLOCK20, block[383 : 352]); write_word(ADDR_BLOCK21, block[351 : 320]); write_word(ADDR_BLOCK22, block[319 : 288]); write_word(ADDR_BLOCK23, block[287 : 256]); write_word(ADDR_BLOCK24, block[255 : 224]); write_word(ADDR_BLOCK25, block[223 : 192]); write_word(ADDR_BLOCK26, block[191 : 160]); write_word(ADDR_BLOCK27, block[159 : 128]); write_word(ADDR_BLOCK28, block[127 : 96]); write_word(ADDR_BLOCK29, block[95 : 64]); write_word(ADDR_BLOCK30, block[63 : 32]); write_word(ADDR_BLOCK31, block[31 : 0]); end endtask // write_block //---------------------------------------------------------------- // read_word() // // Read a data word from the given address in the DUT. // the word read will be available in the global variable // read_data. //---------------------------------------------------------------- task read_word(input [7 : 0] address); begin tb_address = address; tb_cs = 1; tb_we = 0; #(CLK_PERIOD); read_data = tb_read_data; tb_cs = 0; if (DEBUG) begin $display("*** Reading 0x%08x from 0x%02x.", read_data, address); $display(""); end end endtask // read_word //---------------------------------------------------------------- // check_name_version() // // Read the name and version from the DUT. //---------------------------------------------------------------- task check_name_version(); reg [31 : 0] name0; reg [31 : 0] name1; reg [31 : 0] version; begin read_word(ADDR_NAME0); name0 = read_data; read_word(ADDR_NAME1); name1 = read_data; read_word(ADDR_VERSION); version = read_data; $display("DUT name: %c%c%c%c%c%c%c%c", name0[31 : 24], name0[23 : 16], name0[15 : 8], name0[7 : 0], name1[31 : 24], name1[23 : 16], name1[15 : 8], name1[7 : 0]); $display("DUT version: %c%c%c%c", version[31 : 24], version[23 : 16], version[15 : 8], version[7 : 0]); end endtask // check_name_version //---------------------------------------------------------------- // read_digest() // // Read the digest in the dut. The resulting digest will be // available in the global variable digest_data. //---------------------------------------------------------------- task read_digest(); begin read_word(ADDR_DIGEST0); digest_data[511 : 480] = read_data; read_word(ADDR_DIGEST1); digest_data[479 : 448] = read_data; read_word(ADDR_DIGEST2); digest_data[447 : 416] = read_data; read_word(ADDR_DIGEST3); digest_data[415 : 384] = read_data; read_word(ADDR_DIGEST4); digest_data[383 : 352] = read_data; read_word(ADDR_DIGEST5); digest_data[351 : 320] = read_data; read_word(ADDR_DIGEST6); digest_data[319 : 288] = read_data; read_word(ADDR_DIGEST7); digest_data[287 : 256] = read_data; read_word(ADDR_DIGEST8); digest_data[255 : 224] = read_data; read_word(ADDR_DIGEST9); digest_data[223 : 192] = read_data; read_word(ADDR_DIGEST10); digest_data[191 : 160] = read_data; read_word(ADDR_DIGEST11); digest_data[159 : 128] = read_data; read_word(ADDR_DIGEST12); digest_data[127 : 96] = read_data; read_word(ADDR_DIGEST13); digest_data[95 : 64] = read_data; read_word(ADDR_DIGEST14); digest_data[63 : 32] = read_data; read_word(ADDR_DIGEST15); digest_data[31 : 0] = read_data; end endtask // read_digest //---------------------------------------------------------------- // get_mask() // // Create the mask needed for a given mode. //---------------------------------------------------------------- function [511 : 0] get_mask(input [1 : 0] mode); begin case (mode) MODE_SHA_512_224: begin if (DEBUG) begin $display("Mode MODE_SHA_512_224"); end get_mask = {{7{32'hffffffff}}, {9{32'h00000000}}}; end MODE_SHA_512_256: begin if (DEBUG) begin $display("Mode MODE_SHA_512_256"); end get_mask = {{8{32'hffffffff}}, {8{32'h00000000}}}; end MODE_SHA_384: begin if (DEBUG) begin $display("Mode MODE_SHA_512_384"); end get_mask = {{12{32'hffffffff}}, {4{32'h00000000}}}; end MODE_SHA_512: begin if (DEBUG) begin $display("Mode MODE_SHA_512"); end get_mask = {16{32'hffffffff}}; end endcase // case (mode) end endfunction // get_mask //---------------------------------------------------------------- // single_block_test() // // // Perform test of a single block digest. //---------------------------------------------------------------- task single_block_test(input [7 : 0] tc_number, input [1 : 0] mode, input [1023 : 0] block, input [511 : 0] expected); reg [511 : 0] mask; reg [511 : 0] masked_data; begin $display("*** TC%01d - Single block test started.", tc_ctr); write_block(block); write_word(ADDR_CTRL, {28'h0000000, mode, CTRL_INIT_VALUE}); #(CLK_PERIOD); wait_ready(); read_digest(); mask = get_mask(mode); masked_data = digest_data & mask; if (DEBUG) begin $display("masked_data = 0x%0128x", masked_data); end if (masked_data == expected) begin $display("TC%01d: OK.", tc_ctr); end else begin $display("TC%01d: ERROR.", tc_ctr); $display("TC%01d: Expected: 0x%0128x", tc_ctr, expected); $display("TC%01d: Got: 0x%0128x", tc_ctr, masked_data); error_ctr = error_ctr + 1; end $display("*** TC%01d - Single block test done.", tc_ctr); tc_ctr = tc_ctr + 1; end endtask // single_block_test //---------------------------------------------------------------- // double_block_test() // // // Perform test of a double block digest. Note that we check // the digests for both the first and final block. //---------------------------------------------------------------- task double_block_test(input [7 : 0] tc_number, input [1 : 0] mode, input [1023 : 0] block0, input [1023 : 0] block1, input [511 : 0] expected0, input [511 : 0] expected1 ); reg [511 : 0] mask; reg [511 : 0] masked_data1; reg [31 : 0] ctrl_cmd; begin $display("*** TC%01d - Double block test started.", tc_ctr); // First block write_block(block0); write_word(ADDR_CTRL, {28'h0000000, mode, CTRL_INIT_VALUE}); #(CLK_PERIOD); wait_ready(); read_digest(); if (digest_data == expected0) begin $display("TC%01d first block: OK.", tc_ctr); end else begin $display("TC%01d: ERROR in first digest", tc_ctr); $display("TC%01d: Expected: 0x%064x", tc_ctr, expected0); $display("TC%01d: Got: 0x%064x", tc_ctr, digest_data); error_ctr = error_ctr + 1; end // Final block write_block(block1); write_word(ADDR_CTRL, {28'h0000000, mode, CTRL_NEXT_VALUE}); #(CLK_PERIOD); wait_ready(); read_digest(); mask = get_mask(mode); masked_data1 = digest_data & mask; if (masked_data1 == expected1) begin $display("TC%01d final block: OK.", tc_ctr); end else begin $display("TC%01d: ERROR in final digest", tc_ctr); $display("TC%01d: Expected: 0x%0128x", tc_ctr, expected1); $display("TC%01d: Got: 0x%0128x", tc_ctr, masked_data1); error_ctr = error_ctr + 1; end $display("*** TC%01d - Double block test done.", tc_ctr); tc_ctr = tc_ctr + 1; end endtask // double_block_test //---------------------------------------------------------------- // work_factor_test() // // Perform test of the work factor function. //---------------------------------------------------------------- task work_factor_test(); reg [1023 : 0] my_block; reg [511 : 0] my_digest; reg [31 : 0] my_ctrl_cmd; begin $display("*** TC%01d - Work factor test started.", tc_ctr); // Read out work factor number. read_word(ADDR_WORK_FACTOR_NUM); // Trying to change the work factor number. write_word(ADDR_WORK_FACTOR_NUM, 32'h00000003); read_word(ADDR_WORK_FACTOR_NUM); // Set block to all zero my_block = {16{64'h0000000000000000}}; write_block(my_block); // Set init+ work factor. We use SHA-512 mode. my_ctrl_cmd = 32'h00000000 + (CTRL_WORK_FACTOR_VALUE << 7) + (MODE_SHA_512 << 2) + CTRL_INIT_VALUE; write_word(ADDR_CTRL, my_ctrl_cmd); #(CLK_PERIOD); wait_ready(); read_digest(); $display("*** TC%01d - Work factor test done.", tc_ctr); tc_ctr = tc_ctr + 1; end endtask // work_factor_test //---------------------------------------------------------------- // sha512_test // The main test functionality. // // Test cases taken from: // http://csrc.nist.gov/groups/ST/toolkit/documents/Examples/SHA_All.pdf //---------------------------------------------------------------- initial begin : sha512_test reg [1024 : 0] single_block; reg [511 : 0] tc1_expected; reg [511 : 0] tc2_expected; reg [511 : 0] tc3_expected; reg [511 : 0] tc4_expected; reg [1024 : 0] double_block_one; reg [1024 : 0] double_block_two; reg [511 : 0] tc5_expected; reg [511 : 0] tc6_expected; reg [511 : 0] tc7_expected; reg [511 : 0] tc8_expected; reg [511 : 0] tc9_expected; reg [511 : 0] tc10_expected; reg [511 : 0] tc11_expected; reg [511 : 0] tc12_expected; $display(" -- Testbench for sha512 started --"); init_sim(); reset_dut(); check_name_version(); // dump_dut_state(); // write_word(ADDR_BLOCK0, 32'hdeadbeef); dump_dut_state(); // read_word(ADDR_BLOCK0); // dump_dut_state(); // Single block test mesage. single_block = 1024'h6162638000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000018; // SHA-512 single block digest and test. tc1_expected = 512'hDDAF35A193617ABACC417349AE20413112E6FA4E89A97EA20A9EEEE64B55D39A2192992A274FC1A836BA3C23A3FEEBBD454D4423643CE80E2A9AC94FA54CA49F; single_block_test(8'h01, MODE_SHA_512, single_block, tc1_expected); // SHA-512_224 single block digest and test. tc2_expected = {224'h4634270F707B6A54DAAE7530460842E20E37ED265CEEE9A43E8924AA, {9{32'h00000000}}}; single_block_test(8'h02, MODE_SHA_512_224, single_block, tc2_expected); // SHA-512_256 single block digest and test. tc3_expected = {256'h53048E2681941EF99B2E29B76B4C7DABE4C2D0C634FC6D46E0E2F13107E7AF23, {8{32'h00000000}}}; single_block_test(8'h03, MODE_SHA_512_256, single_block, tc3_expected); // SHA-384 single block digest and test. tc4_expected = {384'hCB00753F45A35E8BB5A03D699AC65007272C32AB0EDED1631A8B605A43FF5BED8086072BA1E7CC2358BAECA134C825A7, {4{32'h00000000}}}; single_block_test(8'h04, MODE_SHA_384, single_block, tc4_expected); // Two block test message. double_block_one = 1024'h61626364656667686263646566676869636465666768696A6465666768696A6B65666768696A6B6C666768696A6B6C6D6768696A6B6C6D6E68696A6B6C6D6E6F696A6B6C6D6E6F706A6B6C6D6E6F70716B6C6D6E6F7071726C6D6E6F707172736D6E6F70717273746E6F70717273747580000000000000000000000000000000; double_block_two = 1024'h0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000380; // SHA-512 two block digests and test. tc5_expected = 512'h4319017A2B706E69CD4B05938BAE5E890186BF199F30AA956EF8B71D2F810585D787D6764B20BDA2A26014470973692000EC057F37D14B8E06ADD5B50E671C72; tc6_expected = 512'h8E959B75DAE313DA8CF4F72814FC143F8F7779C6EB9F7FA17299AEADB6889018501D289E4900F7E4331B99DEC4B5433AC7D329EEB6DD26545E96E55B874BE909; double_block_test(8'h05, MODE_SHA_512, double_block_one, double_block_two, tc5_expected, tc6_expected); // SHA-512_224 two block digests and test. tc7_expected = 512'h9606CB2DB7823CE75FE35E2674A8F9EF1417ED9E89C412BB54EA29664586108625852563EED495096DEBAAE2F4737FD75319224B135486F8E6C0F55E700C35B3; tc8_expected = {224'h23FEC5BB94D60B23308192640B0C453335D664734FE40E7268674AF9, {9{32'h00000000}}}; double_block_test(8'h06, MODE_SHA_512_224, double_block_one, double_block_two, tc7_expected, tc8_expected); // SHA-512_256 two block digests and test. tc9_expected = 512'h8DD99EB081311F8BCBBBC42CC7AFB288E8E9408730419D1E953FF7A2B194048DAE24175483C44C7C809B348E8E88E3ECBF2EA614CEED9C5B51807937F11867E1; tc10_expected = {256'h3928E184FB8690F840DA3988121D31BE65CB9D3EF83EE6146FEAC861E19B563A, {8{32'h00000000}}}; double_block_test(8'h07, MODE_SHA_512_256, double_block_one, double_block_two, tc9_expected, tc10_expected); // SHA-384 two block digests and test. tc11_expected = 512'h2A7F1D895FD58E0BEAAE96D1A673C741015A2173796C1A88F6352CA156ACAFF7C662113E9EBB4D6417B61A85E2CCF0A937EB9A6660FEB5198F2EBE9A81E6A2C5; tc12_expected = {384'h09330C33F71147E83D192FC782CD1B4753111B173B3B05D22FA08086E3B0F712FCC7C71A557E2DB966C3E9FA91746039, {4{32'h00000000}}}; double_block_test(8'h08, MODE_SHA_384, double_block_one, double_block_two, tc11_expected, tc12_expected); // Work factor test. work_factor_test(); dump_dut_state(); display_test_result(); $display(" -- Testbench for sha512 done. --"); $finish; end // sha512_test endmodule // tb_sha512 //====================================================================== // EOF tb_sha512.v //======================================================================