Lines Matching refs:code
56 $code=".text\n";
82 while(defined($i=shift)) { $code.=sprintf".long\t0x%08x,0x%08x\n",$i,$i; }
87 $code.=".long\t";
88 while(defined($i=shift)) { $code.=sprintf"0x%08x,",$i; }
89 $code.=sprintf"0x%08x\n",$last;
95 $code.=".byte\t";
96 while(defined($i=shift)) { $code.=sprintf"0x%02x,",$i&0xff; }
97 $code.=sprintf"0x%02x\n",$last&0xff;
103 $code.=<<___;
163 $code.=<<___;
262 $code.=" movzb ".&lo($s[0]).",$out\n";
263 $code.=" mov $s[2],$tmp1\n" if ($i!=3);
264 $code.=" lea 16($key),$key\n" if ($i==0);
266 $code.=" movzb ".&hi($s[1]).",$tmp0\n";
267 $code.=" mov 0($sbox,$out,8),$out\n";
269 $code.=" shr \$16,$tmp1\n";
270 $code.=" mov $s[3],$tmp2\n" if ($i!=3);
271 $code.=" xor 3($sbox,$tmp0,8),$out\n";
273 $code.=" movzb ".&lo($tmp1).",$tmp1\n";
274 $code.=" shr \$24,$tmp2\n";
275 $code.=" xor 4*$i($key),$out\n";
277 $code.=" xor 2($sbox,$tmp1,8),$out\n";
278 $code.=" xor 1($sbox,$tmp2,8),$out\n";
280 $code.=" mov $t0,$s[1]\n" if ($i==3);
281 $code.=" mov $t1,$s[2]\n" if ($i==3);
282 $code.=" mov $t2,$s[3]\n" if ($i==3);
283 $code.="\n";
298 $code.=" movzb ".&lo($s[0]).",$out\n";
299 $code.=" mov $s[2],$tmp1\n" if ($i!=3);
301 $code.=" mov 2($sbox,$out,8),$out\n";
302 $code.=" shr \$16,$tmp1\n";
303 $code.=" mov $s[3],$tmp2\n" if ($i!=3);
305 $code.=" and \$0x000000ff,$out\n";
306 $code.=" movzb ".&hi($s[1]).",$tmp0\n";
307 $code.=" movzb ".&lo($tmp1).",$tmp1\n";
308 $code.=" shr \$24,$tmp2\n";
310 $code.=" mov 0($sbox,$tmp0,8),$tmp0\n";
311 $code.=" mov 0($sbox,$tmp1,8),$tmp1\n";
312 $code.=" mov 2($sbox,$tmp2,8),$tmp2\n";
314 $code.=" and \$0x0000ff00,$tmp0\n";
315 $code.=" and \$0x00ff0000,$tmp1\n";
316 $code.=" and \$0xff000000,$tmp2\n";
318 $code.=" xor $tmp0,$out\n";
319 $code.=" mov $t0,$s[1]\n" if ($i==3);
320 $code.=" xor $tmp1,$out\n";
321 $code.=" mov $t1,$s[2]\n" if ($i==3);
322 $code.=" xor $tmp2,$out\n";
323 $code.=" mov $t2,$s[3]\n" if ($i==3);
324 $code.="\n";
327 $code.=<<___;
349 $code.=<<___;
358 $code.=<<___;
365 $code.=<<___;
377 $code.=<<___;
452 $code.=<<___;
478 $code.=<<___;
557 $code.=<<___;
581 $code.=<<___;
586 $code.=<<___;
600 $code.=<<___;
694 $code.=<<___;
754 $code.=<<___;
850 $code.=" mov $s[0],$out\n" if ($i!=3);
852 $code.=" mov $s[2],$tmp1\n" if ($i!=3);
853 $code.=" and \$0xFF,$out\n";
855 $code.=" mov 0($sbox,$out,8),$out\n";
856 $code.=" shr \$16,$tmp1\n";
858 $code.=" mov $s[3],$tmp2\n" if ($i!=3);
861 $code.=" movzb ".&hi($s[1]).",$tmp0\n";
862 $code.=" and \$0xFF,$tmp1\n";
863 $code.=" shr \$24,$tmp2\n";
865 $code.=" xor 3($sbox,$tmp0,8),$out\n";
866 $code.=" xor 2($sbox,$tmp1,8),$out\n";
867 $code.=" xor 1($sbox,$tmp2,8),$out\n";
869 $code.=" mov $t2,$s[1]\n" if ($i==3);
870 $code.=" mov $t1,$s[2]\n" if ($i==3);
871 $code.=" mov $t0,$s[3]\n" if ($i==3);
872 $code.="\n";
882 $code.=" mov $s[0],$out\n" if ($i!=3);
884 $code.=" mov $s[2],$tmp1\n" if ($i!=3);
885 $code.=" and \$0xFF,$out\n";
887 $code.=" movzb 2048($sbox,$out,1),$out\n";
888 $code.=" shr \$16,$tmp1\n";
890 $code.=" mov $s[3],$tmp2\n" if ($i!=3);
893 $code.=" movzb ".&hi($s[1]).",$tmp0\n";
894 $code.=" and \$0xFF,$tmp1\n";
895 $code.=" shr \$24,$tmp2\n";
897 $code.=" movzb 2048($sbox,$tmp0,1),$tmp0\n";
898 $code.=" movzb 2048($sbox,$tmp1,1),$tmp1\n";
899 $code.=" movzb 2048($sbox,$tmp2,1),$tmp2\n";
901 $code.=" shl \$8,$tmp0\n";
902 $code.=" shl \$16,$tmp1\n";
903 $code.=" shl \$24,$tmp2\n";
905 $code.=" xor $tmp0,$out\n";
906 $code.=" mov $t2,$s[1]\n" if ($i==3);
907 $code.=" xor $tmp1,$out\n";
908 $code.=" mov $t1,$s[2]\n" if ($i==3);
909 $code.=" xor $tmp2,$out\n";
910 $code.=" mov $t0,$s[3]\n" if ($i==3);
911 $code.="\n";
914 $code.=<<___;
935 $code.=<<___;
943 $code.=<<___;
952 $code.=<<___;
959 $code.=<<___;
968 $code.=<<___;
1048 $code.=<<___;
1169 $code.=<<___;
1194 $code.=<<___;
1207 $code.=<<___;
1221 $code.=<<___;
1315 $code.=<<___;
1342 $code.=<<___;
1429 $code.=<<___;
1464 $code.=<<___;
1509 $code.=<<___;
1570 $code.=<<___;
1623 $code.=<<___;
1686 $code.=<<___;
1734 $code.=<<___;
2223 $code.=<<___;
2426 $code.=<<___;
2432 $code.=<<___;
2534 $code.=<<___;
2570 $code.=<<___;
2606 $code.=<<___;
2642 $code.=<<___;
2658 $code.=<<___;
2925 $code =~ s/\`([^\`]*)\`/eval($1)/gem;
2927 print $code;
