procedure makeKey(inKey: array of Byte; var outKey: array of TKeyByte);
const
  bitDisplace: array[0..15] of Byte =
    ( 1,1,2,2, 2,2,2,2, 1,2,2,2, 2,2,2,1 );
var
  outData56: array[0..7] of Byte;
  i,i2,j1,ii,k,temp,temp1: Integer;
  ebp_5,ebp_9,ebp_10,ebp_8,ebp_7,ebp_6,ebp_14,ebp_15,ebp_1C,ebp_1D,ebp_28,ebp_C,ebp_B,ebp_A,ebp_24:Byte;
begin
  ebp_14:=0;
  ebp_C:=0;
  ebp_B:=0;
  ebp_A:=0;
  ebp_9:=0;
  ebp_8:=0;
  ebp_7:=0;
  ebp_6:=0;
  ebp_5:=0;
  ebp_10:=0;
  ebp_1C:=0;
  ebp_14:=1;
  ebp_15:=0;
  ebp_1D:=0;
  permutationChoose1(inKey, outData56);
  for i := 0 to 15 do
  begin
  i2:=i;
    if  bitDisplace[i]=1 then
    begin
      ebp_15:=outData56[0] and $80;
      outData56[0]:= outData56[0] and $7F;
    end
    else
    begin
      ebp_15:=outData56[0] and $C0;
      outData56[0]:= outData56[0] and $3F;
    end;
    ebp_24:=7;
    //整体左移 bitDisplace[i]的过程
    for j1:=7 downto 0 do
    begin
      ebp_24:=j1;
      if  bitDisplace[i]=1 then
      begin
       ebp_1D:=outData56[j1] and $80;
       outData56[j1]:= outData56[j1] and $7F;
      end
      else
      begin
       ebp_1D:=outData56[j1] and $C0;
       outData56[j1]:= outData56[j1] and $3F;
      end;

      outData56[j1]:=outData56[j1] shl bitDisplace[i];     //左移

      if  bitDisplace[i]=1 then
      begin
       outData56[j1]:=outData56[j1] and $FD;
      end
      else
      begin
       outData56[j1]:=outData56[j1] and $FC;
      end;

       outData56[j1]:=outData56[j1] or (ebp_15 shr (7-bitDisplace[i]));
       ebp_15:=ebp_1D;
    end;

    if  bitDisplace[i]=1 then
      begin
        ebp_15:=outData56[3] and 3;
        ebp_1D:=outData56[7] and 3;
        outData56[3]:=outData56[3] and $FC;
        outData56[7]:=outData56[7] and $FC;
        outData56[3]:=outData56[3] or ebp_1D;
        outData56[7]:=outData56[7] or ebp_15;
      end
      else
      begin
        ebp_15:=outData56[3] and 7;
        ebp_1D:=outData56[7] and 7;
        outData56[3]:=outData56[3] and $F8;
        outData56[7]:=outData56[7] and $F8;
        outData56[3]:=outData56[3] or ebp_1D;
        outData56[7]:=outData56[7] or ebp_15;
      end;
      ebp_28:=ebp_14-ebp_1C-1;
      ebp_24:=ebp_28;
      for ii:=0 to 47 do
      begin
          k:=BitPMC2[ii] div 7;
          ebp_15:=outData56[k];
          temp:=BitPMC2[ii] div 6;
          temp:=temp*6;
          temp:=BitPMC2[ii]+1-temp;
          temp:=8-temp;
          ebp_15:=(ebp_15 shr temp) and 1;
          temp1:=ii div 6;
          temp1:=temp1*6;
          temp1:=ii+1-temp1;
          temp1:=8-temp1;
          ebp_15:=ebp_15 shl temp1;

          outkey[i][ii div 6]:=outkey[i][ii div 6] or ebp_15;
          ebp_24:=ebp_24+1;
      end;

      end;
end;

阿里云助力开发者！2核2G 3M带宽不限流量！6.18限时价，开 发者可享99元/年，续费同价！