des_test_po.v

des加密算法的verilog语言的实现

/////////////////////////////////////////////////////////////////////
////                                                             ////
////  DES TEST BENCH                                             ////
////                                                             ////
////  Author: Rudolf Usselmann                                   ////
////          [e-mail]                                      ////
////                                                             ////
/////////////////////////////////////////////////////////////////////
////                                                             ////
//// Copyright (C) 2001 Rudolf Usselmann                         ////
////                    [e-mail]                            ////
////                                                             ////
//// 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[512:0];
reg	[191:0]	tmp;
reg	[3:0]	cnt;
integer		select;
wire	[63:0]	desOut;
wire	[63:0]	des_in;
wire	[63:0]	exp_out_d;
wire	[55:0]	key;
integer		ZZZ;
reg	[63:0]	des_exp[0:17];
integer		decrypt;

integer	i;

always @(posedge clk)
	des_exp[0] <= #1 exp_out_d;

always @(posedge clk)
	for(i=0;i<17;i=i+1)
		des_exp[i+1] <= #1 des_exp[i];
		
initial
   begin
	$display("\n\n");
	$display("*********************************************************");
	$display("* Performance 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;
	ZZZ=0;

	//           Key              Test data        Out data
	x[ZZZ]=192'h10316E028C8F3B4A_0000000000000000_82DCBAFBDEAB6602;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_95F8A5E5DD31D900_8000000000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_DD7F121CA5015619_4000000000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_2E8653104F3834EA_2000000000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_4BD388FF6CD81D4F_1000000000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_20B9E767B2FB1456_0800000000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_55579380D77138EF_0400000000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_6CC5DEFAAF04512F_0200000000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0D9F279BA5D87260_0100000000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_D9031B0271BD5A0A_0080000000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_424250B37C3DD951_0040000000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_B8061B7ECD9A21E5_0020000000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_F15D0F286B65BD28_0010000000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_ADD0CC8D6E5DEBA1_0008000000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_E6D5F82752AD63D1_0004000000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_ECBFE3BD3F591A5E_0002000000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_F356834379D165CD_0001000000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_2B9F982F20037FA9_0000800000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_889DE068A16F0BE6_0000400000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_E19E275D846A1298_0000200000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_329A8ED523D71AEC_0000100000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_E7FCE22557D23C97_0000080000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_12A9F5817FF2D65D_0000040000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_A484C3AD38DC9C19_0000020000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_FBE00A8A1EF8AD72_0000010000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_750D079407521363_0000008000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_64FEED9C724C2FAF_0000004000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_F02B263B328E2B60_0000002000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_9D64555A9A10B852_0000001000000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_D106FF0BED5255D7_0000000800000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_E1652C6B138C64A5_0000000400000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_E428581186EC8F46_0000000200000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_AEB5F5EDE22D1A36_0000000100000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_E943D7568AEC0C5C_0000000080000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_DF98C8276F54B04B_0000000040000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_B160E4680F6C696F_0000000020000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_FA0752B07D9C4AB8_0000000010000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_CA3A2B036DBC8502_0000000008000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_5E0905517BB59BCF_0000000004000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_814EEB3B91D90726_0000000002000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_4D49DB1532919C9F_0000000001000000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_25EB5FC3F8CF0621_0000000000800000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_AB6A20C0620D1C6F_0000000000400000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_79E90DBC98F92CCA_0000000000200000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_866ECEDD8072BB0E_0000000000100000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_8B54536F2F3E64A8_0000000000080000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_EA51D3975595B86B_0000000000040000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_CAFFC6AC4542DE31_0000000000020000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_8DD45A2DDF90796C_0000000000010000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_1029D55E880EC2D0_0000000000008000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_5D86CB23639DBEA9_0000000000004000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_1D1CA853AE7C0C5F_0000000000002000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_CE332329248F3228_0000000000001000;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_8405D1ABE24FB942_0000000000000800;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_E643D78090CA4207_0000000000000400;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_48221B9937748A23_0000000000000200;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_DD7C0BBD61FAFD54_0000000000000100;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_2FBC291A570DB5C4_0000000000000080;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_E07C30D7E4E26E12_0000000000000040;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0953E2258E8E90A1_0000000000000020;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_5B711BC4CEEBF2EE_0000000000000010;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_CC083F1E6D9E85F6_0000000000000008;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_D2FD8867D50D2DFE_0000000000000004;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_06E7EA22CE92708F_0000000000000002;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_166B40B44ABA4BD6_0000000000000001;	ZZZ=ZZZ+1;
	
	x[ZZZ]=192'h0101010101010101_8000000000000000_95F8A5E5DD31D900;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_4000000000000000_DD7F121CA5015619;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_2000000000000000_2E8653104F3834EA;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_1000000000000000_4BD388FF6CD81D4F;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0800000000000000_20B9E767B2FB1456;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0400000000000000_55579380D77138EF;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0200000000000000_6CC5DEFAAF04512F;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0100000000000000_0D9F279BA5D87260;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0080000000000000_D9031B0271BD5A0A;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0040000000000000_424250B37C3DD951;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0020000000000000_B8061B7ECD9A21E5;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0010000000000000_F15D0F286B65BD28;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0008000000000000_ADD0CC8D6E5DEBA1;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0004000000000000_E6D5F82752AD63D1;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0002000000000000_ECBFE3BD3F591A5E;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0001000000000000_F356834379D165CD;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000800000000000_2B9F982F20037FA9;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000400000000000_889DE068A16F0BE6;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000200000000000_E19E275D846A1298;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000100000000000_329A8ED523D71AEC;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000080000000000_E7FCE22557D23C97;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000040000000000_12A9F5817FF2D65D;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000020000000000_A484C3AD38DC9C19;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000010000000000_FBE00A8A1EF8AD72;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000008000000000_750D079407521363;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000004000000000_64FEED9C724C2FAF;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000002000000000_F02B263B328E2B60;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000001000000000_9D64555A9A10B852;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000800000000_D106FF0BED5255D7;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000400000000_E1652C6B138C64A5;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000200000000_E428581186EC8F46;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000100000000_AEB5F5EDE22D1A36;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000080000000_E943D7568AEC0C5C;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000040000000_DF98C8276F54B04B;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000020000000_B160E4680F6C696F;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000010000000_FA0752B07D9C4AB8;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000008000000_CA3A2B036DBC8502;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000004000000_5E0905517BB59BCF;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000002000000_814EEB3B91D90726;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000001000000_4D49DB1532919C9F;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000000800000_25EB5FC3F8CF0621;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000000400000_AB6A20C0620D1C6F;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000000200000_79E90DBC98F92CCA;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000000100000_866ECEDD8072BB0E;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000000080000_8B54536F2F3E64A8;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000000040000_EA51D3975595B86B;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000000020000_CAFFC6AC4542DE31;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000000010000_8DD45A2DDF90796C;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000000008000_1029D55E880EC2D0;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000000004000_5D86CB23639DBEA9;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000000002000_1D1CA853AE7C0C5F;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000000001000_CE332329248F3228;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000000000800_8405D1ABE24FB942;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000000000400_E643D78090CA4207;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000000000200_48221B9937748A23;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000000000100_DD7C0BBD61FAFD54;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000000000080_2FBC291A570DB5C4;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000000000040_E07C30D7E4E26E12;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000000000020_0953E2258E8E90A1;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000000000010_5B711BC4CEEBF2EE;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000000000008_CC083F1E6D9E85F6;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000000000004_D2FD8867D50D2DFE;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000000000002_06E7EA22CE92708F;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010101010101_0000000000000001_166B40B44ABA4BD6;	ZZZ=ZZZ+1;
	
	x[ZZZ]=192'h8001010101010101_0000000000000000_95A8D72813DAA94D;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h4001010101010101_0000000000000000_0EEC1487DD8C26D5;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h2001010101010101_0000000000000000_7AD16FFB79C45926;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h1001010101010101_0000000000000000_D3746294CA6A6CF3;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0801010101010101_0000000000000000_809F5F873C1FD761;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0401010101010101_0000000000000000_C02FAFFEC989D1FC;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0201010101010101_0000000000000000_4615AA1D33E72F10;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0180010101010101_0000000000000000_2055123350C00858;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0140010101010101_0000000000000000_DF3B99D6577397C8;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0120010101010101_0000000000000000_31FE17369B5288C9;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0110010101010101_0000000000000000_DFDD3CC64DAE1642;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0108010101010101_0000000000000000_178C83CE2B399D94;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0104010101010101_0000000000000000_50F636324A9B7F80;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0102010101010101_0000000000000000_A8468EE3BC18F06D;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101800101010101_0000000000000000_A2DC9E92FD3CDE92;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101400101010101_0000000000000000_CAC09F797D031287;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101200101010101_0000000000000000_90BA680B22AEB525;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101100101010101_0000000000000000_CE7A24F350E280B6;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101080101010101_0000000000000000_882BFF0AA01A0B87;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101040101010101_0000000000000000_25610288924511C2;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101020101010101_0000000000000000_C71516C29C75D170;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101018001010101_0000000000000000_5199C29A52C9F059;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101014001010101_0000000000000000_C22F0A294A71F29F;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101012001010101_0000000000000000_EE371483714C02EA;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101011001010101_0000000000000000_A81FBD448F9E522F;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010801010101_0000000000000000_4F644C92E192DFED;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010401010101_0000000000000000_1AFA9A66A6DF92AE;	ZZZ=ZZZ+1;
	x[ZZZ]=192'h0101010201010101_0000000000000000_B3C1CC715CB879D8;	ZZZ=ZZZ+1;