OpenCores
URL https://opencores.org/ocsvn/gost28147/gost28147/trunk

Subversion Repositories gost28147

[/] [gost28147/] [trunk/] [rtl/] [verilog/] [gost28147-89.sv] - Blame information for rev 2

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 2 doka 
// $Id:  $ From Russia with love
2 
 
3 
/////////////////////////////////////////////////////////////////////
4 
//   This file is part of the GOST 28147-89 CryptoCore project     //
5 
//                                                                 //
6 
//   Copyright (c) 2014 Dmitry Murzinov (kakstattakim@gmail.com)   //
7 
/////////////////////////////////////////////////////////////////////
8 
 
9 
`timescale 1ns / 100ps
10 
 
11 
//`define GOST_R_3411_TESTPARAM (1)
12 
//`define GOST_R_3411_CRYPTOPRO (1)
13 
//`define GOST_R_3411_BOTH (1)
14 
 
15 
module gost_28147_89 (clk, rst, mode, select, load, done, kload, key, pdata, cdata);
16 
  input  clk;    // Input clock signal for synchronous design
17 
  input  rst;    // Syncronous Reset input
18 
  input  mode;   // 0 - encrypt, 1 - decrypt
19 
  input  select; // if GOST_R_3411_BOTH defined: 0 - Using the GOST R 34.11-94 TestParameter S-boxes; 1 - Using the CryptoPro S-boxes
20 
  input  load;   // load plain text and start cipher cycles
21 
  output done;   // cipher text ready for output read
22 
  input  kload;  // load cipher key
23 
  input [255:0] key;   // cipher key input
24 
  input  [63:0] pdata; //  plain text input
25 
  output [63:0] cdata; // cipher text output
26 
 
