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

minimal = (γ^8)+(γ^4)+(γ^3)+(γ^2)+1;
additive=Table[
PolynomialMod[γ^(254-i),{minimal ,2}],
{i,0,254}]~
Join~{0};
multiplicative=Table[γ^(254-i),{i,0,254}]~
Join~{0};
toA[elem_]:=PolynomialMod[elem,{minimal ,2}];
For[i= 1, i<256,i++,toM0[additive[[i]]]=γ^(255-i)];
toM0[0]=0;
toM[elem_]:=toM0[PolynomialMod[elem,{minimal ,2}]];
n=35;k=17;
Table[toM[Coefficient[Product[x+γ^i,{i,0,n-k-1}],x,n-k-i]],
{i,0,n-k-1}];
generator =Collect[Product[x+γ^i,{i,0,n-k-1}],x,toM];
encode[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]}],{generator,2}],2],
x,toM];
decode[polynomial_]:=
Map[toM,Table[Coefficient[polynomial,x,n-1-i],{i,0,k-1}]];

メアド="masato_kuwata@excite.com"

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]];
符号多項式１=encode[Map[toM[#.Table[(γ^((7-i))),{i,0,7}]]&,DATA51]];
符号語１=Table[Coefficient[符号多項式１,x,34-i],
{i,0,34}]
符号多項式２=encode[Map[toM[#.Table[(γ^((7-i))),{i,0,7}]]&,DATA52]];
符号語２=Table[Coefficient[符号多項式２,x,34-i],
{i,0,34}]
符号語=Mod[Map[Table[Coefficient[toA[#],γ,7-i],{i,0,7}] &,符号語１],2]~Join~
Mod[Map[Table[Coefficient[toA[#],γ,7-i],{i,0,7}] &,符号語２],2];
ExportString[符号語,"Table"]