生成元=r^8+r^4+r^3+r^2+1;
加法表示[x_]:=PolynomialMod[x,生成元,Modulus->2]
F256=Prepend[Table[加法表示[r^k],{k,0,254}],0];
位置[L_,e_]:=Position[L,e][[1]][[1]];
乗法表示[x_]:=If[x===0,0,r^(位置[F256,加法表示[x]]-2)];
生成多項式=PolynomialMod[Product[(x+r^k),{k,0,12}],生成元,Modulus->2];
情報多項式=Map[加法表示[#.Table[r^(7-i),{i,0,7}]]&,
{{0, 0, 1, 0, 0, 0, 0, 0},
{0, 1, 0, 1, 1, 0, 0, 0},
{□,□,□,□,□,□,□,□},
{□,□,□,□,□,□,□,□},
{□,□,□,□,□,□,□,□},
{□,□,□,□,□,□,□,□},
{□,□,□,□,□,□,□,□},
{□,□,□,□,□,□,□,□},
{□,□,□,□,□,□,□,□},
{□,□,□,□,□,□,□,□},
{□,□,□,□,□,□,□,□},
{□,□,□,□,□,□,□,□},
{1, 1, 1, 0, 1, 1, 0, 0}}
].Table[x^(13-i),{i,1,13}];

符号多項式=Collect[PolynomialMod[情報多項式*x^13+PolynomialRemainder[情報多項式*x^13,生成多項式,x],生成元,Modulus->2],x];

送信語=Mod[Map[Table[Coefficient[加法表示[#],r,7-i],{i,0,7}]&,Table[Coefficient[符号多項式,x,25-i],{i,0,25}]],2];
ExportString[Table[{i,送信語[[i]]},{i,1,26}],"Table"]