27 
`ifdef GOST_R_3411_TESTPARAM
28 
// Using the GOST R 34.11-94 TestParameter S-boxes
29 
const logic [3:0] S1 [0:15] = {  4, 10,  9,  2, 13,  8,  0, 14,  6, 11,  1, 12,  7, 15,  5,  3};
30 
const logic [3:0] S2 [0:15] = { 14, 11,  4, 12,  6, 13, 15, 10,  2,  3,  8,  1,  0,  7,  5,  9};
31 
const logic [3:0] S3 [0:15] = {  5,  8,  1, 13, 10,  3,  4,  2, 14, 15, 12,  7,  6,  0,  9, 11};
32 
const logic [3:0] S4 [0:15] = {  7, 13, 10,  1,  0,  8,  9, 15, 14,  4,  6, 12, 11,  2,  5,  3};
33 
const logic [3:0] S5 [0:15] = {  6, 12,  7,  1,  5, 15, 13,  8,  4, 10,  9, 14,  0,  3, 11,  2};
34 
const logic [3:0] S6 [0:15] = {  4, 11, 10,  0,  7,  2,  1, 13,  3,  6,  8,  5,  9, 12, 15, 14};
35 
const logic [3:0] S7 [0:15] = { 13, 11,  4,  1,  3, 15,  5,  9,  0, 10, 14,  7,  6,  8,  2, 12};
36 
const logic [3:0] S8 [0:15] = {  1, 15, 13,  0,  5,  7, 10,  4,  9,  2,  3, 14,  6, 11,  8, 12};
37 
`endif
38 
`ifdef GOST_R_3411_CRYPTOPRO
39 
// Using the CryptoPro S-boxes
40 
const logic [3:0] S1 [0:15] = { 10,  4,  5,  6,  8,  1,  3,  7, 13, 12, 14,  0,  9,  2, 11, 15};
41 
const logic [3:0] S2 [0:15] = {  5, 15,  4,  0,  2, 13, 11,  9,  1,  7,  6,  3, 12, 14, 10,  8};
42 
const logic [3:0] S3 [0:15] = {  7, 15, 12, 14,  9,  4,  1,  0,  3, 11,  5,  2,  6, 10,  8, 13};
43 
const logic [3:0] S4 [0:15] = {  4, 10,  7, 12,  0, 15,  2,  8, 14,  1,  6,  5, 13, 11,  9,  3};
44 
const logic [3:0] S5 [0:15] = {  7,  6,  4, 11,  9, 12,  2, 10,  1,  8,  0, 14, 15, 13,  3,  5};
45 
const logic [3:0] S6 [0:15] = {  7,  6,  2,  4, 13,  9, 15,  0, 10,  1,  5, 11,  8, 14, 12,  3};
46 
const logic [3:0] S7 [0:15] = { 13, 14,  4,  1,  7,  0,  5, 10,  3, 12,  8, 15,  6,  2,  9, 11};
47 
const logic [3:0] S8 [0:15] = {  1,  3, 10,  9,  5, 11,  4, 15,  8,  6,  7, 14, 13,  0,  2, 12};
48 
`endif
49 
`ifdef GOST_R_3411_BOTH
50 
// Using both parameter's Set S-Boxes: GOST R 34.11-94 TestParameter and CryptoPro
51 
// GOST R 34.11-94 TestParameter S-boxes
52 
const logic [3:0] S1_TESTPARAM [0:15] = {  4, 10,  9,  2, 13,  8,  0, 14,  6, 11,  1, 12,  7, 15,  5,  3};
53 
const logic [3:0] S2_TESTPARAM [0:15] = { 14, 11,  4, 12,  6, 13, 15, 10,  2,  3,  8,  1,  0,  7,  5,  9};
54 
const logic [3:0] S3_TESTPARAM [0:15] = {  5,  8,  1, 13, 10,  3,  4,  2, 14, 15, 12,  7,  6,  0,  9, 11};
55 
const logic [3:0] S4_TESTPARAM [0:15] = {  7, 13, 10,  1,  0,  8,  9, 15, 14,  4,  6, 12, 11,  2,  5,  3};
56 
const logic [3:0] S5_TESTPARAM [0:15] = {  6, 12,  7,  1,  5, 15, 13,  8,  4, 10,  9, 14,  0,  3, 11,  2};
57 
const logic [3:0] S6_TESTPARAM [0:15] = {  4, 11, 10,  0,  7,  2,  1, 13,  3,  6,  8,  5,  9, 12, 15, 14};
58 
const logic [3:0] S7_TESTPARAM [0:15] = { 13, 11,  4,  1,  3, 15,  5,  9,  0, 10, 14,  7,  6,  8,  2, 12};
59 
const logic [3:0] S8_TESTPARAM [0:15] = {  1, 15, 13,  0,  5,  7, 10,  4,  9,  2,  3, 14,  6, 11,  8, 12};
60 
// CryptoPro S-boxes
61 
const logic [3:0] S1_CRYPTOPRO [0:15] = { 10,  4,  5,  6,  8,  1,  3,  7, 13, 12, 14,  0,  9,  2, 11, 15};
62 
const logic [3:0] S2_CRYPTOPRO [0:15] = {  5, 15,  4,  0,  2, 13, 11,  9,  1,  7,  6,  3, 12, 14, 10,  8};
63 
const logic [3:0] S3_CRYPTOPRO [0:15] = {  7, 15, 12, 14,  9,  4,  1,  0,  3, 11,  5,  2,  6, 10,  8, 13};
64 
const logic [3:0] S4_CRYPTOPRO [0:15] = {  4, 10,  7, 12,  0, 15,  2,  8, 14,  1,  6,  5, 13, 11,  9,  3};
65 
const logic [3:0] S5_CRYPTOPRO [0:15] = {  7,  6,  4, 11,  9, 12,  2, 10,  1,  8,  0, 14, 15, 13,  3,  5};
66 
const logic [3:0] S6_CRYPTOPRO [0:15] = {  7,  6,  2,  4, 13,  9, 15,  0, 10,  1,  5, 11,  8, 14, 12,  3};
67 
const logic [3:0] S7_CRYPTOPRO [0:15] = { 13, 14,  4,  1,  7,  0,  5, 10,  3, 12,  8, 15,  6,  2,  9, 11};
68 
const logic [3:0] S8_CRYPTOPRO [0:15] = {  1,  3, 10,  9,  5, 11,  4, 15,  8,  6,  7, 14, 13,  0,  2, 12};
69 
// define Sbox() function
70 
`define Sbox(x,sel) ( sel ? {S8_CRYPTOPRO[x[31:28]],S7_CRYPTOPRO[x[27:24]],S6_CRYPTOPRO[x[23:20]],S5_CRYPTOPRO[x[19:16]], \
71 
                             S4_CRYPTOPRO[x[15:12]],S3_CRYPTOPRO[x[11:8]],S2_CRYPTOPRO[x[7:4]],S1_CRYPTOPRO[x[3:0]]} : \
72 
                            {S8_TESTPARAM[x[31:28]],S7_TESTPARAM[x[27:24]],S6_TESTPARAM[x[23:20]],S5_TESTPARAM[x[19:16]], \
73 
                             S4_TESTPARAM[x[15:12]],S3_TESTPARAM[x[11:8]],S2_TESTPARAM[x[7:4]],S1_TESTPARAM[x[3:0]]})
