Subversion Repositories gost28147-89

`timescale 1ns / 1ps

module gost89_mac_tb;

  reg clk;

  always

    #1 clk = ~clk;

  reg  [511:0] sbox = 512'h 4a92d80e6b1c7f53eb4c6dfa23810759581da342efc7609b7da1089fe46cb2536c715fd84a9e03b24ba0721d36859cfedb413f590ae7682c1fd057a4923e6b8c;

  reg  [255:0] key  = 256'h 0475f6e05038fbfad2c7c390edb3ca3d1547124291ae1e8a2f79cd9ed2bcefbd;

  reg          reset, load_data;

  reg  [63:0]  in;

  wire [31:0]  out;

  wire         busy;

  wire [31:0]  result = out[31:0];

  gost89_mac mac1(clk, reset, load_data, sbox, key, in, out, busy);

  initial begin

    $dumpfile("gost89_mac_tb.vcd");

    $dumpvars(0, gost89_mac_tb);

    clk       = 0;

    reset     = 0;

    load_data = 0;

/* Normal usage

4b657e2ef0d2dfa2 af36b591bbd96c85 3569faad243d6fa4

b4a50c2c00000000

*/

    #1

    reset = 1;

    #2

    reset = 0;

    #2

    in = 64'h 4b657e2ef0d2dfa2;

    load_data = 1;

    #2;

    load_data = 0;

    #34;

    in = 64'h af36b591bbd96c85;

    load_data = 1;

    #2;

    load_data = 0;

    #34;

    in = 64'h 3569faad243d6fa4;

    load_data = 1;

    #2;

    load_data = 0;

    #34;

    if (result !== 32'h b4a50c2c)

      begin $display("E"); $finish; end

    $display("OK");

/* Reset in processing

845fbd32d185bbf2 387172424b8518a3 ba95eadaa69ed200

7acc77a200000000

*/

    reset = 1;

    #2

    reset = 0;

    #2

    in = 64'h 4b657e2ef0d2dfa2;

    load_data = 1;

    #2;

    load_data = 0;

    #10

    reset = 1;

    #2

    reset = 0;

    #4

    in = 64'h 845fbd32d185bbf2;

    load_data = 1;

    #2;

    load_data = 0;

    #34;

    in = 64'h 387172424b8518a3;

    load_data = 1;

    #2;

    load_data = 0;

    #34;

    in = 64'h ba95eadaa69ed200;

    load_data = 1;

    #2;

    load_data = 0;

    #34;

    if (result !== 32'h 7acc77a2)

      begin $display("E"); $finish; end

    $display("OK");

/* Start with reset

ba3d8a2c8fe0307a c1fe2bf562c45b53 c066169b334014e0

c9541f2800000000

*/

    #2

    in = 64'h ba3d8a2c8fe0307a;

    load_data = 1;

    reset = 1;

    #2;

    load_data = 0;

    reset = 0;

    #34;

    in = 64'h c1fe2bf562c45b53;

    load_data = 1;

    #2;

    load_data = 0;

    #34;

    in = 64'h c066169b334014e0;

    load_data = 1;

    #2;

    load_data = 0;

    #34;

    if (result !== 32'h c9541f28)

      begin $display("E"); $finish; end

    $display("OK");

    #10;

    $display("All passed");

    $finish;

  end

endmodule