Subversion Repositories aes-encryption

/////////////////////////////////////////////////////////////////////

////                                                             ////

////  AES Key Expand Block (for 128 bit keys)                    ////

////                                                             ////

////                                                             ////

////  Author: Rudolf Usselmann                                   ////

////          rudi@asics.ws                                      ////

////                                                             ////

////                                                             ////

////  Downloaded from: http://www.opencores.org/cores/aes_core/  ////

////                                                             ////

/////////////////////////////////////////////////////////////////////

////                                                             ////

//// Copyright (C) 2000-2002 Rudolf Usselmann                    ////

////                         www.asics.ws                        ////

////                         rudi@asics.ws                       ////

////                                                             ////

//// This source file may be used and distributed without        ////

//// restriction provided that this copyright statement is not   ////

//// removed from the file and that any derivative work contains ////

//// the original copyright notice and the associated disclaimer.////

////                                                             ////

////     THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY     ////

//// EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED   ////

//// TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS   ////

//// FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL THE AUTHOR      ////

//// OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,         ////

//// INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES    ////

//// (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE   ////

//// GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR        ////

//// BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF  ////

//// LIABILITY, WHETHER IN  CONTRACT, STRICT LIABILITY, OR TORT  ////

//// (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT  ////

//// OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE         ////

//// POSSIBILITY OF SUCH DAMAGE.                                 ////

////                                                             ////

/////////////////////////////////////////////////////////////////////

//// Modified to achieve 10 cycle - 10 stage functionality           ////

//// By Tariq Bashir Ahmad                                           ////       

////  tariq.bashir@gmail.com                                         ////

////  http://www.ecs.umass.edu/~tbashir                              ////       

