生成元=(γ^8)+(γ^4)+(γ^3)+(γ^2)+1;
加法表示[x_]:=PolynomialMod[x,{生成元,2}]
F256=Prepend[Table[加法表示[(γ^k)],{k,0,254}],0];
位置[L_,e_]:=Position[L,e][[1]][[1]];
乗法表示[x_]:=If[x===0,0,γ^(位置[F256,加法表示[x]]-2)];
生成多項式[n_,k_] :=Collect[Product[x+γ^i,{i,0,n-k-1}],x,乗法表示];
情報多項式[word_]:=Map[加法表示[#.Table[(γ^((7-i))),{i,0,7}]]&,word
].Table[x^(9-i),{i,1,9}];
符号多項式[poly_]:=
Collect[PolynomialMod[
poly*x^17+PolynomialRemainder[poly*x^17,生成多項式[26,9],x],
{生成元,2}],x];
送信語[poly_]:=Mod[Map[Table[Coefficient[加法表示[#],γ,7-i],{i,0,7}] &,Table[Coefficient[poly,x,25-i],
{i,0,25}]],2];

send=ExportString[Table[送信語[符号多項式[情報多項式[{
{\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder]},
{\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder]},
{\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder]},
{\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder]},
{\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder]},
{\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder]},
{\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder]},
{\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder]},
{\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder],\[Placeholder]}}]]][[i]],{i,1,26}],"TSV"]