Subversion Repositories gost28147-89

`timescale 1ns / 1ps
 
module gost89_pipelined_ecb_tb;
  reg clk;
  always
    #1 clk = ~clk;
 
  reg  [511:0] sbox = 512'h 4a92d80e6b1c7f53eb4c6dfa23810759581da342efc7609b7da1089fe46cb2536c715fd84a9e03b24ba0721d36859cfedb413f590ae7682c1fd057a4923e6b8c;
  reg  [255:0] key  = 256'h 0475f6e05038fbfad2c7c390edb3ca3d1547124291ae1e8a2f79cd9ed2bcefbd;
  reg  [63:0]  in_e, in_d;
  wire [63:0]  out_e, out_d;
 
  gost89_pipelined_ecb_encrypt
    pipelined_ecb_encrypt(clk, sbox, key, in_e, out_e);
  gost89_pipelined_ecb_decrypt
    pipelined_ecb_decrypt(clk, sbox, key, in_d, out_d);
 
/*
ECB mode:
d5a8a608f4f115b4 389eb44a391474c4 379e59c3c96bb2ab 3f38ae3b8f541361 
d658a36b11cf46eb 7aea1ed18e604249 c35472c91cd78640 3b5834a000fba066 
*/
 
  initial begin
    $dumpfile("gost89_pipelined_ecb_tb.vcd");
    $dumpvars(0, gost89_pipelined_ecb_tb);
 
    clk = 0;
 
// One vector
    #1;
    in_e = 64'h d5a8a608f4f115b4; in_d = 64'h d658a36b11cf46eb;
    #64;
    if (out_e !== 64'h d658a36b11cf46eb || out_d !== 64'h d5a8a608f4f115b4)
      begin $display("E"); $finish; end
    $display("OK");
 
// Three vectors
    #4
    in_e = 64'h 389eb44a391474c4; in_d = 64'h 7aea1ed18e604249;
    #2;
    in_e = 64'h 379e59c3c96bb2ab; in_d = 64'h c35472c91cd78640;
    #8;
    in_e = 64'h 3f38ae3b8f541361; in_d = 64'h 3b5834a000fba066;
    #54;
    if (out_e !== 64'h 7aea1ed18e604249 || out_d !== 64'h 389eb44a391474c4)
      begin $display("E"); $finish; end
    $display("OK");
    #2;
    if (out_e !== 64'h c35472c91cd78640 || out_d !== 64'h 379e59c3c96bb2ab)
      begin $display("E"); $finish; end
    $display("OK");
    #8;
    if (out_e !== 64'h 3b5834a000fba066 || out_d !== 64'h 3f38ae3b8f541361)
      begin $display("E"); $finish; end
    $display("OK");
 
    #10;
    $display("All passed");
    $finish;
  end
endmodule