在线求教！求教 Delphi 大佬，需要将下面的代码转成 Go

procedure makeMMbyts(var bb: TBytes); //申明一个函数，传入一个 byte 数组参数
var
b1: TBytes;
i1, i2: integer; //以上是本地变量申明
begin //函数开始
b1 := copy(bb); //把数组 bb 复制给 b1
i1 := Length(b1); //把 b1 的长度赋给 i1
setlength(b1, i1 + i1); //b1 数组长度翻倍

for i2 := i1 to i1 + i1 - 1 do//开始滤遍 b1 数组
begin
b1[i2] := random(255);//给 b1[i2]随机一个 255 以内的数值
b1[i2 - i1] := ((b1[i2 - i1] xor b1[i2]) and $FF); //b1[i2 - i1] = (b1[i2 - i1] ^ b1[i2]) & 0xff
end;

//再来一次
i1 := Length(b1);
setlength(b1, i1 + i1);

for i2 := i1 to i1 + i1 - 1 do
begin
b1[i2] := random(255);
b1[i2 - i1] := ((b1[i2 - i1] xor b1[i2]) and $FF);
end;

bb := copy(b1); //把计算结果 b1 复制给 bb
setlength(b1, 0); //b1 长度设为 0
end; //函数结束

这段代码写得真是……酸爽