74 
`endif
75 
`ifndef GOST_R_3411_BOTH
76 
// define Sbox() function
77 
`define Sbox(x,sel) {S8[x[31:28]],S7[x[27:24]],S6[x[23:20]],S5[x[19:16]],S4[x[15:12]],S3[x[11:8]],S2[x[7:4]],S1[x[3:0]]}
78 
`endif
79 
 
80 
 
81 
reg [4:0] i; // cipher cycles counter: 0..31;
82 
 
83 
always_ff @(posedge clk)
84 
  if(rst || load)
85 
    i <= 5'h0;
86 
  else //if(~&i)
87 
    i <= i + 1;
88 
 
89 
//reg run; //running cipher cycles flag
90 
 
91 
wire [2:0] enc_index = (&i[4:3]) ? ~i[2:0] : i[2:0]; //  cipher key index for encrypt
92 
wire [2:0] dec_index = (|i[4:3]) ? ~i[2:0] : i[2:0]; //  cipher key index for decrypt
93 
wire [2:0] kindex    = mode ? dec_index : enc_index; //  cipher key index
94 
 
95 
reg [31:0] K [0:7]; // cipher key storage
96 
 
97 
always_ff @(posedge clk)
98 
  if(rst)
99 
    {K[0],K[1],K[2],K[3],K[4],K[5],K[6],K[7]} <= {256{1'b0}};
100 
  else if(kload)
101 
    {K[0],K[1],K[2],K[3],K[4],K[5],K[6],K[7]} <= key;
102 
 
103 
 
104 
reg   [31:0] b, a; // MSB, LSB of input data
105 
wire  [31:0] state_addmod32 = a + K[kindex];  // Adding by module 32
106 
wire  [31:0] state_sbox     = `Sbox(state_addmod32,select); // S-box replacing
107 
wire  [31:0] state_shift11  = {state_sbox[20:0],state_sbox[31:21]}; // <<11
108 
 
109 
always_ff @(posedge clk)
110 
  if(rst)
111 
    {b,a} <= {64{1'b0}};
112 
  else if(load)
113 
    {b,a} <= pdata;
114 
  else /*if(~&i)*/ begin
115 
    a <= b ^ state_shift11;
116 
    b <= a;
117 
  end
118 
 
119 
reg r_done;
120 
always_ff @(posedge clk)
121 
  if(rst)
122 
    r_done <= 1'b0;
123 
  else
124 
    r_done <= &i;
125 
 
126 
assign done  = r_done;  //ready flag for output data
127 
assign cdata = {a,b};
128 
 
129 
endmodule
130 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.