des_cal.v

Verilog实现的DES和3-DES

  6'b00_1001,6'b01_0000,6'b10_0000,6'b11_0010: s31=1'b0;
  default: s31=1'b1;
  endcase
  
  case({r1[12],r1[17],r1[13],r1[14],r1[15],r1[16]})
  6'b00_0001,6'b01_0010,6'b10_0111,6'b11_0011,
  6'b00_1000,6'b01_1111,6'b10_1001,6'b11_0000,
  6'b00_1110,6'b01_1000,6'b10_1010,6'b11_1110,
  6'b00_0101,6'b01_0100,6'b10_0110,6'b11_1011,
  6'b00_1111,6'b01_1001,6'b10_0100,6'b11_0110,
  6'b00_0010,6'b01_0011,6'b10_0011,6'b11_0101,
  6'b00_0000,6'b01_0111,6'b10_1101,6'b11_0001,
  6'b00_1100,6'b01_1101,6'b10_1000,6'b11_1100: s32=1'b0;
  default: s32=1'b1;
  endcase

  case({r1[12],r1[17],r1[13],r1[14],r1[15],r1[16]})
  6'b00_0001,6'b01_0010,6'b10_0111,6'b11_0011,
  6'b00_1000,6'b01_1111,6'b10_1001,6'b11_0000,
  6'b00_1110,6'b01_1000,6'b10_1010,6'b11_1110,
  6'b00_0101,6'b01_0100,6'b10_0110,6'b11_1011,
  6'b00_1101,6'b01_0101,6'b10_0010,6'b11_1000,
  6'b00_0111,6'b01_1010,6'b10_1100,6'b11_1101,
  6'b00_0100,6'b01_0110,6'b10_0001,6'b11_0100,
  6'b00_1011,6'b01_0001,6'b10_1111,6'b11_0111: s33=1'b0;
  default: begin s33=1'b1; end
  endcase
  end
  always @ (r1[18:23])
  begin
  //case(r1[23:18])  //s4
  case({r1[18],r1[23],r1[19],r1[20],r1[21],r1[22]})
  6'b00_0100,6'b01_0110,6'b10_0011,6'b11_0010,
  6'b00_1001,6'b01_1010,6'b10_1101,6'b11_1110,
  6'b00_1110,6'b01_1000,6'b10_1111,6'b11_1001,
  6'b00_0101,6'b01_0100,6'b10_0001,6'b11_0011,
  6'b00_1010,6'b01_0001,6'b10_1110,6'b11_0111,
  6'b00_0111,6'b01_1101,6'b10_0000,6'b11_0100,
  6'b00_1101,6'b01_1011,6'b10_0100,6'b11_1100,
  6'b00_0010,6'b01_1110,6'b10_1011,6'b11_1111: s40=1'b0;
  default: s40=1'b1;
  endcase
  
    case({r1[18],r1[23],r1[19],r1[20],r1[21],r1[22]})
  6'b00_0100,6'b01_0110,6'b10_0011,6'b11_0010,
  6'b00_1000,6'b01_1100,6'b10_1001,6'b11_0101,
  6'b00_1110,6'b01_1000,6'b10_1111,6'b11_1001,
  6'b00_1011,6'b01_0011,6'b10_1100,6'b11_1010,
  6'b00_1010,6'b01_0001,6'b10_1110,6'b11_0111,
  6'b00_0110,6'b01_1111,6'b10_0010,6'b11_1000,
  6'b00_1101,6'b01_1011,6'b10_0100,6'b11_1100,
  6'b00_0001,6'b01_0000,6'b10_0111,6'b11_0110: s41=1'b0;
    default: s41=1'b1;
  endcase

   case({r1[18],r1[23],r1[19],r1[20],r1[21],r1[22]})
  6'b00_0100,6'b01_0110,6'b10_0011,6'b11_0010,
  6'b00_1000,6'b01_1100,6'b10_1001,6'b11_0101,
  6'b00_1001,6'b01_1010,6'b10_1101,6'b11_1110,
  6'b00_0011,6'b01_0111,6'b10_1010,6'b11_0000,
  6'b00_1010,6'b01_0001,6'b10_1110,6'b11_0111,
  6'b00_0110,6'b01_1111,6'b10_0010,6'b11_1000,
  6'b00_0111,6'b01_1101,6'b10_0000,6'b11_0100,
  6'b00_1100,6'b01_0010,6'b10_0101,6'b11_1011: s42=1'b0;
  default:s42=1'b1;
  endcase
    case({r1[18],r1[23],r1[19],r1[20],r1[21],r1[22]})
  6'b00_0100,6'b01_0110,6'b10_0011,6'b11_0010,
  6'b00_1000,6'b01_1100,6'b10_1001,6'b11_0101,
  6'b00_1001,6'b01_1010,6'b10_1101,6'b11_1110,
  6'b00_0011,6'b01_0111,6'b10_1010,6'b11_0000,
  6'b00_1110,6'b01_1000,6'b10_1111,6'b11_1001,
  6'b00_1011,6'b01_0011,6'b10_1100,6'b11_1010,
  6'b00_0101,6'b01_0100,6'b10_0001,6'b11_0011,
  6'b00_0000,6'b01_1001,6'b10_0110,6'b11_1101: s43=1'b0;
  default: begin  s43=1'b1; end
  endcase
  end
  
  always @(r1[24:29])
  begin
  //case(r1[29:24]) //s5
  case({r1[24],r1[29],r1[25],r1[26],r1[27],r1[28]})
  6'b00_1101,6'b01_1001,6'b10_1110,6'b11_1010,
  6'b00_0000,6'b01_0010,6'b10_0001,6'b11_0110,
  6'b00_0010,6'b01_0100,6'b10_0000,6'b11_1101,
  6'b00_0111,6'b01_1111,6'b10_1100,6'b11_1000,
  6'b00_1000,6'b01_1110,6'b10_0111,6'b11_0001,
  6'b00_0101,6'b01_1011,6'b10_0100,6'b11_1100,
  6'b00_0001,6'b01_0011,6'b10_1010,6'b11_0010,
  6'b00_1110,6'b01_0000,6'b10_1111,6'b11_0101: s50=1'b0;
  default:s50=1'b1;
  endcase

  case({r1[24],r1[29],r1[25],r1[26],r1[27],r1[28]})  
  6'b00_1101,6'b01_1001,6'b10_1110,6'b11_1010,
  6'b00_0011,6'b01_0111,6'b10_0010,6'b11_0100,
  6'b00_0010,6'b01_0100,6'b10_0000,6'b11_1101,
  6'b00_1001,6'b01_1000,6'b10_1011,6'b11_1110,
  6'b00_1000,6'b01_1110,6'b10_0111,6'b11_0001,
  6'b00_1111,6'b01_1101,6'b10_1001,6'b11_1011,
  6'b00_0001,6'b01_0011,6'b10_1010,6'b11_0010,
  6'b00_1100,6'b01_0110,6'b10_0101,6'b11_0111: s51=1'b0;
  default:s51=1'b1;
  endcase

  case({r1[24],r1[29],r1[25],r1[26],r1[27],r1[28]})  
  6'b00_1101,6'b01_1001,6'b10_1110,6'b11_1010,
  6'b00_0011,6'b01_0111,6'b10_0010,6'b11_0100,
  6'b00_0000,6'b01_0010,6'b10_0001,6'b11_0110,
  6'b00_1010,6'b01_1100,6'b10_1101,6'b11_1111,
  6'b00_1000,6'b01_1110,6'b10_0111,6'b11_0001,
  6'b00_1111,6'b01_1101,6'b10_1001,6'b11_1011,
  6'b00_0101,6'b01_1011,6'b10_0100,6'b11_1100,
  6'b00_0110,6'b01_0001,6'b10_0011,6'b11_0000: s52=1'b0;
  default:s52=1'b1;
  endcase
  
  case({r1[24],r1[29],r1[25],r1[26],r1[27],r1[28]})    
  6'b00_1101,6'b01_1001,6'b10_1110,6'b11_1010,
  6'b00_0011,6'b01_0111,6'b10_0010,6'b11_0100,
  6'b00_0000,6'b01_0010,6'b10_0001,6'b11_0110,
  6'b00_1010,6'b01_1100,6'b10_1101,6'b11_1111,
  6'b00_0010,6'b01_0100,6'b10_0000,6'b11_1101,
  6'b00_1001,6'b01_1000,6'b10_1011,6'b11_1110,
  6'b00_0111,6'b01_1111,6'b10_1100,6'b11_1000,
  6'b00_0100,6'b01_0101,6'b10_0110,6'b11_0011: s53=1'b0;
  default:begin s53=1'b1; end
  endcase
  end
  
  always @(r1[30:35])
  begin
  //case(r1[35:30])  //s6
  case({r1[30],r1[35],r1[31],r1[32],r1[33],r1[34]})
  6'b00_1000,6'b01_1100,6'b10_1001,6'b11_1101,
  6'b00_0101,6'b01_0011,6'b10_0100,6'b11_0010,
  6'b00_1011,6'b01_0010,6'b10_1010,6'b11_0000,
  6'b00_0110,6'b01_1000,6'b10_1111,6'b11_1100,
  6'b00_0111,6'b01_1111,6'b10_0101,6'b11_1110,
  6'b00_0010,6'b01_0000,6'b10_1011,6'b11_0111,
  6'b00_0000,6'b01_0101,6'b10_0110,6'b11_0011,
  6'b00_1100,6'b01_1011,6'b10_0001,6'b11_1001: s60=1'b0;
  default:s60=1'b1;
  endcase
  
   case({r1[30],r1[35],r1[31],r1[32],r1[33],r1[34]})
  6'b00_1000,6'b01_1100,6'b10_1001,6'b11_1101,
  6'b00_0001,6'b01_1001,6'b10_1100,6'b11_1010,
  6'b00_1011,6'b01_0010,6'b10_1010,6'b11_0000,
  6'b00_1110,6'b01_0111,6'b10_0011,6'b11_0101,
  6'b00_0111,6'b01_1111,6'b10_0101,6'b11_1110,
  6'b00_0100,6'b01_0110,6'b10_0000,6'b11_0100,
  6'b00_0000,6'b01_0101,6'b10_0110,6'b11_0011,
  6'b00_1001,6'b01_1010,6'b10_1101,6'b11_1111: s61=1'b0;
  default:s61=1'b1;
  endcase

  case({r1[30],r1[35],r1[31],r1[32],r1[33],r1[34]})
  6'b00_1000,6'b01_1100,6'b10_1001,6'b11_1101,
  6'b00_0001,6'b01_1001,6'b10_1100,6'b11_1010,
  6'b00_0101,6'b01_0011,6'b10_0100,6'b11_0010,
  6'b00_1010,6'b01_1110,6'b10_0111,6'b11_0001,
  6'b00_0111,6'b01_1111,6'b10_0101,6'b11_1110,
  6'b00_0100,6'b01_0110,6'b10_0000,6'b11_0100,
  6'b00_0010,6'b01_0000,6'b10_1011,6'b11_0111,
  6'b00_1111,6'b01_1101,6'b10_1110,6'b11_1000: s62=1'b0;
    default:s62=1'b1;
  endcase

  case({r1[30],r1[35],r1[31],r1[32],r1[33],r1[34]})
  6'b00_1000,6'b01_1100,6'b10_1001,6'b11_1101,
  6'b00_0001,6'b01_1001,6'b10_1100,6'b11_1010,
  6'b00_0101,6'b01_0011,6'b10_0100,6'b11_0010,
  6'b00_1010,6'b01_1110,6'b10_0111,6'b11_0001,
  6'b00_1011,6'b01_0010,6'b10_1010,6'b11_0000,
  6'b00_1110,6'b01_0111,6'b10_0011,6'b11_0101,
  6'b00_0110,6'b01_1000,6'b10_1111,6'b11_1100,
  6'b00_1101,6'b01_0100,6'b10_1000,6'b11_1011: s63=1'b0;
  default: begin s63=1'b1; end
  endcase
  end
  
  always @(r1[36:41])
  begin
  //case(r1[41:36])  //s7
  case({r1[36],r1[41],r1[37],r1[38],r1[39],r1[40]})
  6'b00_0101,6'b01_0001,6'b10_1100,6'b11_1010,
  6'b00_0010,6'b01_1100,6'b10_1111,6'b11_1101,
  6'b00_0000,6'b01_0100,6'b10_0001,6'b11_0101,
  6'b00_1110,6'b01_1111,6'b10_1010,6'b11_0000,
  6'b00_0110,6'b01_1110,6'b10_1011,6'b11_0011,
  6'b00_1101,6'b01_0111,6'b10_1000,6'b11_0110,
  6'b00_1001,6'b01_1011,6'b10_0100,6'b11_1111,
  6'b00_0011,6'b01_1000,6'b10_0111,6'b11_1100: s70=1'b0;
  default:s70=1'b1;
  endcase
  
  
    case({r1[36],r1[41],r1[37],r1[38],r1[39],r1[40]})
  6'b00_0101,6'b01_0001,6'b10_1100,6'b11_1010,
  6'b00_1111,6'b01_0110,6'b10_0000,6'b11_0100,
  6'b00_0000,6'b01_0100,6'b10_0001,6'b11_0101,
  6'b00_1100,6'b01_1010,6'b10_1101,6'b11_1001,
  6'b00_0110,6'b01_1110,6'b10_1011,6'b11_0011,
  6'b00_1010,6'b01_0101,6'b10_1110,6'b11_1000,
  6'b00_1001,6'b01_1011,6'b10_0100,6'b11_1111,
  6'b00_0111,6'b01_0000,6'b10_0011,6'b11_0010: s71=1'b0;
  default:s71=1'b1;
  endcase

   case({r1[36],r1[41],r1[37],r1[38],r1[39],r1[40]})
  6'b00_0101,6'b01_0001,6'b10_1100,6'b11_1010,
  6'b00_1111,6'b01_0110,6'b10_0000,6'b11_0100,
  6'b00_0010,6'b01_1100,6'b10_1111,6'b11_1101,
  6'b00_1000,6'b01_1001,6'b10_0101,6'b11_1110,
  6'b00_0110,6'b01_1110,6'b10_1011,6'b11_0011,
  6'b00_1010,6'b01_0101,6'b10_1110,6'b11_1000,
  6'b00_1101,6'b01_0111,6'b10_1000,6'b11_0110,
  6'b00_0001,6'b01_0010,6'b10_0010,6'b11_0001: s72=1'b0;
    default:s72=1'b1;
  endcase

     case({r1[36],r1[41],r1[37],r1[38],r1[39],r1[40]})
  6'b00_0101,6'b01_0001,6'b10_1100,6'b11_1010,
  6'b00_1111,6'b01_0110,6'b10_0000,6'b11_0100,
  6'b00_0010,6'b01_1100,6'b10_1111,6'b11_1101,
  6'b00_1000,6'b01_1001,6'b10_0101,6'b11_1110,
  6'b00_0000,6'b01_0100,6'b10_0001,6'b11_0101,
  6'b00_1100,6'b01_1010,6'b10_1101,6'b11_1001,
  6'b00_1110,6'b01_1111,6'b10_1010,6'b11_0000,
  6'b00_1011,6'b01_0011,6'b10_0110,6'b11_0111: s73=1'b0;
  default:begin s73=1'b1; end
  endcase
  end
  
  always @(r1[42:47])
  begin
  //case(r1[47:42])  //s8
  case({r1[42],r1[47],r1[43],r1[44],r1[45],r1[46]})
  6'b00_1101,6'b01_1100,6'b10_1000,6'b11_1011,
  6'b00_0001,6'b01_1111,6'b10_0111,6'b11_0000,
  6'b00_0011,6'b01_0111,6'b10_0010,6'b11_0100,
  6'b00_0100,6'b01_1010,6'b10_1001,6'b11_1110,
  6'b00_0010,6'b01_0011,6'b10_1111,6'b11_0110,
  6'b00_1000,6'b01_0100,6'b10_1010,6'b11_0101,
  6'b00_1110,6'b01_1000,6'b10_0101,6'b11_1001,
  6'b00_1011,6'b01_1101,6'b10_0110,6'b11_0010: s80=1'b0;
  default: s80=1'b1;
  endcase
  
  case({r1[42],r1[47],r1[43],r1[44],r1[45],r1[46]})
  6'b00_1101,6'b01_1100,6'b10_1000,6'b11_1011,
  6'b00_0111,6'b01_0000,6'b10_0011,6'b11_0001,
  6'b00_0011,6'b01_0111,6'b10_0010,6'b11_0100,
  6'b00_1100,6'b01_1001,6'b10_1110,6'b11_1101,
  6'b00_0010,6'b01_0011,6'b10_1111,6'b11_0110,
  6'b00_1001,6'b01_1110,6'b10_0100,6'b11_1010,
  6'b00_1110,6'b01_1000,6'b10_0101,6'b11_1001,
  6'b00_0000,6'b01_0010,6'b10_1011,6'b11_0111: s81=1'b0;
    default: s81=1'b1;
  endcase

   case({r1[42],r1[47],r1[43],r1[44],r1[45],r1[46]})
  6'b00_1101,6'b01_1100,6'b10_1000,6'b11_1011,
  6'b00_0111,6'b01_0000,6'b10_0011,6'b11_0001,
  6'b00_0001,6'b01_1111,6'b10_0111,6'b11_0000,
  6'b00_1010,6'b01_0101,6'b10_1101,6'b11_1100,
  6'b00_0010,6'b01_0011,6'b10_1111,6'b11_0110,
  6'b00_1001,6'b01_1110,6'b10_0100,6'b11_1010,
  6'b00_1000,6'b01_0100,6'b10_1010,6'b11_0101,
  6'b00_0110,6'b01_1011,6'b10_0001,6'b11_1111: s82=1'b0;
    default: s82=1'b1;
  endcase

    case({r1[42],r1[47],r1[43],r1[44],r1[45],r1[46]})
  6'b00_1101,6'b01_1100,6'b10_1000,6'b11_1011,
  6'b00_0111,6'b01_0000,6'b10_0011,6'b11_0001,
  6'b00_0001,6'b01_1111,6'b10_0111,6'b11_0000,
  6'b00_1010,6'b01_0101,6'b10_1101,6'b11_1100,
  6'b00_0011,6'b01_0111,6'b10_0010,6'b11_0100,
  6'b00_1100,6'b01_1001,6'b10_1110,6'b11_1101,
  6'b00_0100,6'b01_1010,6'b10_1001,6'b11_1110,
  6'b00_1111,6'b01_0110,6'b10_0000,6'b11_0011: s83=1'b0;
  default:begin s83=1'b1; end
  endcase
end

endmodule