URL https://opencores.org/ocsvn/rc4-prbs/rc4-prbs/trunk

Subversion Repositories rc4-prbs

[/] [rc4-prbs/] [trunk/] [rc4.v] - Blame information for rev 3

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


/*
        RC4 PRGA module implementation
        Copyright 2012 - Alfredo Ortega
        aortega@alu.itba.edu.ar
 
 This library is free software: you can redistribute it and/or
 modify it under the terms of the GNU Lesser General Public
 License as published by the Free Software Foundation, either
 version 3 of the License, or (at your option) any later version.
 
 This library is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 Lesser General Public License for more details.
 
 You should have received a copy of the GNU Lesser General Public
 License along with this library.  If not, see <http://www.gnu.org/licenses/>.
*/
 
 
`include "rc4.inc"
 
module rc4(clk,rst,output_ready,password_input,K);
 
input clk; // Clock
input rst; // Reset
input [7:0] password_input; // Password input
output output_ready; // Output valid
output [7:0] K; // Output port
 
 
wire clk, rst; // clock, reset
reg output_ready;
wire [7:0] password_input;
 
 
/* RC4 PRGA */
 
// Key
reg [7:0] key[0:`KEY_SIZE-1];
// S array
reg [7:0] S[0:256];
 
// Key-scheduling state
`define KSS_KEYREAD 4'h0
`define KSS_KEYSCHED1 4'h1
`define KSS_KEYSCHED2 4'h2
`define KSS_KEYSCHED3 4'h3
`define KSS_CRYPTO 4'h4
 
// Variable names from http://en.wikipedia.org/wiki/RC4
reg [3:0] KSState;
reg [7:0] i; // Counter
reg [7:0] j;
reg [7:0] temp;
reg [7:0] K;
 
always @ (posedge clk or posedge rst)
        begin
        if (rst)
                begin
                i <= 8'h0;
                KSState <= `KSS_KEYREAD;
                output_ready <= 0;
                j <= 0;
                end
        case (KSState)
                `KSS_KEYREAD:   begin // KSS_KEYREAD state: Read key from input
                                if (i == `KEY_SIZE)
                                        begin
                                        KSState <= `KSS_KEYSCHED1;
                                        i<=8'h00;
                                        end
                                else    begin
                                        i <= i+1;
                                        key[i] <= password_input;
                                        $display ("key[%d] = %08X",i,password_input);
                                        end
                                end
                `KSS_KEYSCHED1: begin // KSS_KEYSCHED1: Increment counter for S initialization
                                S[i] <= i;
                                if (i == 8'hFF)
                                        begin
                                        KSState <= `KSS_KEYSCHED2;
                                        i <= 8'h00;
                                        end
                                else    i <= i +1;
                                end
                `KSS_KEYSCHED2: begin // KSS_KEYSCHED2: Initialize S array
                                j <= (j + S[i] + key[i % `KEY_SIZE]);
                                KSState <= `KSS_KEYSCHED3;
                                end
                `KSS_KEYSCHED3: begin
                                S[i]<=S[j];
                                S[j]<=S[i];
                                if (i == 8'hFF)
                                        begin
                                        KSState <= `KSS_CRYPTO;
                                        output_ready <= 1; // Flag keysched finished
                                        i <= 8'h00;
                                        end
                                else    begin
                                        i <= i + 1;
                                        KSState <= `KSS_KEYSCHED2;
                                        end
                                end
 
                `KSS_CRYPTO:    begin // It was all nicely pipelined until this point where I don't care anymore
                                i = i + 1;
                                j = (j + S[i]);
                                temp = S[j];
                                S[j]=S[i];
                                S[i]=temp;
                                K = S[ S[i]+S[j] ];
                                end
                default:        begin
                                end
        endcase
        end
 
endmodule

Line No.	Rev	Author	Line
1	3	ortegaalfr	`/*`
2			`RC4 PRGA module implementation`
3			`Copyright 2012 - Alfredo Ortega`
4			`aortega@alu.itba.edu.ar`
5
6			`This library is free software: you can redistribute it and/or`
7			`modify it under the terms of the GNU Lesser General Public`
8			`License as published by the Free Software Foundation, either`
9			`version 3 of the License, or (at your option) any later version.`
10
11			`This library is distributed in the hope that it will be useful,`
12			`but WITHOUT ANY WARRANTY; without even the implied warranty of`
13			`MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU`
14			`Lesser General Public License for more details.`
15
16			`You should have received a copy of the GNU Lesser General Public`
17			`License along with this library. If not, see <http://www.gnu.org/licenses/>.`
18			`*/`
19
20
21			`include "rc4.inc"
22
23			`module rc4(clk,rst,output_ready,password_input,K);`
24
25			`input clk; // Clock`
26			`input rst; // Reset`
27			`input [7:0] password_input; // Password input`
28			`output output_ready; // Output valid`
29			`output [7:0] K; // Output port`
30
31
32			`wire clk, rst; // clock, reset`
33			`reg output_ready;`
34			`wire [7:0] password_input;`
35
36
37			`/* RC4 PRGA */`
38
39			`// Key`
40			reg [7:0] key[0:`KEY_SIZE-1];
41			`// S array`
42			`reg [7:0] S[0:256];`
43
44			`// Key-scheduling state`
45			`define KSS_KEYREAD 4'h0
46			`define KSS_KEYSCHED1 4'h1
47			`define KSS_KEYSCHED2 4'h2
48			`define KSS_KEYSCHED3 4'h3
49			`define KSS_CRYPTO 4'h4
50
51			`// Variable names from http://en.wikipedia.org/wiki/RC4`
52			`reg [3:0] KSState;`
53			`reg [7:0] i; // Counter`
54			`reg [7:0] j;`
55			`reg [7:0] temp;`
56			`reg [7:0] K;`
57
58			`always @ (posedge clk or posedge rst)`
59			`begin`
60			`if (rst)`
61			`begin`
62			`i <= 8'h0;`
63			KSState <= `KSS_KEYREAD;
64			`output_ready <= 0;`
65			`j <= 0;`
66			`end`
67			`case (KSState)`
68			`KSS_KEYREAD: begin // KSS_KEYREAD state: Read key from input
69			if (i == `KEY_SIZE)
70			`begin`
71			KSState <= `KSS_KEYSCHED1;
72			`i<=8'h00;`
73			`end`
74			`else begin`
75			`i <= i+1;`
76			`key[i] <= password_input;`
77			`$display ("key[%d] = %08X",i,password_input);`
78			`end`
79			`end`
80			`KSS_KEYSCHED1: begin // KSS_KEYSCHED1: Increment counter for S initialization
81			`S[i] <= i;`
82			`if (i == 8'hFF)`
83			`begin`
84			KSState <= `KSS_KEYSCHED2;
85			`i <= 8'h00;`
86			`end`
87			`else i <= i +1;`
88			`end`
89			`KSS_KEYSCHED2: begin // KSS_KEYSCHED2: Initialize S array
90			j <= (j + S[i] + key[i % `KEY_SIZE]);
91			KSState <= `KSS_KEYSCHED3;
92			`end`
93			`KSS_KEYSCHED3: begin
94			`S[i]<=S[j];`
95			`S[j]<=S[i];`
96			`if (i == 8'hFF)`
97			`begin`
98			KSState <= `KSS_CRYPTO;
99			`output_ready <= 1; // Flag keysched finished`
100			`i <= 8'h00;`
101			`end`
102			`else begin`
103			`i <= i + 1;`
104			KSState <= `KSS_KEYSCHED2;
105			`end`
106			`end`
107
108			`KSS_CRYPTO: begin // It was all nicely pipelined until this point where I don't care anymore
109			`i = i + 1;`
110			`j = (j + S[i]);`
111			`temp = S[j];`
112			`S[j]=S[i];`
113			`S[i]=temp;`
114			`K = S[ S[i]+S[j] ];`
115			`end`
116			`default: begin`
117			`end`
118			`endcase`
119			`end`
120
121			`endmodule`

Browse

Tools

Subversion Repositories rc4-prbs

[/] [rc4-prbs/] [trunk/] [rc4.v] - Blame information for rev 3