Hallo zusammen,
ich habe mal wieder ein Thema zur verschlüsselung, doch zu mienem Problem oder Frage noch keine Lösung gefunden:
Ich möchte eine
S-Box generieren:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
| var i,j : Byte;
n : Integer; temp : Byte;
sBox : array[0..255]of Byte;
Key : array of Byte;
begin
for i := 0 to 255 do
sBox[i] := i;
j := 0;
for i := 0 to 255 do
begin
j := (j + i + sBox[i] + sBox[j] + Key[ (j + i) mod n ]) mod 256;
temp := sBox[i];
sBox[i] := sBox[j];
sBox[j] := temp;
end;
end; |
Mit disem Code tue ich das, doch habe ich keine Ahnung, ob er alle Möglichen S-Boxen generiert und ob sie Eindeutig sind. Kann mit wer sagen, ob ich das, außer über Bruteforce, testen kann ?
Oder vllt kann mir ja wer sagen, ob es eine besserere Methode gibt S-Boxen zu generieren.
Danke im voraus !
MfG Sirke
