メールアドレスを３Ｑ型ＱＲコードにしてみる。

メアド="mailto:masatokuwata@yahoo.com"

生成元=1+(γ^2)+(γ^3)+(γ^4)+(γ^8);
加法表示[x_]:=PolynomialMod[x,{生成元,2}]
F256=Prepend[Table[加法表示[(γ^k)],{k,0,254}],0];
位置[L_,e_]:=Position[L,e][[1]][[1]];
乗法表示[x_]:=If[位置[F256,加法表示[x]]≠1, γ^(位置[F256,加法表示[x]]-2),0];
n=35;k=17;
Table[乗法表示[Coefficient[Product[x+γ^i,{i,0,n-k-1}],x,n-k-i]],
{i,0,n-k-1}];
生成多項式 =Collect[Product[x+γ^i,{i,0,n-k-1}],x,乗法表示];
符号化[vector_]:=
Collect[
PolynomialMod[
vector.Table[x^(Length[vector]+n-k-i),{i,1,Length[vector]}]+
PolynomialMod[
vector.Table[x^(Length[vector]+n-k-i),{i,1,Length[vector]}],{生成多項式,2}],2],
x,乗法表示];
復号[polynomial_]:=
Map[乗法表示,Table[Coefficient[polynomial,x,n-1-i],{i,0,k-1}]];

DATA0={{0,1,0,0}};
DATA1=Append[DATA0,IntegerDigits[
StringLength[メアド]+2^8,2][[2;;9]]];
DATA2=Join[DATA1,Map[IntegerDigits[#+2^8,2][[2;;9]] &,
ToCharacterCode[メアド]]];
DATA3=Append[DATA2,{0,0,0,0}];
DATA4=PadRight[Partition[Flatten[DATA3],8],34,{{1,1,1,0,1,1,0,0 },{0,0,0,1,0,0,0,1}}];
DATA51=Partition[DATA4,17][[1]];
DATA52=Partition[DATA4,17][[2]];
符号多項式１=符号化[Map[乗法表示[#.Table[(γ^((7-i))),{i,0,7}]]&,DATA51]];
符号語１=Table[Coefficient[符号多項式１,x,34-i],
{i,0,34}]
符号多項式２=符号化[Map[乗法表示[#.Table[(γ^((7-i))),{i,0,7}]]&,DATA52]];
符号語２=Table[Coefficient[符号多項式２,x,34-i],
{i,0,34}]
符号語=Mod[Map[Table[Coefficient[加法表示[#],γ,7-i],{i,0,7}] &,符号語１],2]~Join~
Mod[Map[Table[Coefficient[加法表示[#],γ,7-i],{i,0,7}] &,符号語２],2];
ExportString[符号語,"Table"]