id	author	title	date	pages	extension	mime	words	sentence	flesch	summary	cache	txt
ejpam-450	Martin del Rey, Angel; Burrieza, J. Escuadra; Iglesias, J.L. Pérez; Sánchez, G. Rodríguez; Dios, A. Queiruga; de la Villa Cuenca, A.	The Cryptographic Properties of Von Neumann Cellular Automata	2010	14	.pdf	application/pdf	4495	201	60	(* algebrai degree 4 *)ag[4℄={};Do[ aux=Append[IntegerDigits[k,2,15℄,1℄;AppendTo[ag[4℄,FromDigits[aux,2℄℄,{k,0,2^15-1}℄;(* algebrai degree 3 *)g={};Do[ aux1=FromDigits[Flatten[Append[IntegerDigits[k,2,11℄,{1,0,0,0,0}℄℄,2℄;aux2=FromDigits[Flatten[Append[IntegerDigits[k,2,11℄,{0,1,0,0,0}℄℄,2℄;aux3=FromDigits[Flatten[Append[IntegerDigits[k,2,11℄,{0,0,1,0,0}℄℄,2℄;aux4=FromDigits[Flatten[Append[IntegerDigits[k,2,11℄,{0,0,0,1,0}℄℄,2℄;aux5=FromDigits[Flatten[Append[IntegerDigits[k,2,11℄,{1,1,0,0,0}℄℄,2℄;aux6=FromDigits[Flatten[Append[IntegerDigits[k,2,11℄,{1,0,1,0,0}℄℄,2℄;aux7=FromDigits[Flatten[Append[IntegerDigits[k,2,11℄,{1,0,0,1,0}℄℄,2℄;aux8=FromDigits[Flatten[Append[IntegerDigits[k,2,11℄,{0,1,1,0,0}℄℄,2℄; REFERENCES 775aux9=FromDigits[Flatten[Append[IntegerDigits[k,2,11℄,{0,1,0,1,0}℄℄,2℄;aux10=FromDigits[Flatten[Append[IntegerDigits[k,2,11℄,{0,0,1,1,0}℄℄,2℄;aux11=FromDigits[Flatten[Append[IntegerDigits[k,2,11℄,{1,1,1,0,0}℄℄,2℄;aux12=FromDigits[Flatten[Append[IntegerDigits[k,2,11℄,{1,1,0,1,0}℄℄,2℄;aux13=FromDigits[Flatten[Append[IntegerDigits[k,2,11℄,{1,0,1,1,0}℄℄,2℄;aux14=FromDigits[Flatten[Append[IntegerDigits[k,2,11℄,{0,1,1,1,0}℄℄,2℄;aux15=FromDigits[Flatten[Append[IntegerDigits[k,2,11℄,{1,1,1,1,0}℄℄,2℄;Flatten[AppendTo[g,{aux1,aux2,aux3,aux4,aux5,aux6,aux7,aux8,aux9,aux10,aux11,aux12,aux13, aux14,aux15}℄℄,{k,0,2^11-1}℄;ag[3℄=Flatten[g℄;(* algebrai degree 1 *)ag[1℄={};Do[ aux16=FromDigits[Flatten[Reverse[Append[IntegerDigits[k,2,5℄,{0,0,0,0,0,0,0,0,0,0,0}℄℄℄,2℄;AppendTo[ag[1℄,aux16℄,{k,0,2^5-1}℄(* algebrai degree 2 *)total=Table[k,{k,0,2^16-1}℄;aux17=Union[ag[4℄,ag[3℄,ag[1℄,{0}℄;ag[2℄=Complement[total,aux17℄; • (* Definition of the derivative of a boolean fun tion *)der[w,b,x℄:=BitXor[f[IntegerDigits[w,2,16℄,x℄,f[IntegerDigits[w,2,16℄,BitXor[b,x℄℄℄; lass=NlBalGrad3[4℄;Nl4BalGrad3LK={};Do[ w= lass[[l℄℄;LK[w℄={};Do[ If[ Or[Table[der[w,IntegerDigits[i,2,4℄,IntegerDigits[j,2,4℄℄,{j,0,2^4-1}℄=={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0},Table[der[w,IntegerDigits[i,2,4℄,IntegerDigits[j,2,4℄℄,{j,0,2^4-1}℄=={1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}℄,AppendTo[LK[w℄,i℄℄,{i,0,2^4-1}℄;If[LK[w℄=={0},AppendTo[Nl4BalGrad3LK,w℄℄,{l,1,Length[ lass℄}℄; lass=NlBalGrad3[2℄;Nl2BalGrad3LK	cache/ejpam-450.pdf	txt/ejpam-450.txt