Что выполняет данная процедура?

[stim_7]

Что выполняет и за что отвечает данная процедура? Опишите, пожалуйста поподробнее) если можно

procedure SetKey (s: string);
var
i, x, bi: longword;
n: byte;
was: array [0..255] of byte;
a: array [1..16] of longword;
begin

x := 1;

s := copy(s, 1, 16);


for I := 0 to 255 do
was[i] := 0;


if length(s) < 16 then
begin
for I := 0 to 15 - length(s) do
s := s + s[(i mod length(s)) + 1];
end;


for I := 1 to 16 do
begin
a[i] := byte(s[I]);
x := (x * (x + 1) shr 1) + a[i];
end;


for I := 0 to 255 do
begin

repeat

a[(x mod 16) + 1] := (a[1] + a[2]) + ((a[3] - a[4]) xor
(a[5] shr (a[6] mod 8))) + (a[7] shl (a[8] mod 8)) +
(a[6] xor a[8]) xor ((a[5] + x) xor (a[7] + i)) +
(a[9] - a[10] + ((a[10] shl 6) xor (a[10] shr 11))) +
(a[12] + a[13]) + (a[14] xor a[15]) + (a[16] xor (a[16] * 9)) +
(a[1] + (a[1] xor x));

n := a[(x mod 16) + 1] and 255;
Inc(x);


until (was[n] = 0) and ((n <> i) or (i = 255));

if (n = i) and (i = 255) then
begin
x := stable[254];
stable[254] := n;
bstable[n] := 254;
n := x;
end;

was[n] := 1;

stable[i] := n;
bstable[n] := i;

end;

for I := 0 to 255 do
begin

if bstable[i] = 0 then
begin

end;

end;

end;

[type_Oleg]

Единственное, что понятно - то, что в вот этих последних строках

for I := 0 to 255 do
 begin
   if bstable[i] = 0 then
     begin
     end;
 end;

не выполняется абсолютно ничего.

[Stilet]

На расчет контрольной суммы похоже...
А ты где сей код взял?