生成元=(γ^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)];
生成多項式 =PolynomialMod[Product[(x+(γ^k)),{k,0,12}],{生成元,2}];
数字化[x_]:=
Which[DigitQ[x],ToCharacterCode[x][[1]]-48,
LetterQ[x],ToCharacterCode[ToUpperCase[x]][[1]]-55,
True,Switch[x," ",36,"$",37,"%",38,"*",39,
"+",40,"-",41,".",42,"/",43,":",44,_,"エラー：英数字モードでは扱えません"]]

学籍番号 = "19B4142011L"

英数字={0,0,1,0};
文字数=IntegerDigits[StringLength[学籍番号],2,9];
番号本体=Map[If[Length[#]==2,
IntegerDigits[#.{45,1},2,11],
IntegerDigits[#[[1]],2,6]]&,
Partition[Map[数字化,Characters[学籍番号]],2,2,1,{}]];
終端={0,0,0,0};
情報語=Part[Partition[
Partition[Flatten[{英数字,文字数,番号本体,終端}],8,8,1,0],
13,13,1,{{1,1,1,0,1,1,0,0},{0,0,0,1,0,0,0,1}}],1];
情報語//TableForm