Homec4science
Diffusion The Area-Latency Symbiosis (master) Browse

R10848/gift/src/state.vhd
f901224b7d64master

Last Change
Raw File

state.vhd
View Options

library ieee;
use ieee.std_logic_1164.all;
use ieee.numeric_std.all;
entity state is
port (clk : in std_logic;
pt : in std_logic;
round_key : in std_logic;
round_constant : in std_logic;
round : in std_logic_vector(5 downto 0);
cycle : in std_logic_vector(6 downto 0);
ready : out std_logic;
ct : out std_logic);
end entity state;
architecture behavioural of state is
-- signal st_curr, st_next : std_logic_vector(128*8-1 downto 0);
signal st_curr, st_next : std_logic_vector(127 downto 0);
signal sbox0 : std_logic;
signal sbox_in, sbox_out : std_logic_vector(3 downto 0);
-- rotate shifts a vector one position to the left
-- and replaces the least significant bit with 'b'.
procedure rotate (
-- variable st : inout std_logic_vector(128*8-1 downto 0);
-- variable b : in std_logic_vector(7 downto 0)) is
variable st : inout std_logic_vector(127 downto 0);
variable b : in std_logic) is
begin
st := st(126 downto 0) & b;
-- st := st(127*8-1 downto 0) & b;
end procedure rotate;
-- swap switches the value between two input signals.
-- procedure swap (variable a, b : inout std_logic_vector(7 downto 0)) is
procedure swap (variable a, b : inout std_logic) is
--variable tmp : std_logic_vector(7 downto 0);
variable tmp : std_logic;
begin
tmp := a;
a := b;
b := tmp;
end procedure swap;
begin
sbox_in <= st_curr(2 downto 0) & sbox0;
sbox : entity work.sbox port map (sbox_in, sbox_out);
--sbox_in <= st_curr(95) & st_curr(63) & st_curr(31) & sbox0;
--sbox_in <= sbox0 & st_curr(31) & st_curr(63) & st_curr(95);
--sbox : entity work.sbox port map (sbox_in, sbox_out);
fsm : process(clk)
begin
if rising_edge(clk) then
st_curr <= st_next;
end if;
end process fsm;
--pipe : process(st_curr, round, cycle, sbox_out, round_key, round_constant)
-- variable st_tmp : std_logic_vector(127 downto 0);
-- variable s0 : std_logic;
--
-- variable round_i : integer range 0 to 41;
-- variable cycle_i : integer range 0 to 127;
--begin
-- st_tmp := st_curr;
-- round_i := to_integer(unsigned(round));
-- cycle_i := to_integer(unsigned(cycle));
-- -- substitution
-- if cycle_i >= 96 then
-- st_tmp(95) := sbox_out(0);
-- st_tmp(63) := sbox_out(1);
-- st_tmp(31) := sbox_out(2);
-- end if;
-- -- permutation layer A
-- if cycle_i mod 8 = 7 then
-- swap(st_tmp(96), st_tmp(97));
-- end if;
-- if (cycle_i mod 8 = 5) or (cycle_i mod 8 = 7) then
-- swap(st_tmp(96), st_tmp(99));
-- end if;
-- if cycle_i mod 8 = 5 then
-- swap(st_tmp(96), st_tmp(98));
-- end if;
-- -- permutation layer X1
-- if cycle_i = 0 or cycle_i = 1 or cycle_i = 42 or cycle_i = 43 or cycle_i = 50 or
-- cycle_i = 51 or cycle_i = 58 or cycle_i = 59 or cycle_i = 66 or cycle_i = 67 or
-- cycle_i = 104 or cycle_i = 105 or cycle_i = 112 or cycle_i = 113 or cycle_i = 120 or
-- cycle_i = 121 then
-- swap(st_tmp(99), st_tmp(103));
-- end if;
-- if cycle_i = 6 or cycle_i = 7 or cycle_i = 10 or cycle_i = 11 or cycle_i = 14 or
-- cycle_i = 15 or cycle_i = 18 or cycle_i = 19 or cycle_i = 22 or cycle_i = 23 or
-- cycle_i = 26 or cycle_i = 27 or cycle_i = 30 or cycle_i = 31 or cycle_i = 34 or
-- cycle_i = 35 or cycle_i = 72 or cycle_i = 73 or cycle_i = 80 or cycle_i = 81 or
-- cycle_i = 88 or cycle_i = 89 or cycle_i = 96 or cycle_i = 97 then
-- swap(st_tmp(99), st_tmp(101));
-- end if;
-- if cycle_i = 74 or cycle_i = 75 or cycle_i = 82 or cycle_i = 83 or cycle_i = 90 or
-- cycle_i = 91 or cycle_i = 98 or cycle_i = 99 then
-- swap(st_tmp(99), st_tmp(105));
-- end if;
-- -- permutation layer X2
-- if cycle_i = 2 or cycle_i = 3 or cycle_i = 34 or cycle_i = 35 or cycle_i = 66 or
-- cycle_i = 67 or cycle_i = 98 or cycle_i = 99 then
-- swap(st_tmp(105), st_tmp(123));
-- end if;
-- if cycle_i = 4 or cycle_i = 5 or cycle_i = 26 or cycle_i = 27 or cycle_i = 36 or
-- cycle_i = 37 or cycle_i = 58 or cycle_i = 59 or cycle_i = 68 or cycle_i = 69 or
-- cycle_i = 90 or cycle_i = 91 or cycle_i = 100 or cycle_i = 101 or cycle_i = 122 or
-- cycle_i = 123 then
-- swap(st_tmp(105), st_tmp(117));
-- end if;
-- if cycle_i = 6 or cycle_i = 7 or cycle_i = 18 or cycle_i = 19 or cycle_i = 28 or
-- cycle_i = 29 or cycle_i = 38 or cycle_i = 39 or cycle_i = 50 or cycle_i = 51 or
-- cycle_i = 60 or cycle_i = 61 or cycle_i = 70 or cycle_i = 71 or cycle_i = 82 or
-- cycle_i = 83 or cycle_i = 92 or cycle_i = 93 or cycle_i = 102 or cycle_i = 103 or
-- cycle_i = 114 or cycle_i = 115 or cycle_i = 124 or cycle_i = 125 then
-- swap(st_tmp(105), st_tmp(111));
-- end if;
--
-- -- determine wrap-around bit.
-- if round_i = 0 then
-- sbox0 <= pt;
-- s0 := pt;
-- if cycle_i >= 96 then
-- s0 := sbox_out(3);
-- end if;
-- else
-- sbox0 <= st_tmp(127) xor round_key xor round_constant;
-- s0 := st_tmp(127) xor round_key xor round_constant;
-- -- sbox0 <= st_tmp(127) xor round_constant;
-- -- s0 := st_tmp(127) xor round_constant;
-- if cycle_i >= 96 then
-- s0 := sbox_out(3);
-- end if;
-- end if;
-- ready <= '0';
-- if round_i = 40 then
-- ready <= '1';
-- end if;
--
-- if cycle_i < 96 then
-- ct <= s0;
-- else
-- ct <= st_tmp(127) xor round_constant;
-- end if;
-- --ct <= st_tmp(127) xor round_constant;
-- rotate(st_tmp, s0);
-- st_next <= st_tmp;
--end process pipe;
pipe : process(st_curr, round, cycle, sbox_out, round_key, round_constant)
-- variable st_tmp : std_logic_vector(128*8-1 downto 0);
-- variable s0 : std_logic_vector(7 downto 0);
variable st_tmp : std_logic_vector(127 downto 0);
variable s0 : std_logic;
variable round_i : integer range 0 to 41;
variable cycle_i : integer range 0 to 127;
begin
st_tmp := st_curr;
round_i := to_integer(unsigned(round));
cycle_i := to_integer(unsigned(cycle));
-- substitution
if cycle_i mod 4 = 3 then
st_tmp(2 downto 0) := sbox_out(3 downto 1);
end if;
-- swap 1
-- [(88, 56), (105, 89)]
-- [121, 122, 123, 124, 125, 126, 127, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12,
-- 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24]
-- [58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 122, 123, 124,
-- 125, 126, 127, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
if (cycle_i >= 0 and cycle_i <= 24) or
(cycle_i >= 121 and cycle_i <= 127) then
swap(st_tmp(56), st_tmp(88));
-- swap(st_tmp(57*8-1 downto 56*8), st_tmp(88*8-1 downto 87*8));
end if;
if (cycle_i >= 0 and cycle_i <= 9) or
(cycle_i >= 58 and cycle_i <= 73) or
(cycle_i >= 122 and cycle_i <= 127) then
swap(st_tmp(89), st_tmp(105));
-- swap(st_tmp(90*8-1 downto 89*8), st_tmp(106*8-1 downto 105*8));
end if;
-- swap 2
-- [(29, 17), (42, 18), (55, 19)]
-- [34, 35, 36, 37, 54, 55, 56, 57, 74, 75, 76, 77, 98, 99, 100, 101, 118,
-- 119, 120, 121, 10, 11, 12, 13]
-- [51, 52, 53, 54, 71, 72, 73, 74, 115, 116, 117, 118, 7, 8, 9, 10]
-- [68, 69, 70, 71, 4, 5, 6, 7]
if (cycle_i >= 10 and cycle_i <= 13) or
(cycle_i >= 34 and cycle_i <= 37) or
(cycle_i >= 54 and cycle_i <= 57) or
(cycle_i >= 74 and cycle_i <= 77) or
(cycle_i >= 98 and cycle_i <= 101) or
(cycle_i >= 118 and cycle_i <= 121) then
swap(st_tmp(17), st_tmp(29));
-- swap(st_tmp(18*8-1 downto 17*8), st_tmp(30*8-1 downto 29*8));
end if;
if (cycle_i >= 7 and cycle_i <= 10) or
(cycle_i >= 51 and cycle_i <= 54) or
(cycle_i >= 71 and cycle_i <= 74) or
(cycle_i >= 115 and cycle_i <= 118) then
swap(st_tmp(18), st_tmp(42));
-- swap(st_tmp(19*8-1 downto 18*8), st_tmp(43*8-1 downto 42*8));
end if;
if (cycle_i >= 4 and cycle_i <= 7) or
(cycle_i >= 68 and cycle_i <= 71) then
swap(st_tmp(19), st_tmp(55));
-- swap(st_tmp(20*8-1 downto 19*8), st_tmp(56*8-1 downto 55*8));
end if;
-- swap 3
-- [(10, 6), (13, 5), (16, 4)]
-- [5, 21, 37, 53, 69, 85, 101, 117, 13, 29, 45, 61, 77, 93, 109, 125, 15, 31,
-- 47, 63, 79, 95, 111, 127]
-- [19, 35, 51, 67, 83, 99, 115, 3, 17, 33, 49, 65, 81, 97, 113, 1]
-- [17, 33, 49, 65, 81, 97, 113, 1]
if (cycle_i mod 16 = 5) or
(cycle_i mod 16 = 13) or
(cycle_i mod 16 = 15) then
swap(st_tmp(6), st_tmp(10));
-- swap(st_tmp(7*8-1 downto 6*8), st_tmp(11*8-1 downto 10*8));
end if;
if (cycle_i mod 16 = 1) or
(cycle_i mod 16 = 3) then
swap(st_tmp(5), st_tmp(13));
-- swap(st_tmp(6*8-1 downto 5*8), st_tmp(14*8-1 downto 13*8));
end if;
if (cycle_i mod 16 = 1) then
swap(st_tmp(4), st_tmp(16));
-- swap(st_tmp(5*8-1 downto 4*8), st_tmp(17*8-1 downto 16*8));
end if;
--s0 := pt;
-- determine wrap-around bit.
if round_i = 0 then
sbox0 <= pt;
s0 := pt;
if cycle_i mod 4 = 3 then
s0 := sbox_out(0);
end if;
else
sbox0 <= st_tmp(127) xor round_key xor round_constant;
s0 := st_tmp(127) xor round_key xor round_constant;
if cycle_i mod 4 = 3 then
s0 := sbox_out(0);
end if;
-- s0 := st_tmp(128*8-1 downto 127*8);
end if;
ready <= '0';
if round_i = 40 then
ready <= '1';
end if;
ct <= st_tmp(127);
rotate(st_tmp, s0);
st_next <= st_tmp;
end process pipe;
end architecture behavioural;
c4science · Help