Übersetzung AES S-Box Erstellung von C in Delphi (wenig Code)

**Martin W**

Hatte ursprünglich eine Frage zur Erstellung der AES S-Box, Antwort war jedoch nur eine falsch definierte Variable. Wen es interessiert, hier der Code zur Erstellung der AES S-Box:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.DoCalc;

var

  i: integer;

  logtable: array [0..255] of byte;  // Log table

  exptable: array [0..255] of byte;  // Log table

  a, c, s, x: Byte;

begin

  a := 1;

  for i := 0 to 255 do

    begin

      exptable[i] := a;

      c := a AND $80;

      a := a SHL 1;

      if (c = $80) then

        begin

          a := a xor $1b;

        end;

      a := a xor exptable[i];

      logtable[exptable[i]] := i;  // Set the log table value

    end;

  exptable[255] := exptable[0];

  logtable[0] := 0;

  for i := 0 to 255 do

    begin

      if i = 0 then

        x := 0

      else

        x := exptable[(255 - logtable[i])];

      s := x;

      for c := 0 to 3 do

        begin

          s := (s SHL 1) OR (s SHR 7);

          x := x XOR s;

        end;

      x := x XOR 99;

      Memo1.Text := Memo1.Text + '0x' + IntToHex(x, 2) + ', ';

    end;  

end;

Übersetzung AES S-Box Erstellung von C in Delphi (wenig Code)

Übersetzung AES S-Box Erstellung von C in Delphi (wenig Code)

Forumregeln