`timescale 1 ns/1 ps

module aes_key_expand_128(clk, key, w0,w1,w2,w3,w4, w5, w6, w7, w8, w9, w10, w11, w12, w13, w14, w15, w16, w17,

                                                                                                          w18, w19, w20, w21, w22, w23, w24, w25, w26, w27, w28, w29, w30, w31, w32, w33,

                                                                                                          w34, w35, w36, w37, w38, w39, w40, w41, w42, w43);

input           clk;

input   [127:0]  key;

output reg      [31:0]   w0,w1,w2,w3, w4, w5, w6, w7, w8, w9, w10, w11, w12, w13, w14, w15, w16, w17,

                                                        w18, w19, w20, w21, w22, w23, w24, w25, w26, w27, w28, w29, w30, w31, w32, w33,

                                                        w34, w35, w36, w37, w38, w39, w40, w41, w42, w43;

wire    [31:0]   subword, subword2,subword3,subword4,subword5, subword6, subword7,subword8,subword9,subword10;

wire    [7:0]    rcon, rcon2,rcon3,rcon4,rcon5, rcon6, rcon7,rcon8,rcon9,rcon10;

always @*

begin

w0 =  key[127:096];

w1 =  key[095:064];

w2 =  key[063:032];

w3 =  key[031:000];

w4 =  key[127:096]^subword^{8'h01,24'b0};

w5 =  key[095:064]^key[127:096]^subword^{8'h01,24'b0};

w6 =  key[063:032]^key[095:064]^key[127:096]^subword^{8'h01,24'b0};

w7 =  key[127:096]^key[095:064]^key[063:032]^key[031:000]^subword^{8'h01,24'b0};

w8  =  w4^subword2^{rcon2,24'b0};

w9  =  w5^w4^subword2^{rcon2,24'b0};

w10 =  w6^w5^w4^subword2^{rcon2,24'b0};

w11 =  w7^w6^w5^w4^subword2^{rcon2,24'b0};

w12  =  w8^subword3^{rcon3,24'b0};

w13  =  w8^w9^subword3^{rcon3,24'b0};

w14  =  w8^w9^w10^subword3^{rcon3,24'b0};

w15  =  w8^w9^w10^w11^subword3^{rcon3,24'b0};

w16  =  w12^subword4^{rcon4,24'b0};

w17  =  w12^w13^subword4^{rcon4,24'b0};

w18  =  w12^w13^w14^subword4^{rcon4,24'b0};

w19  =  w12^w13^w14^w15^subword4^{rcon4,24'b0};

w20  =  w16^subword5^{rcon5,24'b0};

w21  =  w16^w17^subword5^{rcon5,24'b0};

w22  =  w16^w17^w18^subword5^{rcon5,24'b0};

w23  =  w16^w17^w18^w19^subword5^{rcon5,24'b0};

w24  =  w20^subword6^{rcon6,24'b0};

w25  =  w20^w21^subword6^{rcon6,24'b0};

w26  =  w20^w21^w22^subword6^{rcon6,24'b0};

w27  =  w20^w21^w22^w23^subword6^{rcon6,24'b0};

w28  =  w24^subword7^{rcon7,24'b0};

w29  =  w24^w25^subword7^{rcon7,24'b0};

w30  =  w24^w25^w26^subword7^{rcon7,24'b0};

w31  =  w24^w25^w26^w27^subword7^{rcon7,24'b0};

w32  =  w28^subword8^{rcon8,24'b0};

w33  =  w28^w29^subword8^{rcon8,24'b0};

w34  =  w28^w29^w30^subword8^{rcon8,24'b0};

w35  =  w28^w29^w30^w31^subword8^{rcon8,24'b0};

w36  =  w32^subword9^{rcon9,24'b0};

w37  =  w32^w33^subword9^{rcon9,24'b0};

w38  =  w32^w33^w34^subword9^{rcon9,24'b0};

w39  =  w32^w33^w34^w35^subword9^{rcon9,24'b0};

w40  =  w36^subword10^{rcon10,24'b0};

w41  =  w36^w37^subword10^{rcon10,24'b0};

w42  =  w36^w37^w38^subword10^{rcon10,24'b0};

w43  =  w36^w37^w38^w39^subword10^{rcon10,24'b0};

/*$display($time,": subword5 is %h\n",subword2);

$display($time,": rcon5 is %h\n",rcon5);

$display($time,": key5 is %h, key6 is %h\n",{w16,w17,w18,w19},{w20,w21,w22,w23});*/

end

aes_rcon inst5(.clk(clk),            .out(rcon),   .out2(rcon2),

                                                                                                 .out3(rcon3), .out4(rcon4),

                                                                                                 .out5(rcon5), .out6(rcon6),

                                                                                                 .out7(rcon7), .out8(rcon8),

                                                                                                 .out9(rcon9), .out10(rcon10));

aes_sbox u0(    .a(w3[23:16]), .d(subword[31:24]));

aes_sbox u1(    .a(w3[15:08]), .d(subword[23:16]));

aes_sbox u2(    .a(w3[07:00]), .d(subword[15:08]));

aes_sbox u3(    .a(w3[31:24]), .d(subword[07:00]));

aes_sbox u4(    .a(w7[23:16]), .d(subword2[31:24]));

aes_sbox u5(    .a(w7[15:08]), .d(subword2[23:16]));

aes_sbox u6(    .a(w7[07:00]), .d(subword2[15:08]));

aes_sbox u7(    .a(w7[31:24]), .d(subword2[07:00]));

aes_sbox u8(    .a(w11[23:16]), .d(subword3[31:24]));

aes_sbox u9(    .a(w11[15:08]), .d(subword3[23:16]));

aes_sbox u10(   .a(w11[07:00]), .d(subword3[15:08]));

aes_sbox u11(   .a(w11[31:24]), .d(subword3[07:00]));

aes_sbox u12(   .a(w15[23:16]), .d(subword4[31:24]));

aes_sbox u13(   .a(w15[15:08]), .d(subword4[23:16]));

aes_sbox u14(   .a(w15[07:00]), .d(subword4[15:08]));

aes_sbox u15(   .a(w15[31:24]), .d(subword4[07:00]));

aes_sbox u16(   .a(w19[23:16]), .d(subword5[31:24]));

aes_sbox u17(   .a(w19[15:08]), .d(subword5[23:16]));

aes_sbox u18(   .a(w19[07:00]), .d(subword5[15:08]));

aes_sbox u19(   .a(w19[31:24]), .d(subword5[07:00]));

aes_sbox u20(   .a(w23[23:16]), .d(subword6[31:24]));

aes_sbox u21(   .a(w23[15:08]), .d(subword6[23:16]));

aes_sbox u22(   .a(w23[07:00]), .d(subword6[15:08]));

aes_sbox u23(   .a(w23[31:24]), .d(subword6[07:00]));

aes_sbox u24(   .a(w27[23:16]), .d(subword7[31:24]));

aes_sbox u25(   .a(w27[15:08]), .d(subword7[23:16]));

aes_sbox u26(   .a(w27[07:00]), .d(subword7[15:08]));

aes_sbox u27(   .a(w27[31:24]), .d(subword7[07:00]));

aes_sbox u28(   .a(w31[23:16]), .d(subword8[31:24]));

aes_sbox u29(   .a(w31[15:08]), .d(subword8[23:16]));

aes_sbox u30(   .a(w31[07:00]), .d(subword8[15:08]));

aes_sbox u31(   .a(w31[31:24]), .d(subword8[07:00]));

aes_sbox u32(   .a(w35[23:16]), .d(subword9[31:24]));

aes_sbox u33(   .a(w35[15:08]), .d(subword9[23:16]));

aes_sbox u34(   .a(w35[07:00]), .d(subword9[15:08]));

aes_sbox u35(   .a(w35[31:24]), .d(subword9[07:00]));

aes_sbox u36(   .a(w39[23:16]), .d(subword10[31:24]));

aes_sbox u37(   .a(w39[15:08]), .d(subword10[23:16]));

aes_sbox u38(   .a(w39[07:00]), .d(subword10[15:08]));

aes_sbox u39(   .a(w39[31:24]), .d(subword10[07:00]));

endmodule