请教Delphi大佬，需要将下面的代码转成Go或Java，但是由于之前从来没有做过不了解相关语法且需求着急，是在难以下手。请问有没有大佬会，请赐教！！！！在线等，急~~~~~真急
procedure makeMMbyts(var bb: TBytes);
var
b1: TBytes;
i1, i2: integer;
begin
b1 := copy(bb);
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] ｘｏｒ b1[i2]) ａｎｄ $FF);
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] ｘｏｒ b1[i2]) ａｎｄ $FF);
end;
bb := copy(b1);
setlength(b1, 0);
end;

纯小白，完全不会delphi。但是需要这段代码进行关键一步，非常感谢各位大佬的帮忙了！！！