added basic verification of cbc ability

cbcdes/sim/tb_cbcdes.vhd

@@ -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;