Browse Source

added basic verification of cbc ability

master
Torsten Meissner 13 years ago
parent
commit
5e4bd28cf1
1 changed files with 58 additions and 0 deletions
  1. +58
    -0
      cbcdes/sim/tb_cbcdes.vhd

+ 58
- 0
cbcdes/sim/tb_cbcdes.vhd View File

@ -138,6 +138,7 @@ architecture rtl of tb_cbcdes is
x"88BF0DB6D70DEE56", x"A1F9915541020B56", x"6FBF1CAFCFFD0556",
x"2F22E49BAB7CA1AC", x"5A6B612CC26CCE4A", x"5F4C038ED12B2E41",
x"63FAC0D034D9F793");
signal s_cbc_answers : t_array(0 to 19);
signal s_reset : std_logic := '0';
signal s_clk : std_logic := '0';
@ -281,6 +282,28 @@ begin
s_start <= '0';
end loop;
wait until rising_edge(s_clk);
s_start <= '0';
s_mode <= '0';
s_validin <= '0';
s_iv <= (others => '0');
s_key <= (others => '0');
s_datain <= (others => '0');
wait for 1 us;
-- cbc known answers test
for index in c_substitution_table_test_keys'range loop
wait until rising_edge(s_clk) and s_ready = '1';
if(index = 0) then
s_start <= '1';
s_key <= x"5555555555555555";
s_iv <= x"DEADBEEFDEADBEEF";
end if;
s_validin <= '1';
s_datain <= c_substitution_table_test_plain(index);
wait until rising_edge(s_clk);
s_validin <= '0';
s_start <= '0';
end loop;
wait until rising_edge(s_clk);
-- DECRYPTION TESTS
s_start <= '0';
s_mode <= '0';
@ -404,6 +427,30 @@ begin
s_iv <= (others => '0');
s_key <= (others => '0');
s_datain <= (others => '0');
wait for 1 us;
-- cbc known answer test
for index in c_substitution_table_test_keys'range loop
wait until rising_edge(s_clk) and s_ready = '1';
if(index = 0) then
s_mode <= '1';
s_start <= '1';
s_key <= x"5555555555555555";
s_iv <= x"DEADBEEFDEADBEEF";
end if;
s_validin <= '1';
s_datain <= s_cbc_answers(index);
wait until rising_edge(s_clk);
s_validin <= '0';
s_start <= '0';
s_mode <= '0';
end loop;
wait until rising_edge(s_clk);
s_start <= '0';
s_mode <= '0';
s_validin <= '0';
s_iv <= (others => '0');
s_key <= (others => '0');
s_datain <= (others => '0');
wait;
end process teststimuliP;
@ -448,6 +495,10 @@ begin
report "encryption error"
severity error;
end loop;
for index in c_substitution_table_test_cipher'range loop
wait until rising_edge(s_clk) and s_validout = '1';
s_cbc_answers(index) <= s_dataout;
end loop;
report "# DECRYPTION TESTS";
report "# Variable ciphertext known answer test";
v_plaintext := x"8000000000000000";
@ -486,6 +537,13 @@ begin
report "decryption error"
severity error;
end loop;
report "# cbc known answer test";
for index in c_substitution_table_test_cipher'range loop
wait until rising_edge(s_clk) and s_validout = '1';
assert (s_dataout = c_substitution_table_test_plain(index))
report "decryption error"
severity error;
end loop;
report "# Successfully passed all tests";
wait;
end process testcheckerP;


Loading…
Cancel
Save