Subversion Repositories gost28147-89

`timescale 1ns / 1ps

module gost89_cfb_tb;

  reg clk;

  always

    #1 clk = ~clk;

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

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

  wire mode_e = 0, mode_d = 1;

  reg  reset;

  reg  load_data;

  reg  [63:0] in_e1, in_e2, in_d1, in_d2;

  wire [63:0] out_e1, out_e2, out_d1, out_d2;

  wire busy_e1, busy_e2, busy_d1, busy_d2;

  gost89_cfb

    cfb1(clk, reset, mode_e, load_data, sbox, key, in_e1, out_e1, busy_e1),

    cfb2(clk, reset, mode_d, load_data, sbox, key, in_d1, out_d1, busy_d1);

  gost89_cfb_encrypt

    cfb_encrypt1(clk, reset, load_data, sbox, key, in_e2, out_e2, busy_e2);

  gost89_cfb_decrypt

    cfb_decrypt1(clk, reset, load_data, sbox, key, in_d2, out_d2, busy_d2);

/*

CFB mode (gamma: 6aa0379517bb57af):

8d437364581af0da 12911df3eddcc0fb b73369c4b5cf3e7d

54826055ab718bc7 585ddacf1a45e472 a3ec5a4eb4359095

CFB mode (gamma: fa5679a45f118aed):

419677a6eff07f2f 4f40b75be8e64341 cd02e6ef903d27da

27d3e781cc4fcf43 9c7480fb9ea9df69 458ff5081b0fd688

*/

  initial begin

    $dumpfile("gost89_cfb_tb.vcd");

    $dumpvars(0, gost89_cfb_tb);

    clk = 0;

    reset = 0;

    load_data = 0;

// Normal usage

    #1;

    in_e1 = 64'h 6aa0379517bb57af; in_d1 = 64'h 6aa0379517bb57af;

    in_e2 = 64'h 6aa0379517bb57af; in_d2 = 64'h 6aa0379517bb57af;

    reset = 1;

    #2;

    reset = 0;

    in_e1 = 64'h 8d437364581af0da; in_d1 = 64'h 54826055ab718bc7;

    in_e2 = 64'h 8d437364581af0da; in_d2 = 64'h 54826055ab718bc7;

    load_data = 1;

    #2;

    load_data = 0;

    #68;

    if (out_e1 != out_e2 || out_e2 != 64'h 54826055ab718bc7 || out_d1 != out_d2 || out_d2 != 64'h 8d437364581af0da)

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

    $display("OK");

    in_e1 = 64'h 12911df3eddcc0fb; in_d1 = 64'h 585ddacf1a45e472;

    in_e2 = 64'h 12911df3eddcc0fb; in_d2 = 64'h 585ddacf1a45e472;

    load_data = 1;

    #2;

    load_data = 0;

    #68;

    if (out_e1 != out_e2 || out_e2 != 64'h 585ddacf1a45e472 || out_d1 != out_d2 || out_d2 != 64'h 12911df3eddcc0fb)

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

    $display("OK");

// Change gamma

    #2;

    in_e1 = 64'h fa5679a45f118aed; in_d1 = 64'h fa5679a45f118aed;

    in_e2 = 64'h fa5679a45f118aed; in_d2 = 64'h fa5679a45f118aed;

    reset = 1;

    #2;

    reset = 0;

    in_e1 = 64'h 419677a6eff07f2f; in_d1 = 64'h 27d3e781cc4fcf43;

    in_e2 = 64'h 419677a6eff07f2f; in_d2 = 64'h 27d3e781cc4fcf43;

    load_data = 1;

    #2;

    load_data = 0;

    #68;

    if (out_e1 != out_e2 || out_e2 != 64'h 27d3e781cc4fcf43 || out_d1 != out_d2 || out_d2 != 64'h 419677a6eff07f2f)

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

    $display("OK");

// Reset in processing

    #2;

    in_e1 = 64'h 6aa0379517bb57af; in_d1 = 64'h 6aa0379517bb57af;

    in_e2 = 64'h 6aa0379517bb57af; in_d2 = 64'h 6aa0379517bb57af;

    reset = 1;

    #2;

    reset = 0;

    in_e1 = 64'h 8d437364581af0da; in_d1 = 64'h 54826055ab718bc7;

    in_e2 = 64'h 8d437364581af0da; in_d2 = 64'h 54826055ab718bc7;

    load_data = 1;

    #2;

    load_data = 0;

    #10;

    in_e1 = 64'h fa5679a45f118aed; in_d1 = 64'h fa5679a45f118aed;

    in_e2 = 64'h fa5679a45f118aed; in_d2 = 64'h fa5679a45f118aed;

    reset = 1;

    #2;

    reset = 0;

    in_e1 = 64'h 419677a6eff07f2f; in_d1 = 64'h 27d3e781cc4fcf43;

    in_e2 = 64'h 419677a6eff07f2f; in_d2 = 64'h 27d3e781cc4fcf43;

    load_data = 1;

    #2;

    load_data = 0;

    #68;

    if (out_e1 != out_e2 || out_e2 != 64'h 27d3e781cc4fcf43 || out_d1 != out_d2 || out_d2 != 64'h 419677a6eff07f2f)

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

    $display("OK");

    #10;

    $display("All passed");

    $finish;

  end

endmodule