Subversion Repositories des

/////////////////////////////////////////////////////////////////////
////                                                             ////
////  DES TEST BENCH                                             ////
////                                                             ////
////  Author: Rudolf Usselmann                                   ////
////          rudi@asics.ws                                      ////
////                                                             ////
/////////////////////////////////////////////////////////////////////
////                                                             ////
//// Copyright (C) 2001 Rudolf Usselmann                         ////
////                    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.                                 ////
////                                                             ////
/////////////////////////////////////////////////////////////////////
 
module test;
 
reg		clk;
reg	[191:0]	x[128:0];
 
reg	[191:0]	tmp;
 
reg	[3:0]	cnt;
integer		select;
integer		decrypt;
wire	[63:0]	desOut;
wire	[63:0]	des_in;
wire	[63:0]	exp_out;
wire	[55:0]	key;
 
initial
   begin
	$display("\n\n");
	$display("*********************************************************");
	$display("* Area Optimized DES core simulation started ...        *");
	$display("*********************************************************");
	$display("\n");
 
`ifdef WAVES
  	$shm_open("waves");
	$shm_probe("AS",test,"AS");
	$display("INFO: Signal dump enabled ...\n\n");
`endif
 
	clk=0;
	//           Key              Test data        Out data
	x[00]=192'h8001010101010101_0000000000000000_95A8D72813DAA94D;
	x[01]=192'h4001010101010101_0000000000000000_0EEC1487DD8C26D5;
	x[02]=192'h2001010101010101_0000000000000000_7AD16FFB79C45926;
	x[03]=192'h1001010101010101_0000000000000000_D3746294CA6A6CF3;
	x[04]=192'h0801010101010101_0000000000000000_809F5F873C1FD761;
	x[05]=192'h0401010101010101_0000000000000000_C02FAFFEC989D1FC;
	x[06]=192'h0201010101010101_0000000000000000_4615AA1D33E72F10;
	x[07]=192'h0180010101010101_0000000000000000_2055123350C00858;
	x[08]=192'h0140010101010101_0000000000000000_DF3B99D6577397C8;
	x[09]=192'h0120010101010101_0000000000000000_31FE17369B5288C9;
	x[10]=192'h0110010101010101_0000000000000000_DFDD3CC64DAE1642;
	x[11]=192'h0108010101010101_0000000000000000_178C83CE2B399D94;
	x[12]=192'h0104010101010101_0000000000000000_50F636324A9B7F80;
	x[13]=192'h0102010101010101_0000000000000000_A8468EE3BC18F06D;
	x[14]=192'h0101800101010101_0000000000000000_A2DC9E92FD3CDE92;
	x[15]=192'h0101400101010101_0000000000000000_CAC09F797D031287;
	x[16]=192'h0101200101010101_0000000000000000_90BA680B22AEB525;
	x[17]=192'h0101100101010101_0000000000000000_CE7A24F350E280B6;
	x[18]=192'h0101080101010101_0000000000000000_882BFF0AA01A0B87;
	x[19]=192'h0101040101010101_0000000000000000_25610288924511C2;
	x[20]=192'h0101020101010101_0000000000000000_C71516C29C75D170;
	x[21]=192'h0101018001010101_0000000000000000_5199C29A52C9F059;
	x[22]=192'h0101014001010101_0000000000000000_C22F0A294A71F29F;
	x[23]=192'h0101012001010101_0000000000000000_EE371483714C02EA;
	x[24]=192'h0101011001010101_0000000000000000_A81FBD448F9E522F;
	x[25]=192'h0101010801010101_0000000000000000_4F644C92E192DFED;
	x[26]=192'h0101010401010101_0000000000000000_1AFA9A66A6DF92AE;
	x[27]=192'h0101010201010101_0000000000000000_B3C1CC715CB879D8;
	x[28]=192'h0101010180010101_0000000000000000_19D032E64AB0BD8B;
	x[29]=192'h0101010140010101_0000000000000000_3CFAA7A7DC8720DC;
	x[30]=192'h0101010120010101_0000000000000000_B7265F7F447AC6F3;
	x[31]=192'h0101010110010101_0000000000000000_9DB73B3C0D163F54;
	x[32]=192'h0101010108010101_0000000000000000_8181B65BABF4A975;
	x[33]=192'h0101010104010101_0000000000000000_93C9B64042EAA240;
	x[34]=192'h0101010102010101_0000000000000000_5570530829705592;
	x[35]=192'h0101010101800101_0000000000000000_8638809E878787A0;
	x[36]=192'h0101010101400101_0000000000000000_41B9A79AF79AC208;
	x[37]=192'h0101010101200101_0000000000000000_7A9BE42F2009A892;
	x[38]=192'h0101010101100101_0000000000000000_29038D56BA6D2745;
	x[39]=192'h0101010101080101_0000000000000000_5495C6ABF1E5DF51;
	x[40]=192'h0101010101040101_0000000000000000_AE13DBD561488933;
	x[41]=192'h0101010101020101_0000000000000000_024D1FFA8904E389;
	x[42]=192'h0101010101018001_0000000000000000_D1399712F99BF02E;
	x[43]=192'h0101010101014001_0000000000000000_14C1D7C1CFFEC79E;
	x[44]=192'h0101010101012001_0000000000000000_1DE5279DAE3BED6F;
	x[45]=192'h0101010101011001_0000000000000000_E941A33F85501303;
	x[46]=192'h0101010101010801_0000000000000000_DA99DBBC9A03F379;
	x[47]=192'h0101010101010401_0000000000000000_B7FC92F91D8E92E9;
	x[48]=192'h0101010101010201_0000000000000000_AE8E5CAA3CA04E85;
	x[49]=192'h0101010101010180_0000000000000000_9CC62DF43B6EED74;
	x[50]=192'h0101010101010140_0000000000000000_D863DBB5C59A91A0;
	x[51]=192'h0101010101010120_0000000000000000_A1AB2190545B91D7;
	x[52]=192'h0101010101010110_0000000000000000_0875041E64C570F7;
	x[53]=192'h0101010101010108_0000000000000000_5A594528BEBEF1CC;
	x[54]=192'h0101010101010104_0000000000000000_FCDB3291DE21F0C0;
	x[55]=192'h0101010101010102_0000000000000000_869EFD7F9F265A09;
	x[56]=192'h0000000000000000_0000000000000000_8CA64DE9C1B123A7;
	x[57]=192'hFFFFFFFFFFFFFFFF_FFFFFFFFFFFFFFFF_7359B2163E4EDC58;
	x[58]=192'h3000000000000000_1000000000000001_958E6E627A05557B;
	x[59]=192'h1111111111111111_1111111111111111_F40379AB9E0EC533;
	x[60]=192'h0123456789ABCDEF_1111111111111111_17668DFC7292532D;
	x[61]=192'h1111111111111111_0123456789ABCDEF_8A5AE1F81AB8F2DD;
	x[62]=192'h0000000000000000_0000000000000000_8CA64DE9C1B123A7;
	x[63]=192'hFEDCBA9876543210_0123456789ABCDEF_ED39D950FA74BCC4;
	x[64]=192'h7CA110454A1A6E57_01A1D6D039776742_690F5B0D9A26939B;
	x[65]=192'h0131D9619DC1376E_5CD54CA83DEF57DA_7A389D10354BD271;
	x[66]=192'h07A1133E4A0B2686_0248D43806F67172_868EBB51CAB4599A;
	x[67]=192'h3849674C2602319E_51454B582DDF440A_7178876E01F19B2A;
	x[68]=192'h04B915BA43FEB5B6_42FD443059577FA2_AF37FB421F8C4095;
	x[69]=192'h0113B970FD34F2CE_059B5E0851CF143A_86A560F10EC6D85B;
	x[70]=192'h0170F175468FB5E6_0756D8E0774761D2_0CD3DA020021DC09;
	x[71]=192'h43297FAD38E373FE_762514B829BF486A_EA676B2CB7DB2B7A;
	x[72]=192'h07A7137045DA2A16_3BDD119049372802_DFD64A815CAF1A0F;
	x[73]=192'h04689104C2FD3B2F_26955F6835AF609A_5C513C9C4886C088;
	x[74]=192'h37D06BB516CB7546_164D5E404F275232_0A2AEEAE3FF4AB77;
	x[75]=192'h1F08260D1AC2465E_6B056E18759F5CCA_EF1BF03E5DFA575A;
	x[76]=192'h584023641ABA6176_004BD6EF09176062_88BF0DB6D70DEE56;
	x[77]=192'h025816164629B007_480D39006EE762F2_A1F9915541020B56;
	x[78]=192'h49793EBC79B3258F_437540C8698F3CFA_6FBF1CAFCFFD0556;
	x[79]=192'h4FB05E1515AB73A7_072D43A077075292_2F22E49BAB7CA1AC;
	x[80]=192'h49E95D6D4CA229BF_02FE55778117F12A_5A6B612CC26CCE4A;
	x[81]=192'h018310DC409B26D6_1D9D5C5018F728C2_5F4C038ED12B2E41;
	x[82]=192'h1C587F1C13924FEF_305532286D6F295A_63FAC0D034D9F793;
	x[83]=192'h0101010101010101_0123456789ABCDEF_617B3A0CE8F07100;
	x[84]=192'h1F1F1F1F0E0E0E0E_0123456789ABCDEF_DB958605F8C8C606;
	x[85]=192'hE0FEE0FEF1FEF1FE_0123456789ABCDEF_EDBFD1C66C29CCC7;
	x[86]=192'h0000000000000000_FFFFFFFFFFFFFFFF_355550B2150E2451;
	x[87]=192'hFFFFFFFFFFFFFFFF_0000000000000000_CAAAAF4DEAF1DBAE;
	x[88]=192'h0123456789ABCDEF_0000000000000000_D5D44FF720683D0D;
	x[89]=192'hFEDCBA9876543210_FFFFFFFFFFFFFFFF_2A2BB008DF97C2F2;
 
	decrypt = 0;
	@(posedge clk);
 
	$display("");
	$display("**************************************");
	$display("* Starting DES Test ...              *");
	$display("**************************************");
	$display("");
 
	for(decrypt=0;decrypt<2;decrypt=decrypt+1)
	begin
	if(decrypt)	$display("Running Encrypt test ...\n");
	else		$display("Running Decrypt test ...\n");
 
	for(select=0;select<90;select=select+1)
	   begin
	   	tmp=x[select];
		for(cnt=0;cnt<15;cnt=cnt+1)	@(posedge clk);
 
		#10;
		//if(desOut !== exp_out)
		if((exp_out !== desOut) | (^exp_out===1'bx) | (^desOut===1'bx)) 
 
			$display("ERROR: (%0d) Expected %x Got %x", select, exp_out, desOut);
		 //else
		   //	$display("PASS : (%0d) Expected %x Got %x", select, exp_out, desOut);
 
		@(posedge clk);
	   end
	end
 
	$display("");
	$display("**************************************");
	$display("* DES Test done ...                  *");
	$display("**************************************");
	$display("");
 
	$finish;
   end // end of innitial
 
always #100 clk=~clk;
 
assign #1 key =	{tmp[191:185],tmp[183:177],tmp[175:169],tmp[167:161],
			tmp[159:153],tmp[151:145],tmp[143:137],tmp[135:129]};
 
assign #1 des_in = decrypt ? tmp[63:0]   : tmp[127:64];
assign   exp_out = decrypt ? tmp[127:64] : tmp[63:0];
 
des u0( .clk(		clk		),
	.desOut(	desOut		),
	.desIn(		des_in		),
	.key(		key		),
	.roundSel(	cnt		),
	.decrypt(	decrypt[0]	)
	);
 
endmodule