des.txt

本DES算法

      worka[31] = buffer[20];
      worka[32] = buffer[21];
      worka[33] = buffer[22];
      worka[34] = buffer[23];
      worka[35] = buffer[24];
      worka[36] = buffer[23];
      worka[37] = buffer[24];
      worka[38] = buffer[25];
      worka[39] = buffer[26];
      worka[40] = buffer[27];
      worka[41] = buffer[28];
      worka[42] = buffer[27];
      worka[43] = buffer[28];
      worka[44] = buffer[29];
      worka[45] = buffer[30];
      worka[46] = buffer[31];
      worka[47] = buffer[ 0];
      /* KS Function Begin */
      if (flg) {
      nbrofshift = shift[iter-1];
      for (i = 0; i < (int) nbrofshift; i++) {
          temp1 = kwork[0];
          temp2 = kwork[28];
          for (j = 0; j < 27; j++) {
           kwork[j] = kwork[j+1];
           kwork[j+28] = kwork[j+29];
          }
          kwork[27] = temp1;
          kwork[55] = temp2;
      }
      } else if (iter > 1) {
      nbrofshift = shift[17-iter];
      for (i = 0; i < (int) nbrofshift; i++) {
          temp1 = kwork[27];
          temp2 = kwork[55];
          for (j = 27; j > 0; j--) {
           kwork[j] = kwork[j-1];
           kwork[j+28] = kwork[j+27];
          }
          kwork[0] = temp1;
          kwork[28] = temp2;
      }
      }
      /* Permute kwork - PC2 */
      kn[ 0] = kwork[13];
      kn[ 1] = kwork[16];
      kn[ 2] = kwork[10];
      kn[ 3] = kwork[23];
      kn[ 4] = kwork[ 0];
      kn[ 5] = kwork[ 4];
      kn[ 6] = kwork[ 2];
      kn[ 7] = kwork[27];
      kn[ 8] = kwork[14];
      kn[ 9] = kwork[ 5];
      kn[10] = kwork[20];
      kn[11] = kwork[ 9];
      kn[12] = kwork[22];
      kn[13] = kwork[18];
      kn[14] = kwork[11];
      kn[15] = kwork[ 3];
      kn[16] = kwork[25];
      kn[17] = kwork[ 7];
      kn[18] = kwork[15];
      kn[19] = kwork[ 6];
      kn[20] = kwork[26];
      kn[21] = kwork[19];
      kn[22] = kwork[12];
      kn[23] = kwork[ 1];
      kn[24] = kwork[40];
      kn[25] = kwork[51];
      kn[26] = kwork[30];
      kn[27] = kwork[36];
      kn[28] = kwork[46];
      kn[29] = kwork[54];
      kn[30] = kwork[29];
      kn[31] = kwork[39];
      kn[32] = kwork[50];
      kn[33] = kwork[44];
      kn[34] = kwork[32];
      kn[35] = kwork[47];
      kn[36] = kwork[43];
      kn[37] = kwork[48];
      kn[38] = kwork[38];
      kn[39] = kwork[55];
      kn[40] = kwork[33];
      kn[41] = kwork[52];
      kn[42] = kwork[45];
      kn[43] = kwork[41];
      kn[44] = kwork[49];
      kn[45] = kwork[35];
      kn[46] = kwork[28];
      kn[47] = kwork[31];
      /* KS Function End */
      /* worka XOR kn */
      for (i = 0; i < 48; i++)
      worka[i] = worka[i] ^ kn[i];
      /* 8 s-functions */
      valindex = s1[2*worka[ 0]+worka[ 5]]
      [2*(2*(2*worka[ 1]+worka[ 2])+
      worka[ 3])+worka[ 4]];
      valindex = valindex * 4;
      kn[ 0] = binary[0+valindex];
      kn[ 1] = binary[1+valindex];
      kn[ 2] = binary[2+valindex];
      kn[ 3] = binary[3+valindex];
      valindex = s2[2*worka[ 6]+worka[11]]
      [2*(2*(2*worka[ 7]+worka[ 8])+
      worka[ 9])+worka[10]];
      valindex = valindex * 4;
      kn[ 4] = binary[0+valindex];
      kn[ 5] = binary[1+valindex];
      kn[ 6] = binary[2+valindex];
      kn[ 7] = binary[3+valindex];
      valindex = s3[2*worka[12]+worka[17]]
      [2*(2*(2*worka[13]+worka[14])+
      worka[15])+worka[16]];
      valindex = valindex * 4;
      kn[ 8] = binary[0+valindex];
      kn[ 9] = binary[1+valindex];
      kn[10] = binary[2+valindex];
      kn[11] = binary[3+valindex];
      valindex = s4[2*worka[18]+worka[23]]
      [2*(2*(2*worka[19]+worka[20])+
      worka[21])+worka[22]];
      valindex = valindex * 4;
      kn[12] = binary[0+valindex];
      kn[13] = binary[1+valindex];
      kn[14] = binary[2+valindex];
      kn[15] = binary[3+valindex];
      valindex = s5[2*worka[24]+worka[29]]
      [2*(2*(2*worka[25]+worka[26])+
      worka[27])+worka[28]];
      valindex = valindex * 4;
      kn[16] = binary[0+valindex];
      kn[17] = binary[1+valindex];
      kn[18] = binary[2+valindex];
      kn[19] = binary[3+valindex];
      valindex = s6[2*worka[30]+worka[35]]
      [2*(2*(2*worka[31]+worka[32])+
      worka[33])+worka[34]];
      valindex = valindex * 4;
      kn[20] = binary[0+valindex];
      kn[21] = binary[1+valindex];
      kn[22] = binary[2+valindex];
      kn[23] = binary[3+valindex];
      valindex = s7[2*worka[36]+worka[41]]
      [2*(2*(2*worka[37]+worka[38])+
      worka[39])+worka[40]];
      valindex = valindex * 4;
      kn[24] = binary[0+valindex];
      kn[25] = binary[1+valindex];
      kn[26] = binary[2+valindex];
      kn[27] = binary[3+valindex];
      valindex = s8[2*worka[42]+worka[47]]
      [2*(2*(2*worka[43]+worka[44])+
      worka[45])+worka[46]];
      valindex = valindex * 4;
      kn[28] = binary[0+valindex];
      kn[29] = binary[1+valindex];
      kn[30] = binary[2+valindex];
      kn[31] = binary[3+valindex];
      /* Permute - P */
      worka[ 0] = kn[15];
      worka[ 1] = kn[ 6];
      worka[ 2] = kn[19];
      worka[ 3] = kn[20];
      worka[ 4] = kn[28];
      worka[ 5] = kn[11];
      worka[ 6] = kn[27];
      worka[ 7] = kn[16];
      worka[ 8] = kn[ 0];
      worka[ 9] = kn[14];
      worka[10] = kn[22];
      worka[11] = kn[25];
      worka[12] = kn[ 4];
      worka[13] = kn[17];
      worka[14] = kn[30];
      worka[15] = kn[ 9];
      worka[16] = kn[ 1];
      worka[17] = kn[ 7];
      worka[18] = kn[23];
      worka[19] = kn[13];
      worka[20] = kn[31];
      worka[21] = kn[26];
      worka[22] = kn[ 2];
      worka[23] = kn[ 8];
      worka[24] = kn[18];
      worka[25] = kn[12];
      worka[26] = kn[29];
      worka[27] = kn[ 5];
      worka[28] = kn[21];
      worka[29] = kn[10];
      worka[30] = kn[ 3];
      worka[31] = kn[24];
      /* bufout XOR worka */
      for (i = 0; i < 32; i++) {
          bufout[i+32] = bufout[i] ^ worka[i];
          bufout[i] = buffer[i];
      }
      } /* End of Iter */
      /* Prepare Output */
      for (i = 0; i < 32; i++) {
          j = bufout[i];
          bufout[i] = bufout[32+i];
          bufout[32+i] = j;
      }
      /* Inverse Initial Permutation */
      buffer[ 0] = bufout[39];
      buffer[ 1] = bufout[ 7];
      buffer[ 2] = bufout[47];
      buffer[ 3] = bufout[15];
      buffer[ 4] = bufout[55];
      buffer[ 5] = bufout[23];
      buffer[ 6] = bufout[63];
      buffer[ 7] = bufout[31];
      buffer[ 8] = bufout[38];
      buffer[ 9] = bufout[ 6];
      buffer[10] = bufout[46];
      buffer[11] = bufout[14];
      buffer[12] = bufout[54];
      buffer[13] = bufout[22];
      buffer[14] = bufout[62];
      buffer[15] = bufout[30];
      buffer[16] = bufout[37];
      buffer[17] = bufout[ 5];
      buffer[18] = bufout[45];
      buffer[19] = bufout[13];
      buffer[20] = bufout[53];
      buffer[21] = bufout[21];
      buffer[22] = bufout[61];
      buffer[23] = bufout[29];
      buffer[24] = bufout[36];
      buffer[25] = bufout[ 4];
      buffer[26] = bufout[44];
      buffer[27] = bufout[12];
      buffer[28] = bufout[52];
      buffer[29] = bufout[20];
      buffer[30] = bufout[60];
      buffer[31] = bufout[28];
      buffer[32] = bufout[35];
      buffer[33] = bufout[ 3];
      buffer[34] = bufout[43];
      buffer[35] = bufout[11];
      buffer[36] = bufout[51];
      buffer[37] = bufout[19];
      buffer[38] = bufout[59];
      buffer[39] = bufout[27];
      buffer[40] = bufout[34];
      buffer[41] = bufout[ 2];
      buffer[42] = bufout[42];
      buffer[43] = bufout[10];
      buffer[44] = bufout[50];
      buffer[45] = bufout[18];
      buffer[46] = bufout[58];
      buffer[47] = bufout[26];
      buffer[48] = bufout[33];
      buffer[49] = bufout[ 1];
      buffer[50] = bufout[41];
      buffer[51] = bufout[ 9];
      buffer[52] = bufout[49];
      buffer[53] = bufout[17];
      buffer[54] = bufout[57];
      buffer[55] = bufout[25];
      buffer[56] = bufout[32];
      buffer[57] = bufout[ 0];
      buffer[58] = bufout[40];
      buffer[59] = bufout[ 8];
      buffer[60] = bufout[48];
      buffer[61] = bufout[16];
      buffer[62] = bufout[56];
      buffer[63] = bufout[24];
      j = 0;
      for (i = 0; i < 8; i++) {
          *(dest + i) = 0x00;
          for (k = 0; k < 7; k++)
          *(dest + i) = ((*(dest + i)) + buffer[j+k]) * 2;
          *(dest + i) = *(dest + i) + buffer[j+7];
          j += 8;
      }
      return 0;
      }