/////////////////////////////////////////////////////////////////////////                                                             ////////  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.                                 ////////                                                             ///////////////////////////////////////////////////////////////////////////  CVS Log////  $Id: aes_key_expand_128.v,v 1.1.1.1 2002/11/09 11:22:38 rudi Exp $////  $Date: 2002/11/09 11:22:38 $//  $Revision: 1.1.1.1 $//  $Author: rudi $//  $Locker:  $//  $State: Exp $//// Change History://               $Log: aes_key_expand_128.v,v $//               Revision 1.1.1.1  2002/11/09 11:22:38  rudi//               Initial Checkin////////////`include "timescale.v"module aes_key_expand_128(clk, kld, key, wo_0, wo_1, wo_2, wo_3);input		clk;input		kld;input	[127:0]	key;output	[31:0]	wo_0, wo_1, wo_2, wo_3;reg	[31:0]	w[3:0];wire	[31:0]	tmp_w;wire	[31:0]	subword;wire	[31:0]	rcon;assign wo_0 = w[0];assign wo_1 = w[1];assign wo_2 = w[2];assign wo_3 = w[3];always @(posedge clk)	w[0] <= #1 kld ? key[127:096] : w[0]^subword^rcon;always @(posedge clk)	w[1] <= #1 kld ? key[095:064] : w[0]^w[1]^subword^rcon;always @(posedge clk)	w[2] <= #1 kld ? key[063:032] : w[0]^w[2]^w[1]^subword^rcon;always @(posedge clk)	w[3] <= #1 kld ? key[031:000] : w[0]^w[3]^w[2]^w[1]^subword^rcon;assign tmp_w = w[3];aes_sbox u0(	.a(tmp_w[23:16]), .d(subword[31:24]));aes_sbox u1(	.a(tmp_w[15:08]), .d(subword[23:16]));aes_sbox u2(	.a(tmp_w[07:00]), .d(subword[15:08]));aes_sbox u3(	.a(tmp_w[31:24]), .d(subword[07:00]));aes_rcon r0(	.clk(clk), .kld(kld), .out(rcon));endmodule